TActiveFormX自定义过程
procedure TActiveFormX.copyweb(urlstr:string;targetdirstr:string);
begin
webcopy1.items.clear;
with webcopy1.items.add do
begin
url :=urlstr;
targetdir :=targetdirstr;
end;
webcopy1.execute;
end;
jsp 网页<HTML>
<H1> Delphi 6 ActiveX Test Page </H1><p>
You should see your Delphi 6 forms or controls embedded in the form below.
<HR><center><P>
<OBJECT
classid="clsid:CFD07A97-2205-4F9E-9A81-10BF641FD3D8"
codebase="http://127.0.0.1:8080/sft/ActiveFormProj1.ocx#version=1,0,0,0"
width=163
height=75
align=center
hspace=0
vspace=0
>
</OBJECT>
</HTML>
我怎么把jsp中的变量传进TActiveFormX过程,并且调用该过程
procedure TActiveFormX.copyweb(urlstr:string;targetdirstr:string);
begin
webcopy1.items.clear;
with webcopy1.items.add do
begin
url :=urlstr;
targetdir :=targetdirstr;
end;
webcopy1.execute;
end;
jsp 网页<HTML>
<H1> Delphi 6 ActiveX Test Page </H1><p>
You should see your Delphi 6 forms or controls embedded in the form below.
<HR><center><P>
<OBJECT
classid="clsid:CFD07A97-2205-4F9E-9A81-10BF641FD3D8"
codebase="http://127.0.0.1:8080/sft/ActiveFormProj1.ocx#version=1,0,0,0"
width=163
height=75
align=center
hspace=0
vspace=0
>
</OBJECT>
</HTML>
我怎么把jsp中的变量传进TActiveFormX过程,并且调用该过程
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货