实例——应用tidtcpclient和tidtcpserver组件.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

unit UClient;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient;
type
  TFClient = class(TForm)
    ListBox1: TListBox;
    TCPClient: TIdTCPClient;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FClient: TFClient;

implementation

{$R *.dfm}

procedure TFClient.Button1Click(Sender: TObject);
begin
  with TCPClient do
  begin
  //建立与服务器的连接
  Connect;
  try
  //将客户端收到的数据添加到列表中
    ListBox1.Items.Add(ReadLn);
  finally
  Disconnect;
  end;
  end;
end;
end.

unit U_Server;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer;
type
  TFServer = class(TForm)
    IdTCPServer1: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FServer: TFServer;

implementation

{$R *.dfm}

procedure TFServer.FormCreate(Sender: TObject);
begin
   IdTCPServer1.Active := True;
end;

procedure TFServer.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
  //向与服务器连接的客户发送一条简单的消息
  WriteLn('欢迎访问TCP服务器！');
  //断开连接
  Disconnect;
  end;
end;

end.