delphi tcp/ip IdTCPServer1实例一

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls;

type

TForm1 = class(TForm)

IdTCPServer1: TIdTCPServer;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure IdTCPServer1Execute(AThread: TIdPeerThread);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

IdTCPServer1.Bindings.Clear;

IdTCPServer1.Bindings.Add.IP:='192.168.1.126';

IdTCPServer1.Bindings.Add.Port:=168;

IdTCPServer1.Active:=true;

if IdTCPServer1.Active then

//showmessage('Server running')

edit1.Text:='Server running'

else

edit1.Text:='Server stop'

end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var

m_string:string;

begin

m_string:=AThread.Connection.ReadLn();

if m_string='begin' then

begin

AThread.Connection.WriteLn('我是要传的文字!');

edit1.Text:='准备传输';

exit;

end;

if m_string='end' then

begin

edit1.Text:='传输结束';

exit;

end;

if m_string='qx' then

begin

edit1.Text:='取消传输';

exit;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

IdTCPServer1.Destroy;

edit1.Text:='Server stop';

end;

end.

源代码下载：http://download.csdn.net/source/1261880