Delphi:TComPort封装在DLL中,通讯时无法接收串口数据的解决办法

现象：
将Tcomport（版本：ComPort Library ver. 3.0 ）封装在DLL中，进行串口通讯时，无法接收数据！

解决办法：
在创建组件时，只需要更改一个属性的设置就可以了。如下所示：
//DLL入口

talencaport:=ttalencaport.Create(nil);
talencaport.port:='COM1';
talencaport.SyncMethod:=smWindowSync;
talencaport.OnRxChar:=talencaport.readbuf;
红色加粗的代码就是关键的一句代码！加入此句代码后，在DLL中发送与接收数据就与在窗体上使用一样。

分析：
由于工作需要，一直使用DELPHI5，DELPHI7两个版本进行开发。在DELPHI5中，将TCOMPORT封装在DLL中使用，没有任何的异常。后来抱成DELPHI7后，当时以为，同样的代码，应当没有什么问题。于是，编译。成功！哈！原来版本升级这么容易！也没有多想，没有测试，就把这事情放在了脑后。-_-!!

时间过了一个月，公司有设备要进行测试，因此，自己很高兴地把新的东西用来测试，结果，所有的通讯指令均是失败（无数据）！头顿时就要炸了。。。。。。

还好，是自己测试，有问题还算是可以补救的。仔细看源码，与DELPHI5下的源码是一样的，为什么在DELPHI7下就接收不到数据呢？看来问题还是在TCOMPORT本身上。（：），偶还是粉相信DELPHI实力的！：））
一看DLL入口代码：
talencaport:=ttalencaport.Create(nil);
talencaport.port:='COM1';
talencaport.OnRxChar:=talencaport.readbuf;
似乎也看不出什么问题来。

心想，是不是在发送完数据后，要延时一点时间呢，于是在发送完数据后，加入一个延时100ms和小过程(这个延时时间跟我们的设备相关)，结果发现还是收不到数据。看来不是这个延时的问题。
延时过程代码：
var Com_waittime:cardinal;
Com_waittime:=gettickcount;
While gettickcount- Com_waittime<100 do application.processmessages;

没有办法，只能看TCOMPORT源码了。一看源码，TCOMPORT的收数据是由线程完成的。相应线程类是：TcomThread；因此，决定看看线程优先级。哦，是tpNormal.那调高这个优先级会不会有所改善？改成tohigher,tphighest…问题依然！看来与线程优先级无关。
再仔细研究这个线程的代码，
TComThread = class(TThread)
private
FComPort: TCustomComPort;
FStopEvent: THandle;
FEvents: TComEvents;
protected
procedure DispatchComMsg;
procedure DoEvents;
procedure Execute; override;
procedure SendEvents;
procedure Stop;
public
constructor Create(AComPort: TCustomComPort);
destructor Destroy; override;
end;

从Execute入口，得知：线程内部是利用了系统事件对象完成对串口数据接收的触发。当收到事件后，把系统对应的事件保存在组合的属性中。

TComEvent = (evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR,
evError, evRLSD, evRx80Full);
TComEvents = set of TComEvent;

// if event occurs, dispatch it
if (Signaled = WAIT_OBJECT_0 + 1)
and GetOverlappedResult(FComPort.Handle, Overlapped, BytesTrans, False)
then
begin
//
FEvents := IntToEvents(Mask);
DispatchComMsg;
end;

从蓝色的代码可知：当发生串口事件时，保存事件类型，然后就分发事件，找对应的事件来执行这个接收过程了。于是再看DispatchComMsg方法：
// dispatch events
procedure TComThread.DispatchComMsg;
begin
case FComPort.SyncMethod of
smThreadSync: Synchronize(DoEvents); // call events in main thread
smWindowSync: SendEvents; // call events in thread that opened the port
smNone: DoEvents; // call events inside monitoring thread
end;
end;

在doEvents这个同步方法中，无法执行相应的事件。从注释来看，是指在主线程中执行这个操作，由于此时是封装在DLL中，没有主线程存在，因此，这个方法的执行也就是石沉大海了。这就是无法接收数据的原因了。

而第二个项就是：调用打开串口的线程对应事件。看来这个有戏。因此，将组件线程的同步方法类型改成smWindowSync。
果然，接收数据正常。

对于第三个选项：在监视线程中执行事件，本人没有测试，因为时间关系。。。。。哎，有兴趣的DELPHIER可以试试。。。。。。。