如题,在线等待。
以下是在DLL中接收线程中的代码
procedure TRecThread.Execute;
begin
FreeOnTerminate:=true;
while not terminated do
begin
try
DMFrm.sTCPClient.CheckForDisconnect(true,False);
DMFrm.sTCPClient.ReadBuffer(SeatSendMsg, SizeOf(SeatSendMsg));
Synchronize(RecData);
except
DMFrm.sTCPClient.DisconnectSocket;
Terminate;
end;
end;
end;
以下是在DLL中接收线程中的代码
procedure TRecThread.Execute;
begin
FreeOnTerminate:=true;
while not terminated do
begin
try
DMFrm.sTCPClient.CheckForDisconnect(true,False);
DMFrm.sTCPClient.ReadBuffer(SeatSendMsg, SizeOf(SeatSendMsg));
Synchronize(RecData);
except
DMFrm.sTCPClient.DisconnectSocket;
Terminate;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货