UC知道delphi 串行通信口的实现？
来源：百度知道 编辑：UC知道 时间：2024/05/12 16:15:50
我看到下面的这些代码：
procedure InitAsync(var AsyncPtr: PAsync);
New(AsyncPtr);
with AsyncPtr^ do
begin
FillChar(Overlapped, SizeOf(TOverlapped), 0);//啥意思？
Overlapped.hEvent := CreateEvent(nil, True, True, nil);
//上句据了解是创建什麽同步事件。怎麽理解阿？
Data := nil;
Size := 0;
end;
其中：TYPE TAsync = record
PAsync = ^TAsync; data:pointer; size:integer;
procedure InitAsync(var AsyncPtr: PAsync);
New(AsyncPtr);
with AsyncPtr^ do
begin
FillChar(Overlapped, SizeOf(TOverlapped), 0);//啥意思？
Overlapped.hEvent := CreateEvent(nil, True, True, nil);
//上句据了解是创建什麽同步事件。怎麽理解阿？
Data := nil;
Size := 0;
end;
其中：TYPE TAsync = record
PAsync = ^TAsync; data:pointer; size:integer;
同步事件就是同一时刻只接收一个事件消息
先分配AsyncPtr同步指针的内存空间
然后填充Overlapped类
你的记录声明不完整，我的判断是Overlapped类是TAsync记录的一个成员。
然后创建Overlapped类的同步事件句柄
第三个参数为True即表示同步，为False表示异步