HTML与ActiveForm间的参数传递 ( 积分: 100 )

zqm999a · 2005-01-13

我怎么把通html把能参数传到ActiveForm中，有谁有详细的说明，谢谢大家了
我是这么用的，好像不行
&lt;HTML&gt;
&lt;%@language=vbscript codepage=936 %&gt;

&lt;H1&gt; Delphi 6 ActiveX Test Page &lt;/H1&gt;&lt;p&gt;
You should see your Delphi 6 forms or controls embedded in the form below.
&lt;HR&gt;&lt;center&gt;&lt;P&gt;
&lt;OBJECT
classid="clsid:37D80414-8F35-4899-8584-E9A18CC80212"
codebase="http://192.168.1.192/delphiroot/WaveRecord.cab#version=1,0,45,0"
width=333
height=170
align=center
hspace=0
vspace=0
&gt;

&lt;PARAM NAME=username1 VALUE="anonymous"&gt;

&lt;/OBJECT&gt;
&lt;%
response.write "qq"
dim owss
Set oWss = Server.CreateObject("WaveRecord.RecordWave&quot

oWss.ini "anonymous"
set oWss=nothing
%&gt;

&lt;/HTML&gt;
anonymous为传的参数
&lt;PARAM NAME=username1 VALUE="anonymous"&gt;用这个也不行

zqm999a · 2005-01-13

我怎么把通html把能参数传到ActiveForm中，有谁有详细的说明，谢谢大家了
我是这么用的，好像不行
&lt;HTML&gt;
&lt;%@language=vbscript codepage=936 %&gt;

&lt;H1&gt; Delphi 6 ActiveX Test Page &lt;/H1&gt;&lt;p&gt;
You should see your Delphi 6 forms or controls embedded in the form below.
&lt;HR&gt;&lt;center&gt;&lt;P&gt;
&lt;OBJECT
classid="clsid:37D80414-8F35-4899-8584-E9A18CC80212"
codebase="http://192.168.1.192/delphiroot/WaveRecord.cab#version=1,0,45,0"
width=333
height=170
align=center
hspace=0
vspace=0
&gt;

&lt;PARAM NAME=username1 VALUE="anonymous"&gt;

&lt;/OBJECT&gt;
&lt;%
response.write "qq"
dim owss
Set oWss = Server.CreateObject("WaveRecord.RecordWave&quot

oWss.ini "anonymous"
set oWss=nothing
%&gt;

&lt;/HTML&gt;
anonymous为传的参数
&lt;PARAM NAME=username1 VALUE="anonymous"&gt;用这个也不行

TYZhang · 2005-01-13

你的activeform有username1的属性吗？你可以在activeform的set_username1的过程中跟踪一下。

fei_1 · 2005-01-13

我在HTML中用脚本传递参数,送你参考参考:
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt; Decca China &lt;/TITLE&gt;
&lt;meta http-equiv=Content-Type content="text/html; charset=GB2312"&gt;
&lt;META NAME="Generator" CONTENT="EditPlus"&gt;
&lt;META NAME="Author" CONTENT=""&gt;
&lt;META NAME="Keywords" CONTENT=""&gt;
&lt;META NAME="Description" CONTENT=""&gt;
&lt;/HEAD&gt;

&lt;BODY BGCOLOR="#FFFFFF"&gt;
&lt;OBJECT id="FeiDwgTools"
classid="clsid:9BDCE947-8049-41EE-B071-E83A8B480FF4"
codebase="FeiDwgTools.ocx#version=1,3,37,27"
width=148
height=60
align=center
hspace=0
vspace=0
&gt;
&lt;/OBJECT&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;
&lt;SCRIPT language="JavaScript"&gt;
FeiDwgTools.DwgPlotDataIn("w:/plot.log&quot

&lt;/SCRIPT&gt;

zqm999a · 2005-01-13

to tyzhang
username1不是属性而是一共用变量，一定要是属性吗
to fei1
FeiDwgTools.DwgPlotDataIn("w:/plot.log&quot

你的DwgPlotDataIn是一个共用过程吗

TYZhang · 2005-01-13

你必须在activexform的类型库中增加属性或方法，这样外部程序才能访问内部变量。

zqm999a · 2005-01-13

二位留一下QQ号好么

zqm999a · 2005-01-13

加了属性可具体怎么写呢
这么写.DwgPlotDataIn("w:/plot.log&quot

提示找不能这个FeiDwgTools未定义请问在哪定义[

]

fei_1 · 2005-01-13

同意TYZhang.在activexform的类型库中增加属性或方法，这样外部程序才能访问内部变量
我是这样定义的:
1.在类型库的"界面"下新建一方法:取名DwgPlotDataIn
2.在"参数"页加入此方法需要的参数名(FileName),为WideString类型.
3.点击上面的的"注册类型库"后刷新就可以在Unit中看到新增加的方法.
4.写入需要的代码.然后编译后就可以使用此方法了.

zqm999a · 2005-01-13

to fei_1
我是说在Html中你没有定义FeiDwgTools，所以FeiDwgTools.DwgPlotDataIn("w:/plot.log&quot

这种写法会出错

fei_1 · 2005-01-14

&lt;OBJECT [red]id="FeiDwgTools"[/red]
classid="clsid:9BDCE947-8049-41EE-B071-E83A8B480FF4"
codebase="FeiDwgTools.ocx#version=1,3,37,27"
width=148
height=60
align=center
hspace=0
vspace=0
&gt;
&lt;/OBJECT&gt;

fei_1 · 2005-01-14

我在&lt;OBJECT&gt;&lt;/OBNJECT&gt;里面定义的.
id="FeiDwgTools"
看见没有?

zqm999a · 2005-01-14

多人接受答案了。

HTML与ActiveForm间的参数传递 ( 积分: 100 )

zqm999a

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

fei_1

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

fei_1

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

fei_1

Unregistered / Unconfirmed

fei_1

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

Similar threads