delphi开发activexObject传递参数的两种方法:

49 篇文章 0 订阅
13 篇文章 0 订阅

本来要和delphi说再见了,没想到今天还会用到它,这个给无数程序员带来欢乐和泪水的工具,有了你,程序员的世界多彩多资!

delphi开发activexObject传递参数有两种方法:
1,在定义的方法中添加参数,然后在html页面中把参数传递进方法中;
procedure TWebPrint.PrintReportMaterial(const fk_req: WideString);
begin
  showMessage('fk_req:'+fk_req);
  try
    aqyMaterial.Close;
    aqyMaterial.Parameters.ParamByName('fk_req').Value:=m_fk_req;
    aqyMaterial.Open;
  except
    on Exception do showmessage('open material fail');
  end;
  repMaterial.Template.fileName:=ExtractFilePath(Application.ExeName)+'MaterialDetail.rtm';
  repMaterial.print();
end;
页面调用:
var wp=new ActiveXObject("WebPrintProj1.WebPrint");
wp.PrintReportMaterial(pk_id);

2,在接口中添加属性,然后在调用的html页面中把参数传递进对象的属性中;然后
在属性的setProperty(name)中把参数取出来就行了;
procedure TWebPrint.Set_FkReq(const Value: WideString);
begin
  showmessage('setReq:'+value);
  m_fk_req:=value;
end;

页面调用:
var wpPlan=new ActiveXObject("WebPrintProj1.WebPrint");
wpPlan.PkId=pk_id;
wpPlan.PrintReportMaterialPlan();

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值