delphi tcp/ip IdTCPServer1实例一

最新推荐文章于 2025-02-09 08:04:11 发布

潇湘博客

最新推荐文章于 2025-02-09 08:04:11 发布

阅读量1w

点赞数

分类专栏： DELPHI技术文章标签： delphi button string server forms windows

本文链接：https://blog.youkuaiyun.com/fkedwgwy/article/details/4140403

版权

该博客介绍了如何在Delphi中使用TIdTCPServer组件创建一个简单的TCP/IP服务器。通过点击按钮启动和停止服务器，监听特定IP和端口，并处理客户端连接发送的特定字符串（'begin', 'end', 'qx'）进行不同操作。" 120956685,11210163,Java对象与类详解,"['Java', '面向对象', '类', '对象实例化', '数据域']

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.