【控件功能】我来做练习-第60课-TCP Client Server

大龙软件研发

于 2024-05-09 04:49:32 发布

阅读量918

点赞数 11

分类专栏：编程软件控件研究文章标签： DELPHI TCP Client Server

本文链接：https://blog.csdn.net/reson100/article/details/138593679

版权

这篇博客介绍了一种使用Delphi编程语言实现TCP客户端和服务器的交互方式。通过核心源码展示了如何创建TIdTCPServer组件来处理连接、读取和断开客户端的事件，并使用TIdTCPClient组件进行通信。博客内容包括服务器端的连接处理、执行操作和断开连接的函数，以及客户端的连接、发送消息和接收消息的实现。

摘要由CSDN通过智能技术生成

文章目录

TCP Client Server

提示：这里可以添加技术概要

请添加图片描述

核心源码

提示：服务端
unit ServerFrmMainUnit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, IdTCPServer, IdThreadMgr, IdThreadMgrDefault, IdBaseComponent,
IdComponent;

type
PClient = ^TClient;
TClient = record // Object holding data of client (see events)
DNS : String[20]; { Hostname }
Connected, { Time of connect }
LastAction : TDateTime; { Time of last transaction }
Thread : Pointer; { Pointer to thread }
end;

TServerFrmMain = class(TForm)
Server: TIdTCPServer;
CBServerActive: TCheckBox;
Protocol: TMemo;
IdThreadMgrDefault1: TIdThreadMgrDefault;

                 procedure CBServerActiveClick(Sender: TObject);
                 procedure ServerConnect(AThread: TIdPeerThread);
                 procedure ServerExecute(AThread: TIdPeerThread);
                 procedure ServerDisconnect(AThread: TIdPeerThread);
                 procedure FormCreate(Sender: TObject);
                 procedure FormClose(Sender: TObject; var Action: TCloseAction);

                private

                public
               end;

var
ServerFrmMain : TServerFrmMain;
Clients : TThreadList; // Holds the data of all clients

implementation

uses GlobalUnit;

{$R *.DFM}

procedure TServerFrmMain.CBServerActiveClick(Sender: TObject);
begin
Server.Active := CBServerActive.Checked;
end;

procedure TServerFrmMain.ServerConnect(AThread: TIdPeerThread);
var
NewClient: PClient;

begin
GetMem(NewClient, SizeOf(TClient));

NewClient.DNS := AThread.Connection.LocalName;
NewClient.Connected := Now;
NewClient.LastAction := N