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;
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/82140.html
下一篇:delphi的ValueListEditor,如何獲取某行Value當前下拉選單的index?index如何賦初值?
