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

2015-07-28 03:35:29 323 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sinat_22680749 墨衍会员 · AI 创作全网分发关注 + 加入社区

solidworks实体显示线框 solidworks实体莫名其妙显示为有点虚的线框阅读详情

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;

...全文