Lazarus调用COM组件MSCOMM之OLE方法

Lazarus 本身有MSCOMM类似的组件，只是将mscomm当成调用例子的道具。本来是在codetyphon上练的，它和Lazarus没什么特别的地方，而且开发团队韧性和支持能力相比Lazarus相差很多，就用Lazarus简单写一下ole调用过程吧。

用OLE方式调用COM组件非常简单，记录如下：

1. 找到MSCOMM在系统中注册的CLASS名称，可借助type library工具。MSCOMM注册的类名称是MSCommlib.MSComm或MSCommlib.MSComm.1

2. 在工程项目的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;

试练验证过了，就此记录下来。