Delphi 封装Clientsocket 方法SendText 之后必须showmessage之后 客户端才能接收到信息。

[sinat_22680749]

try
Application.CreateForm(TForm1, Form1);
socket := TClientSocket.Create(Application);
socket.Port := Port;
socket.OnConnect := Form1.ClientSocket1.OnConnect;
socket.OnError := Form1.ClientSocket1.OnError;
socket.Active := False;
socket.Host := ServerIp;
socket.Active := true;
socket.Socket.SendText(Msg);

ShowMessage('1');

finally
socket.Free;
// socket:=nil;
Form1.Free;

end;