看源码,InUdpServer里有个监听者线程procedure TIdUDPListenerThread.Run; var PeerIP: string; i, PeerPort, ByteCount: Integer; begin ... if FServer.ThreadedEvent then begin UDPRead; end else begin Synchronize(UDPRead); end; ... end;所以你要在OnRead事件线程方式处理?需要把ThreadedEvent设为true,然后在OnRead事件处理程序里自己写个线程处理。
ABinding: TIdSocketHandle);ABinding就是对应线程的
var
PeerIP: string;
i, PeerPort, ByteCount: Integer;
begin
...
if FServer.ThreadedEvent then begin
UDPRead;
end else begin
Synchronize(UDPRead);
end;
...
end;所以你要在OnRead事件线程方式处理?需要把ThreadedEvent设为true,然后在OnRead事件处理程序里自己写个线程处理。