应用TIdTCPClient和TIdTCPServer组件

最新推荐文章于 2019-08-20 19:59:00 发布

niochen

最新推荐文章于 2019-08-20 19:59:00 发布

阅读量751

点赞数

分类专栏： Delphi 文章标签： forms button 服务器 windows class tcp

本文链接：https://blog.csdn.net/jfree5200/article/details/3913039

版权

Delphi 专栏收录该内容

95 篇文章 1 订阅

订阅专栏

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.