unit1.~pas

Tcp链接

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, StdCtrls,shellapi;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    IdTCPClient1: TIdTCPClient;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure DisPlaylog(listlog:string);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DisPlaylog(listlog:string);
var
stlog:string;
begin
stlog:=listlog;
listbox1.items.add(listlog);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//winexec(pchar('E:\carrot\delphi\第八章 实例五 网络文件传输\Source\Server\Server.exe'),SW_HIDE);
//shellexecute(handle,'open',pchar('E:\carrot\delphi\第八章 实例五 网络文件传输\Source\Server\Server.exe'),nil,nil,sw_hide);
edit1.Text:='192.168.100.147';
edit2.Text:='8500';
IdTCPClient1.Host:=edit1.text;
IdTCPClient1.Port:=strtoint(edit2.text);
DisPlaylog('正在连接'+edit1.text);
with IdTCPClient1 do
begin
try
connect(500);
try
displaylog(readln());
button1.Enabled:=false;
button2.Enabled:=true;
button3.Enabled:=true;
except
displaylog('远程主机无响应');
Disconnect;
end;
except
displaylog('无法建立到'+edit1.text+'的连接');
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
displaylog('发送数据：DATA'+edit3.text);
with IdTCPClient1 do
begin
try
Writeln('DATA'+edit3.text);
displaylog(readln());
except
displaylog('发送数据失败');
disconnect;
displaylog('同主机'+edit1.text+'的连接已经断开');
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
displaylog('QUIT');
try
IdTCPClient1.WriteLn('QUIT');
finally
IdTCPClient1.Disconnect;
displaylog('同主机'+edit1.text+'的连接已经断开');
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
end;
end;

procedure TForm1.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
Form1.Button2.Click;
edit3.text:='';
end;
end;

end.