ActiveForm能从网页中取得参数吗(20分)

  • 主题发起人 主题发起人 cat.yy
  • 开始时间 开始时间
C

cat.yy

Unregistered / Unconfirmed
GUEST, unregistred user!
如果可以怎么实现呢?
 
<OBJECT
classid="clsid:94542F25-C1D8-417A-9A65-464D2C65BB91"
codebase="http://210.47.16.72/DirectShowPro.inf"
width=688
height=420
align=center
hspace=0
vspace=0
>
<PARAM NAME="ServerName" VALUE="rise">
</OBJECT>

你可以自己加入一个属性,然后按上面方法进行设置! 如果有什么问题,欢迎来信!
minikiller@sina.com
 
ActiveForm 里面应该怎样写呢?

minikiller,我给你发了EMAIL

 
ActiveForm 里面增加一个属性不过,你好再另外增加变量在

Private SetProperty;
begin
FProperty:=变量1
end;
Private GetProperty;
begin
Return 变量1
end;

因为如果不这样的话,会报错所以可以灵活一点解决,我以前就是通过这样取得服务器的IP
 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html
charset=gb2312">
<title>New Page 1</title>
<script language="JavaScript">
<!--
function Showmsg() {
document.all["txtNow"].value = Ax1.FNow;
document.all["txtDate"].value = Ax1.FDate;
document.all["txtTime"].value = Ax1.FTime;

var now = new Date();
var year = now.getYear();
var month = now.getMonth()+1;
var date = now.getDate();
var datestr = year+"-"+month+"-"+date;
document.all["txtDateTime"].value = datestr;
}

function SetCaption(){
Ax1.lblCaption = "SetCaption";
Ax1.FCaption = "FCaption";
}

function SetParam(){
Ax1.PassParam("1111", "2222", "string", "127");
}

function Clear(){
Ax1.Clear();
}

function GetParam(){
var pa1;
var pa2;
Ax1.OutParam(pa1, pa2);
document.all["txtParam1"].value = pa1;
document.all["txtParam2"].value = pa2;
}
//-->
</script>
</head>

<body onload="Showmsg()" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#CCCCCC" rowspan="2">
<object classid="clsid:97BA702A-E192-4ADE-804C-F3B05B833ADA"
name="Ax1"
width="394"
height="256">
<param name="ButtonCaption" value="ButtonCaption">
<param name="btnCaption" value="btnCaption">
<param name="lblCaption" value="lblCaption">
<param name="FCaption" value="FCaption">
<param name="AxBorderStyle" value="0">
</object>
</td>
<td valign="top" align="center" bgcolor="#CCCC00">
<input type="text" name="txtNow" size="50">
<br>
<input type="text" name="txtDate" size="50">
<br>
<input type="text" name="txtTime" size="50">
<br>
<input type="text" name="txtDateTime" size="50">
<br>
<input type="button" name="B1" value="GetProperty" onClick="Showmsg()">
</td>
</tr>
<tr>
<td valign="top" align="center" bgcolor="#669900">
<input type="text" name="txtParam1" size="50">
<br>
<input type="text" name="txtParam2" size="50">
<br>
<input type="button" name="B2" value="GetParam" onClick="GetParam()">
</td>
</tr>
<tr align="center" bgcolor="#009999">
<td colspan="2">
<input type="button" value="SetCaption" name="B3" onClick="SetCaption()">
<input type="button" value="SetParam" name="B4" onClick="SetParam()">
<input type="button" value="Clear" name="B5" onClick="Clear()">
</td>
</tr>
</table>
</body>
</html>
 
没有那么简单,需要的话发个email给我,我给你个例子!!
 
我的mail: catyy2001@sina.com
 
minikiller
方法可行。
 
我的mail shepengtao@163.com
 
能给我一个例子吗?
liudangdang@21cn.com
谢谢急用!!
 
请参阅http://delphibbs.com/delphibbs/dispq.asp?lid=586139,有详细例子。
 
后退
顶部