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