1,593
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.IdTCPServerExecute(AContext: TIdContext);
begin
try
//常规处理代码
except
on E: Exception do
begin
showmessage('tcpServerExecute: Error. Reason - ' + E.Message);
showmessage('对方掉线或者退出了');
end;
end;
end;