关于网友提出的“动态创建TClientSocket出现问题”问题疑问，本网通过在网上对“动态创建TClientSocket出现问题”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题：动态创建TClientSocket出现问题
描述:
本帖最后由 I_can_ 于 2015-08-16 12:44:24 编辑
delphiTClientSocket
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 = class(TForm)
mmo1: TMemo;
btn2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
FClient: TClientSocket;
procedure OnSocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure OnSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn2Click(Sender: TObject);
begin
FClient.Host := '127.0.0.1';
FClient.Port := 5200;
FClient.Open;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FClient := TClientSocket.Create(nil);
FClient.OnRead := OnSocketRead;
FClient.OnConnect := OnSocketConnect;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FClient.Free;
end;
procedure TForm1.OnSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
mmo1.Lines.Add(Socket.ReceiveText);
end;
procedure TForm1.OnSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText('hello');
end;
end.
以上介绍了“动态创建TClientSocket出现问题”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/1036103.html
