unit Unit1;interfaceuses 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
转载于:https://www.cnblogs.com/bhlsheji/p/4007009.html
相关资源：IdTcpClient、IdTcpServer 演示程序修正版