const WM_COMMREAD = WM_USER + $0081;
在线程中等
while True do begin
if WaitCommEvent(handle,EV_DSR,nil) = Wait_Object_0 then begin
SendMessage(Hwnd,WM_COMMREAD,0,0);
ResetEvent(EV_DSR);
end;
end;接收度消息就可以了
procedure wndproc(var msg: TMsg);
begin
if msg.Message = WM_COMMREAD then begin
//读COM
end;
Inherited;
end;
在线程中等
while True do begin
if WaitCommEvent(handle,EV_DSR,nil) = Wait_Object_0 then begin
SendMessage(Hwnd,WM_COMMREAD,0,0);
ResetEvent(EV_DSR);
end;
end;接收度消息就可以了
procedure wndproc(var msg: TMsg);
begin
if msg.Message = WM_COMMREAD then begin
//读COM
end;
Inherited;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货