Delphi封装MSComm供C#调用.docVIP

Delphi设计串口通信组件 创建一个ActiveX Library 这样就建立一个COM 组件,保存工程名称为MyCommTest. 然后新建一个ActiveX Form,命名为frmMyActivex 点击OK后，delphi会自动生成MyCommTest_TLB.pas及窗体frmMyActivexlmpl1. 在frmMyActivexlmpl1界面拖放一个MSComm控件 和 一个Timer控件，Time的Enable设置为False,interval设置为300ms.（可适当将界面调整小点）。 然后点击”View” - “Type Library”，打开类型库界面. 我们点击lfrmMyActivex接口新建一个属性，比如卡号 CardNo. \ 设置卡号的名字，类型为BSTR (BSTR为Delphi兼容COM接口的字符串类型), 点击”刷新”图标，自动将该属性加入到接口模块中. 我们可以看到在MyCommTest_LIB.pas的IfrmMyActivex = interface(IDispatch)接口中增加了一格CardNo属性. 在unit frmMyActivexImpl1中增加了两个属性操作函数 现在我们回到unit frmMyActivexImpl1; 我们需要实现对属性的操作，保存属性数据，就需要在该单元中新建一个私有的_CardNo变量。 然后需要手动实现两个属性操作函数的内容，在属性函数中填入以下代码。 为了实现对串口的操作，我们还需要自定义几个函数用于打开，关闭串口及发送串口通信指令。 点击”View” - “Type Library”,进入类型库界面 右键点击IfrmMyActivex，选择”new”-Method 输入函数名称 InitComm 然后选择Parameters选项卡，生成一个输入参数CommPort 串口号，类型为Short 点击刷新按钮，刷新接口模块，，我们在MyCommTest_TLB.pas界面看到，已经自动生成函数。 我们再到Unit frmMyActivexlmpl1模块去实现改函数接口。该函数用于打开串口，并调用Timer，定时发送指令给串口。 同理，我们生成UnInitComm函数，没有参数。 Timer中的代码为：（注：要在单元头添加Variants的引用） 然后我们对MSComm接收数据要处理，通过MSComm的OnComm事件获取串口接收的数据。 代码为： Comm组件功能基本完成，编译成功后，我们需要将该COM组件通过WEB的形式发布出来。点击”Project” – “Web Deployment Options” 设置发布选项。 我们可以自己在D盘或者其他盘下新建一个MyCOM的文件夹，然后将OCX及HTML文件发布到该文件夹下，URL可以暂时先用,点击OK。 点击”Project” – “Web Deployment” 发布。我们现在可以在D盘myCOM文件下找到我们的COM组件了。Delphi会为我们生成MyCommTest.htm和MyCommTest.OCX两个文件。可以通过运行MyCommTest.htm测试运行MyCommTest.ocx. 通过记事本打开htm文件，我们可以找到这个组件的classid,需要记下这个classid,便于C#中使用。 测试运行前，我们需要对MyCommTest.OCX进行注册，新建一个批处理文件，比如Reg.bat,填入以下内容： 保存后执行这个批处理文件，注册控件。 题外：我们可以看到生成的组件有400多K，比较大，这是因为Delphi编译时，把很多没有用的包也编译进去了，可以在编译前点”Project” - “Option”里面，将Build with runtime packages打勾，只包含我们需要的包。 这样生成的组件就只有 Delphi生成COM组件到此完成。 C#调用串口通信组件 C#调用串口通信组件可以通过JavaScript进行调用。 生成页面如下 页面代码为： %@ Page Language=C# AutoEventWireup=true CodeFile=Default2.aspx.cs Inherits=Default2 % !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head runat=server title无标题页/title script type=text/javascript function StartComActiveX() { My