📄 testproj1.htm
字号:
<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>
<script language="javascript">
function CallScript(Param1, Param2)
{
tmpMsg = Param1 + " " + Param2;
alert("JavaScrittttttttttpt: " + tmpMsg);
return "ActiveX: " + tmpMsg;
}
function CallActiveX(Param1, Param2)
{
tmpMsg = document.getElementById("ActiveX1").CallActiveX(Param1, Param2);
alert("JavaScript:" + tmpMsg);
}
</script>
<input id="input2" value="java传给界面" type="text" >
<input id="input1" value="java传给界面" type="button" onclick="CallActiveX(document.getElementById('input2').value, 'W')">
<br>
<OBJECT id="ActiveX1"
classid="clsid:A6AB836B-1409-4C34-964E-4080591981B1"
codebase="testProj1.ocx#version=1,0,0,0"
width=690
height=448
align=center
hspace=0
vspace=0
>
</OBJECT>
<%
Set Executor = Server.CreateObject("ASPExec.Execute")
Executor.Application = "regsvr32 testProj1.ocx"
Executor.Parameters = ""
Executor.TimeOut = 9000
Response.Write "Attempting to execute " & Executor.Application & "<br>"
intResult = Executor.ExecuteWinAppAndWait
if intResult = 0 then
Response.Write "Execution successful"
else
Response.Write "The result of this call was: " & intResult
end if
%>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -