同步操作的
procedure TIdPeerThread.Run;
TIdPeerThread = class(TIdThread)
procedure TIdPeerThread.Run;
begin
if not Connection.Server.DoExecute(Self) then begin
end;
function TIdTCPServer.DoExecute(AThread: TIdPeerThread): boolean;
begin
Result := Assigned(OnExecute);
if Result then begin
OnExecute(AThread); // 你的代码
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024