客户机主动发送(代码来自网络) var I: Integer; ConnContext: TIdContext; begin with IdTCPServer1.Contexts.LockList do try for I := 0 to Count - 1 do begin ConnContext := TIdContext(Items[I]); ConnContext.Connection.IOHandler.Write(…); end; finally IdTCPServer1.Contexts.UnlockList; end; end;
客户机接收 procedure TFormClient.IdTCPServerExecute (AContext: TIdContext); var Msg: string;
begin Msg:=IdTCPClient.IOHandler.ReadLn; end; 但客户机没有响应,不知为什么?谢谢高手指教。
----------------------------------------------
-