企业官网建设流程全解析

网站设计深圳联系电话?,清控人居建设集团网站,推荐十个国外网站,h5婚纱摄影网站模板Lazarus 本身有MSCOMM类似的组件#xff0c;只是将mscomm当成调用例子的道具。本来是在codetyphon上练的#xff0c;它和Lazarus没什么特别的地方#xff0c;而且开发团队韧性和支持能力相比Lazarus相差很多#xff0c;就用Lazarus简单写一下ole调用过程吧。用OLE方式调用C…Lazarus 本身有MSCOMM类似的组件只是将mscomm当成调用例子的道具。本来是在codetyphon上练的它和Lazarus没什么特别的地方而且开发团队韧性和支持能力相比Lazarus相差很多就用Lazarus简单写一下ole调用过程吧。用OLE方式调用COM组件非常简单记录如下1. 找到MSCOMM在系统中注册的CLASS名称可借助type library工具。MSCOMM注册的类名称是MSCommlib.MSComm或MSCommlib.MSComm.12. 在工程项目的USE中将ComObj和ActiveX引用进去类似uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ComObj, ActiveX;3. 根据类名称创建实例然后通过实例操作MSCOMM方法与VB6操作类似。procedure TForm1.Button1Click(Sender: TObject); var COMObj: OleVariant; // 存储COM对象实例 begin try CoInitialize(nil); try COMObj : CreateOleObject(MSCommlib.MSComm.1); COMObj.CommPort : 3; COMObj.Settings : 9600,n,8,1; COMObj.PortOpen : True; COMObj.OutPut : Hello World!; COMObj.PortOpen : False; finally COMObj : Unassigned; CoUninitialize; end; except // 捕获COM专属异常精准定位问题 on E: EOleException do Writeln(COM方法调用异常, E.Message, (错误码, E.ErrorCode, )); on E: EOleSysError do Writeln(COM系统错误, E.Message, (错误码, E.ErrorCode, )); on E: Exception do Writeln(其他异常, E.ClassName, - , E.Message); end; end;试练验证过了就此记录下来。