testproj1.htm

来自「详细介绍了DELPHI开始的ActiveX窗体与JAVA的通信。可以实现WEBG」· HTM 代码 · 共 56 行

HTM
56 行
字号 
<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>

testproj1.htm - 源码说明

本页面展示了「详细介绍了DELPHI开始的ActiveX窗体与JAVA的通信。可以实现WEBGIS等功能」中的 testproj1.htm 源码文件，采用 HTM 编程语言编写，共 56 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ActiveX相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?