在 Delphi 的线程中使用串行端口组件 TComPort (v4) 中的事件？

Question

几年前，当某个应用必须非常快速地响应某些串行事件时，我将我的一个应用程序的串行处理转移到一个线程中。

它是在 BDS2006 中，有一个旧版本（一些 3.x？）它是通过在 tthread.execute 中包含这样的代码来完成的：

    while ...
          begin
          events:=[evRxChar];
          { Prepare a stop event for killing a waiting communication wait. }
           try
             comport1.WaitForEvent(events,stopevent.handle,500);
             if evRxChar in events then
               ComPort1RxChar(comport1,comport1.InputCount); // method of thread.
           on e: exception do {only logs} ;
           end;

初始化就像

procedure TSerThread.initcomport(comportname:string='COM1');
begin
 comport1:=tcomport.create(nil);
 ComPort1.BaudRate:=br115200;
 ComPort1.DataBits:=dbEight;
 ComPort1.Port:=comportname;

 ComPort1.StopBits:=sbOneStopBit;
 ComPort1.Events:=[];
 ComPort1.Connected:=true;

 StopEvent := TEvent.Create(nil,{ManualReset}false,{InitialState}false,'StopEvent');
end;

rxchar 方法读取使用 comport1.readstr()

我最近不得不对此进行挖掘，并注意到它在我的具有 tcomport4 的 Delphi XE 中不起作用。在查看源代码时，我看到了以下评论 comport4 改变了它处理其内部线程的方式（“重叠”属性），但默认似乎是“真”有注释“经典”，我

假设这意味着与旧版本兼容。

注意协议是二进制的，所有的string,char ansistring,ansichar 的改变都和我在普通主线程版本中一样

现在是真正的问题：

1. 有人让 tcomport4 在线程中工作吗？
2. 上面有明显的错误吗？
3. 还是我需要迁移到其他组件？

我仍在调试发生了什么，但我很着急，我在发布此消息时希望快速获得指针。

更新

我重新安装了一个旧的 turbo delphi 副本，并验证它在 v3 中可以正常工作。我在代码路径中修复了一个小错误，它与我的想法有点不同（不是在上面的代码中）

这让我可以更好地描述 dxe/comportv4 和 bds2006/comportv3 之间的行为； v4 代码生成更多的读取事件（数百次/秒）。似乎读取不会从传入队列中删除读取的字符。

更新 2

我对最新版本进行了快速测试，并进行了必要的重新排列（杀死字符串函数用于本质上的二进制协议）。我被卡住了一段时间，因为应用程序在启动时崩溃了，但那是因为我使用了 gnugettext，而 Comport 打包了一个不同的（甚至非 unicode？）版本。但在那之后它起作用了。

不幸的是，这些更改传播回生产版本（完全编写的协议解码）有点冒险，所以我必须测试中间版本（4.0 和 4.11f 之间）。我会在适当的时候这样做，有什么建议是最后一个 readstr(ansistring) 版本吗？

更新 3

最后，我只是重命名了 4.11f 单元并将它们与旧版本并行使用，将 4.11f 用于线程代码库并使用旧版本来维护现有代码。

从长远来看，我可能会简单地采用 waitforevent 代码并制作自己的版本。它的主要问题是无法查看等待是否在超时、停止事件或其他情况下终止。这意味着您需要另一个计时器，例如定期发送。

Answer 1

您需要升级到最新的稳定版 4.11 版本here。