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.

源代码下载：