www.pudn.com > linuxclient.rar > ClientUnit.pas

unit ClientUnit;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient;

type
  TForm1 = class(TForm)
    IdTCPClient: TIdTCPClient;
    IdAntiFreeze1: TIdAntiFreeze;
    edtHost: TEdit;
    edtPort: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    edtData: TEdit;
    procedure IdTCPClientConnected(Sender: TObject);
    procedure IdTCPClientDisconnected(Sender: TObject);
    procedure IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdTCPClientWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdTCPClientWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.IdTCPClientConnected(Sender: TObject);
begin
//
end;

procedure TForm1.IdTCPClientDisconnected(Sender: TObject);
begin
//
end;

procedure TForm1.IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
//
end;

procedure TForm1.IdTCPClientWorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
//
end;

procedure TForm1.IdTCPClientWorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
//
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 sData : string;
begin
  IdTCPClient.Host := edtHost.Text;
  IdTCPClient.Port := StrToIntDef(edtPort.Text,6666);
  IdTCPClient.Connect(5000);
  IdTCPClient.WriteLn(edtData.Text);
  sData := IdTCPClient.ReadLn();
  memo1.Lines.Add(sData);
  IdTCPClient.Disconnect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTCPClient.Disconnect;
end;

end.