尧图网页设计 
简介Indy10网络组件完整源码包面向CBuilder 4~6、2006~2010、XE~XE8版本开发者解决在旧版与新版环境中安装使用Indy10的难题。包内提供全套Pascal源文件约380个pas、头文件、工程文件、编译脚本及已编译成果涵盖dpk、bpl、lib等关键类型支持通过批处理一键完成源码编译与组件安装。压缩包共含1507个文件整体约7.1MB结构清晰可直接按版本选用对应编译脚本。与旧版Indy9相比Indy10在架构和协议实现上有较大变化借助这份资源可避免逐一手动配置库路径与组件注册的繁琐流程。已有370人学习下载适合需要快速集成Indy10网络功能、规避手工配置风险的CBuilder项目开发者。1. Indy10到底是什么以及它凭什么能长期占据Delphi网络库的核心位置用Delphi写网络通信的程序员基本都会和Indy打交道。从Delphi 6时代开始Indy就是IDE自带的网络组件库到了Delphi XE之后内置的版本就一直是Indy10。刚开始用Indy10的人往往会觉得别扭——和Indy9的用法差别太大很多老的代码直接搬过来根本编译不过。但真正吃透它的设计思路之后你会发现这套架构其实非常清晰用好了能省下大量造轮子的时间。Indy10全称是Internet Direct是开源的网络组件套件覆盖了TCP、UDP、HTTP、FTP、SMTP、POP3、IMAP、SNMP、SSH、SSL/TLS等上百种协议。它不是简单的接口封装而是把网络编程里反复出现的底层逻辑抽成了可复用的组件层。它的适用人群很明确用Delphi或CBuilder做桌面端网络工具、自研服务端、客户端通信模块的开发者。如果你是刚开始接触网络编程的Delphi新手Indy10也是最合适的起点因为它在设计上把阻塞式网络模型做到了极致简单理解起来比事件驱动类的异步框架直观得多。值得多说一句的是Indy10的组件化理念本身就是它区别于很多网络库的关键。它把所有功能拆成可以组合的积木连接层、读写层、协议层、安全层各管各的用的时候拼在一起。这种思路和现在流行的组件化开发殊途同归只不过Indy10在二十多年前就已经按这个方向设计了。1.1 从Indy9到Indy10一次彻底的架构重写很多人不理解为什么Indy10和Indy9的代码风格差别这么大其实核心原因是架构重写了。Indy9的很多组件把连接逻辑、数据处理逻辑混在一起用起来直观但扩展性很差。Indy10则引入了一套上下文分离的抽象层把网络连接中不同关注点拆开各做各的事。举一个最简单的例子在Indy9里一个TIdTCPServer的OnExecute事件里直接读写连接就行但Indy10里这个连接被抽象成了AContext上下文对象真正的读写走的是AContext.Connection.IOHandler。听上去绕了一层但好处是你可以直接拿到连接的信息、绑定的线程对象、自定义的数据存储空间在写多线程服务器时非常有用。从Indy9迁移到Indy10最常踩的坑有三个一是属性名改了比如TIdHTTP的Request.Header属性从字符串变成了TIdHeaderList对象二是事件参数变了服务端事件的参数从Socket句柄变成了TIdContext三是超时和读写缓冲区的机制不一样了。如果你在维护老项目升到Indy10时一定要把这些差异单列出来逐项处理不要指望编译通过就完事。1.2 不止是TCP/IPIndy10的协议全家桶Indy10覆盖的协议范围大得惊人下面这张表列的是最常用的一批分类组件用途TCP基础TIdTCPClient / TIdTCPServer自定义TCP通信UDP基础TIdUDPClient / TIdUDPServer广播、音视频、游戏同步HTTPTIdHTTP / TIdHTTPServerWeb API调用、本地服务邮件TIdSMTP / TIdPOP3 / TIdIMAP4收发邮件文件传输TIdFTP / TIdFTPServer文件上传下载安全TIdSSLIOHandlerSocketOpenSSLTLS/SSL加密通道命令行TIdTelnet / TIdSSH远程管理这套协议全家桶意味着你做一个软件从底层TCP通信到上层邮件通知全部可以用同一套组件库搞定不需要东拼西凑引入三四个不同的第三方库。而且Indy10是跨平台的Windows、Linux、macOS都能用在FMXFireMonkey框架下也可以正常工作这在做跨平台工具时非常香。2. 核心架构拆解IOHandler、Context和Intercept看懂这三个就掌握了Indy10的命门Indy10的架构核心其实就是三件事数据怎么读写、连接状态怎么管理、数据流怎么加工。对应的三个概念就是IOHandler、Context和Intercept。我见过不少开发者写Indy10代码写了两三年还是只会把组件拖到窗体上改改属性一遇到问题就抓瞎。其实只要把这三层搞清楚大部分问题自己就能推理出答案。2.1 IOHandler所有数据读写的根基IOHandler是Indy10的灵魂全称是Input/Output Handler。不管你是用TIdTCPClient还是TIdTCPServer所有的读写最终都落在IOHandler上。它做的事情很简单把网络字节流和Delphi的字符串、字节数组互转。常用的读写方法有几个ReadByte / ReadInteger / ReadString按类型读数据Write / WriteLn写数据ReadBytes / ReadStream读原始字节流ReadTimeout / WriteTimeout控制超时这里有个重点Indy10默认是阻塞式的读写方法会一直卡到数据到位或者超时。所以写服务器代码时要记住OnExecute事件本身就运行在独立的线程里不用额外开线程这是Indy10简化并发的重要手段。而写客户端代码时要把读写操作放到后台线程否则界面会卡死。我常用的写法是把IOHandler的读写超时设成固定值比如5秒这样即使对方掉线也不会无限等下去。具体设置方式IdTCPClient1.IOHandler.ReadTimeout : 5000; // 毫秒2.2 Context连接的身份档案在Indy10的服务器端每一个客户端连接进来都会对应一个TIdContext对象。这个对象有点像HTTP里的Session它保存了当前连接的状态信息。你可以通过TIdContext访问到对应的连接、IOHandler也可以往它的Data属性里放任何自己定义的数据。这设计解决了Indy9时代一个很麻烦的问题以前写多线程服务器时要把Socket信息到处传来传去很容易出错。Indy10里直接通过Context就能定位到当前连接同时Context和线程一一绑定处理并发时很清晰。procedure TForm1.IdTCPServer1Connect(AContext: TIdContext); begin // 每个连接进来时给它一个独立的记录对象 AContext.Data : TClientInfo.Create(AContext.Connection.Socket.Binding.PeerIP); end;这里的注意点Context的生命周期要自己维护好连接断开时记得释放Data里挂着的对象不然内存泄漏。在OnDisconnect事件里做清理是我个人比较推荐的惯例。2.3 Intercept数据流的中间滤镜Intercept是Indy10里很有意思的一个扩展点。它是一个挂在连接上的数据拦截器每次发送或接收数据时都会先经过它处理。常见的用法是实现日志记录、数据压缩、简单的自定义加密甚至做协议调试时的偷看工具。TIdIntercept本身是个抽象基类你可以继承它实现自己的逻辑。还有几个现成的子类可以用比如TIdLogFile可以把收发数据写到日志文件调试协议格式时特别有用。3. 实操示例半小时搭一个基于TIdTCPServer的客户端/服务端通信光讲理论没什么感觉我直接用一个具体的例子演示。场景很常见一个局域网内的消息推送程序服务端运行在Windows机器上客户端连上来后可以接收实时消息。我会把关键代码贴出来并且把容易出错的地方标出来。3.1 服务端先让监听跑起来拖一个TIdTCPServer到窗体上设置好默认端口绑定OnExecute和OnConnect事件。基本步骤就三步procedure TForm1.FormCreate(Sender: TObject); begin IdTCPServer1.DefaultPort : 8600; IdTCPServer1.Bindings.Clear; IdTCPServer1.Bindings.Add.IP : 0.0.0.0; // 监听所有网卡 IdTCPServer1.Active : True; end; procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var s: string; begin // 阻塞读一行客户端发来数据后才继续 s : AContext.Connection.IOHandler.ReadLn; // 收到消息后转发给所有在线客户端 TForm1(Nil).BroadcastMessage(s); end;里面那个BroadcastMessage是我自己写的方法用来把消息群发到所有连接。实现方式很简单遍历Contexts列表逐个写入procedure TForm1.BroadcastMessage(const Msg: string); var i: Integer; Ctx: TIdContext; begin TIdContextList.LockList(IdTCPServer1.Contexts); try for i : 0 to IdTCPServer1.Contexts.Count - 1 do begin Ctx : IdTCPServer1.Contexts[i]; Ctx.Connection.IOHandler.WriteLn(Msg); end; finally TIdContextList.UnlockList(IdTCPServer1.Contexts); end; end;注意这里的锁。Contexts列表是跨线程访问的直接遍历有并发风险必须要LockList。我一开始没加锁结果运行一段时间后偶尔会出现List index out of bounds的报错排查了很久才找到原因。这个问题非常隐蔽建议所有涉及Contexts列表遍历的地方都加上锁。3.2 客户端连接、发送、接收一整套客户端的代码更简单。TIdTCPClient连上之后用IOHandler读写就行IdTCPClient1.Host : 127.0.0.1; IdTCPClient1.Port : 8600; IdTCPClient1.Connect; try IdTCPClient1.IOHandler.WriteLn(hello from client); Reply : IdTCPClient1.IOHandler.ReadLn; finally IdTCPClient1.Disconnect; end;这里有个值得说说的细节ReadLn默认按换行符截断所以服务端和客户端最好约好统一用WriteLn/Ln结尾写数据不然读端会一直阻塞等换行符导致双方死等。如果你传输的是二进制结构体就用Write(AIdTCPClient.IOHandler, Buffer)配合ReadBytes来保证数据长度准确。3.3 为什么阻塞模式反而是优势有些用惯了异步框架如Node.js、Netty的开发者会对Indy10的阻塞模式表示质疑。实际上阻塞模式加上多线程在桌面工具这类场景下反而更省心。因为网络逻辑可以顺序写不需要把回调函数拆得七零八落。Indy10每一个连接占一个线程连接数不多时完全够用。但要注意线程开销是真实存在的如果你的服务器要扛上千个长连接Indy10的性能就有瓶颈了。这时候可以考虑连接池、异步改造或者直接换用其他框架。不过话说回来桌面级工具和中小型内部服务Indy10绰绰有余别过度设计。4. 核心细节解析TIdHTTP、SSL/TLS是绕不开的两座山TCP自己写协议适合私有通信但如果要对接外部系统的HTTP APITIdHTTP是出场率最高的组件。它兼顾了HTTP客户端、HTTPS、上传下载、Cookie管理等能力。用起来并不复杂但有几个细节需要提前知道不然很容易掉坑。4.1 TIdHTTP的基本用法调用一个JSON接口核心代码大致是这样var HTTP: TIdHTTP; Response: string; begin HTTP : TIdHTTP.Create(nil); try HTTP.HandleRedirects : True; // 自动跟随302 HTTP.ReadTimeout : 10000; Response : HTTP.Get(https://api.example.com/data); // Response就是响应体字符串 finally HTTP.Free; end; end;如果接口要求GET带参数、POST带JSON body也可以通过TIdHTTP的Request和Params参数实现。POST一个JSON字符串我习惯直接构造好字符串丢给Get或Post比慢慢填ParamList方便HTTP.Request.ContentType : application/json; charsetutf-8; Response : HTTP.Post(https://api.example.com/submit, TStringStream.Create(jsonString));4.2 SSL/TLS配置一定记得处理DLL依赖HTTPS请求必须搭配SSL IOHandler否则TIdHTTP会直接报错。使用方法在窗体上放一个TIdSSLIOHandlerSocketOpenSSL把它的Host属性和TIdHTTP.IOHandler关联。但麻烦的点在于Indy10的SSL是基于OpenSSL的运行时需要对应版本的DLL文件。不同Delphi版本内置的Indy10版本不一样对应的OpenSSL版本也会有差异。比如Delphi XE6时代常见的是OpenSSL 1.0.x而新版Delphi 11/12搭配的Indy10往往需要OpenSSL 1.1.1或更高。如果缺少DLL运行时一般会报Could not load SSL library的错误。解决办法有两个方向下载对应版本的OpenSSL DLL旧版为libeay32.dll和ssleay32.dll新版为libssl-1_1-x64.dll和libcrypto-1_1-x64.dll放到程序运行目录或系统路径中使用第三方封装库如TMS的SSL组件或SynCrypto直接静态编译进程序省去DLL分发的烦恼。我个人做发布版工具时更倾向于把DLL整理到exe同级的DLL子目录然后用代码动态加载这样不会污染系统目录卸载也干净。如果你只做一个内部小工具直接丢到exe目录是最省事的方式。4.3 HTTPS证书校验失败的排查思路另一个高频问题是HTTPS证书校验失败。如果目标服务器用的证书链不完整、自签名证书或者本地系统时间不对TIdHTTP都会抛证书校验异常。遇到这个问题先别急着跳过校验按这个顺序排查确认系统时间是否准确在浏览器里访问目标地址看证书是否正常如果是自签名或内部CA可以在OnVerifyPeer事件里处理确认证书指纹后放行实在不行再考虑完全跳过校验仅限内网测试环境正式环境绝不建议。完全跳过校验的写法procedure TForm1.IdSSLIOHandlerSocketOpenSSL1VerifyPeer( ASender: TObject; AOpenSSLObject: TIdOpenSSLOptions; var VVerifyResult: Boolean; var AVerified: Boolean); begin VVerifyResult : True; // 校验收到的证书 AVerified : True; // 标记校验结果 end;注意这是最后的手段生产环境千万不要这么干等于明文裸奔。5. 常见问题与排查技巧实录这些坑我都帮你踩过这一节全部是我在实际项目中真实遇到的Indy10问题整理成速查表形式方便你用到的时候快速定位。现象根因解决方法客户端连不上服务器但又不报错默认超时时间太长设置ConnectTimeout比如3000ms服务端一段时间后无响应线程堆积调大ListenQueue检查是否有连接未释放中文乱码编码不一致统一使用UTF-8IOHandler.DefStringEncoding : IndyUTF8EncodingHTTP请求报Could not load SSL library缺少OpenSSL DLL按4.2节方法补DLLReadLn无限卡住对端没发换行符改用ReadBytes指定长度或设置ReadTimeoutContexts列表越界多线程并发访问遍历用LockList/UnlockList上传大文件内存暴涨使用TStringStream载入全部内容改为TFileStream流式传输5.1 编码问题Delphi老鸟也容易翻车Delphi的string和网络字节流之间不是直接相等的。TIdTCPClient的IOHandler在读写字符串时用什么编码完全由DefStringEncoding属性决定。早期版本默认是ASCII一旦传中文就会出现问号。我现在的统一标准是IdTCPClient1.IOHandler.DefStringEncoding : IndyUTF8Encoding; IdTCPServer1.IOHandler.DefStringEncoding : IndyUTF8Encoding;服务端和客户端两边一致了中文才万无一失。另外如果你接收的是HTTP响应注意看响应头里的charset。有的老接口返回GBK编码这时候需要用TIdTextEncoding手动转码。5.2 连接的优雅关闭和重连策略网络程序里断线重连是常态。Indy10的TIdTCPClient没有内置自动重连机制需要自己加逻辑。我的做法是在后台线程里循环尝试连接失败间隔递增退避避免服务端一恢复就遭遇连接风暴while not Terminated do begin if not IdTCPClient1.Connected then begin try IdTCPClient1.Connect; except Sleep(2000); // 失败后等2秒再试 end; end else Sleep(100); // 已连接时降低轮询频率 end;需要说明的是Connected属性本身只是表示连接对象存在并不代表链路仍然活跃。最好配合心跳机制定时发心跳包如果在超时时间内没收到任何数据就主动断开重新连接。这样能及时发现半开连接避免资源白白占着。5.3 性能调优的几个小建议如果收发频率很高把TIdTCPServer的UseNagle设为False禁用Nagle算法降低小数据包延迟大量小消息发送时考虑用WriteBuffer先攒一批再flush减少系统调用次数在服务器端OnExecute里尽量避免阻塞操作比如查询数据库、访问文件有这类需求时放到独立线程队列里使用TIdSchedulerOfThreadPool代替默认的线程调度器可以复用线程降低创建销毁线程的开销。这些优化点都是在压测时暴露出来的默认配置下可能跑不出性能瓶颈但一旦并发量上来差距就非常明显。6. 关于Indy10的现状和我的使用心得Delphi社区关于Indy10是否过时的争论一直没停过。我的看法是Indy10的架构确实老了API风格也偏传统但它依然是一个成熟、稳定、跨平台、文档丰富的网络组件库。对于大多数业务系统它提供的功能远远够用而且因为是IDE内置组件维护成本最低。我在实际项目中用Indy10做得最多的三件事一是开发桌面工具与设备之间的TCP通信协议二是对接第三方平台的HTTP API三是搭建内部的小型消息推送服务。每次都靠它以最低成本完成了任务。如果你刚接触Delphi网络编程别急着学复杂的异步框架先把Indy10吃透很多场景根本不需要那么复杂的技术栈。最后再分享一个小技巧用Indy10做协议调试时配合Wireshark抓包再把TIdLogFile挂到连接上输出收发数据两边对照着看可以很快速定位问题出在组包、编解码还是网络层。这套组合我用了很多年一直没有失效过。本文还有配套的精品资源点击获取 Indy10核心架构与实战：Delphi网络编程的TCP/SSL开发指南
简介Indy10网络组件完整源码包面向CBuilder 4~6、2006~2010、XE~XE8版本开发者解决在旧版与新版环境中安装使用Indy10的难题。包内提供全套Pascal源文件约380个pas、头文件、工程文件、编译脚本及已编译成果涵盖dpk、bpl、lib等关键类型支持通过批处理一键完成源码编译与组件安装。压缩包共含1507个文件整体约7.1MB结构清晰可直接按版本选用对应编译脚本。与旧版Indy9相比Indy10在架构和协议实现上有较大变化借助这份资源可避免逐一手动配置库路径与组件注册的繁琐流程。已有370人学习下载适合需要快速集成Indy10网络功能、规避手工配置风险的CBuilder项目开发者。1. Indy10到底是什么以及它凭什么能长期占据Delphi网络库的核心位置用Delphi写网络通信的程序员基本都会和Indy打交道。从Delphi 6时代开始Indy就是IDE自带的网络组件库到了Delphi XE之后内置的版本就一直是Indy10。刚开始用Indy10的人往往会觉得别扭——和Indy9的用法差别太大很多老的代码直接搬过来根本编译不过。但真正吃透它的设计思路之后你会发现这套架构其实非常清晰用好了能省下大量造轮子的时间。Indy10全称是Internet Direct是开源的网络组件套件覆盖了TCP、UDP、HTTP、FTP、SMTP、POP3、IMAP、SNMP、SSH、SSL/TLS等上百种协议。它不是简单的接口封装而是把网络编程里反复出现的底层逻辑抽成了可复用的组件层。它的适用人群很明确用Delphi或CBuilder做桌面端网络工具、自研服务端、客户端通信模块的开发者。如果你是刚开始接触网络编程的Delphi新手Indy10也是最合适的起点因为它在设计上把阻塞式网络模型做到了极致简单理解起来比事件驱动类的异步框架直观得多。值得多说一句的是Indy10的组件化理念本身就是它区别于很多网络库的关键。它把所有功能拆成可以组合的积木连接层、读写层、协议层、安全层各管各的用的时候拼在一起。这种思路和现在流行的组件化开发殊途同归只不过Indy10在二十多年前就已经按这个方向设计了。1.1 从Indy9到Indy10一次彻底的架构重写很多人不理解为什么Indy10和Indy9的代码风格差别这么大其实核心原因是架构重写了。Indy9的很多组件把连接逻辑、数据处理逻辑混在一起用起来直观但扩展性很差。Indy10则引入了一套上下文分离的抽象层把网络连接中不同关注点拆开各做各的事。举一个最简单的例子在Indy9里一个TIdTCPServer的OnExecute事件里直接读写连接就行但Indy10里这个连接被抽象成了AContext上下文对象真正的读写走的是AContext.Connection.IOHandler。听上去绕了一层但好处是你可以直接拿到连接的信息、绑定的线程对象、自定义的数据存储空间在写多线程服务器时非常有用。从Indy9迁移到Indy10最常踩的坑有三个一是属性名改了比如TIdHTTP的Request.Header属性从字符串变成了TIdHeaderList对象二是事件参数变了服务端事件的参数从Socket句柄变成了TIdContext三是超时和读写缓冲区的机制不一样了。如果你在维护老项目升到Indy10时一定要把这些差异单列出来逐项处理不要指望编译通过就完事。1.2 不止是TCP/IPIndy10的协议全家桶Indy10覆盖的协议范围大得惊人下面这张表列的是最常用的一批分类组件用途TCP基础TIdTCPClient / TIdTCPServer自定义TCP通信UDP基础TIdUDPClient / TIdUDPServer广播、音视频、游戏同步HTTPTIdHTTP / TIdHTTPServerWeb API调用、本地服务邮件TIdSMTP / TIdPOP3 / TIdIMAP4收发邮件文件传输TIdFTP / TIdFTPServer文件上传下载安全TIdSSLIOHandlerSocketOpenSSLTLS/SSL加密通道命令行TIdTelnet / TIdSSH远程管理这套协议全家桶意味着你做一个软件从底层TCP通信到上层邮件通知全部可以用同一套组件库搞定不需要东拼西凑引入三四个不同的第三方库。而且Indy10是跨平台的Windows、Linux、macOS都能用在FMXFireMonkey框架下也可以正常工作这在做跨平台工具时非常香。2. 核心架构拆解IOHandler、Context和Intercept看懂这三个就掌握了Indy10的命门Indy10的架构核心其实就是三件事数据怎么读写、连接状态怎么管理、数据流怎么加工。对应的三个概念就是IOHandler、Context和Intercept。我见过不少开发者写Indy10代码写了两三年还是只会把组件拖到窗体上改改属性一遇到问题就抓瞎。其实只要把这三层搞清楚大部分问题自己就能推理出答案。2.1 IOHandler所有数据读写的根基IOHandler是Indy10的灵魂全称是Input/Output Handler。不管你是用TIdTCPClient还是TIdTCPServer所有的读写最终都落在IOHandler上。它做的事情很简单把网络字节流和Delphi的字符串、字节数组互转。常用的读写方法有几个ReadByte / ReadInteger / ReadString按类型读数据Write / WriteLn写数据ReadBytes / ReadStream读原始字节流ReadTimeout / WriteTimeout控制超时这里有个重点Indy10默认是阻塞式的读写方法会一直卡到数据到位或者超时。所以写服务器代码时要记住OnExecute事件本身就运行在独立的线程里不用额外开线程这是Indy10简化并发的重要手段。而写客户端代码时要把读写操作放到后台线程否则界面会卡死。我常用的写法是把IOHandler的读写超时设成固定值比如5秒这样即使对方掉线也不会无限等下去。具体设置方式IdTCPClient1.IOHandler.ReadTimeout : 5000; // 毫秒2.2 Context连接的身份档案在Indy10的服务器端每一个客户端连接进来都会对应一个TIdContext对象。这个对象有点像HTTP里的Session它保存了当前连接的状态信息。你可以通过TIdContext访问到对应的连接、IOHandler也可以往它的Data属性里放任何自己定义的数据。这设计解决了Indy9时代一个很麻烦的问题以前写多线程服务器时要把Socket信息到处传来传去很容易出错。Indy10里直接通过Context就能定位到当前连接同时Context和线程一一绑定处理并发时很清晰。procedure TForm1.IdTCPServer1Connect(AContext: TIdContext); begin // 每个连接进来时给它一个独立的记录对象 AContext.Data : TClientInfo.Create(AContext.Connection.Socket.Binding.PeerIP); end;这里的注意点Context的生命周期要自己维护好连接断开时记得释放Data里挂着的对象不然内存泄漏。在OnDisconnect事件里做清理是我个人比较推荐的惯例。2.3 Intercept数据流的中间滤镜Intercept是Indy10里很有意思的一个扩展点。它是一个挂在连接上的数据拦截器每次发送或接收数据时都会先经过它处理。常见的用法是实现日志记录、数据压缩、简单的自定义加密甚至做协议调试时的偷看工具。TIdIntercept本身是个抽象基类你可以继承它实现自己的逻辑。还有几个现成的子类可以用比如TIdLogFile可以把收发数据写到日志文件调试协议格式时特别有用。3. 实操示例半小时搭一个基于TIdTCPServer的客户端/服务端通信光讲理论没什么感觉我直接用一个具体的例子演示。场景很常见一个局域网内的消息推送程序服务端运行在Windows机器上客户端连上来后可以接收实时消息。我会把关键代码贴出来并且把容易出错的地方标出来。3.1 服务端先让监听跑起来拖一个TIdTCPServer到窗体上设置好默认端口绑定OnExecute和OnConnect事件。基本步骤就三步procedure TForm1.FormCreate(Sender: TObject); begin IdTCPServer1.DefaultPort : 8600; IdTCPServer1.Bindings.Clear; IdTCPServer1.Bindings.Add.IP : 0.0.0.0; // 监听所有网卡 IdTCPServer1.Active : True; end; procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var s: string; begin // 阻塞读一行客户端发来数据后才继续 s : AContext.Connection.IOHandler.ReadLn; // 收到消息后转发给所有在线客户端 TForm1(Nil).BroadcastMessage(s); end;里面那个BroadcastMessage是我自己写的方法用来把消息群发到所有连接。实现方式很简单遍历Contexts列表逐个写入procedure TForm1.BroadcastMessage(const Msg: string); var i: Integer; Ctx: TIdContext; begin TIdContextList.LockList(IdTCPServer1.Contexts); try for i : 0 to IdTCPServer1.Contexts.Count - 1 do begin Ctx : IdTCPServer1.Contexts[i]; Ctx.Connection.IOHandler.WriteLn(Msg); end; finally TIdContextList.UnlockList(IdTCPServer1.Contexts); end; end;注意这里的锁。Contexts列表是跨线程访问的直接遍历有并发风险必须要LockList。我一开始没加锁结果运行一段时间后偶尔会出现List index out of bounds的报错排查了很久才找到原因。这个问题非常隐蔽建议所有涉及Contexts列表遍历的地方都加上锁。3.2 客户端连接、发送、接收一整套客户端的代码更简单。TIdTCPClient连上之后用IOHandler读写就行IdTCPClient1.Host : 127.0.0.1; IdTCPClient1.Port : 8600; IdTCPClient1.Connect; try IdTCPClient1.IOHandler.WriteLn(hello from client); Reply : IdTCPClient1.IOHandler.ReadLn; finally IdTCPClient1.Disconnect; end;这里有个值得说说的细节ReadLn默认按换行符截断所以服务端和客户端最好约好统一用WriteLn/Ln结尾写数据不然读端会一直阻塞等换行符导致双方死等。如果你传输的是二进制结构体就用Write(AIdTCPClient.IOHandler, Buffer)配合ReadBytes来保证数据长度准确。3.3 为什么阻塞模式反而是优势有些用惯了异步框架如Node.js、Netty的开发者会对Indy10的阻塞模式表示质疑。实际上阻塞模式加上多线程在桌面工具这类场景下反而更省心。因为网络逻辑可以顺序写不需要把回调函数拆得七零八落。Indy10每一个连接占一个线程连接数不多时完全够用。但要注意线程开销是真实存在的如果你的服务器要扛上千个长连接Indy10的性能就有瓶颈了。这时候可以考虑连接池、异步改造或者直接换用其他框架。不过话说回来桌面级工具和中小型内部服务Indy10绰绰有余别过度设计。4. 核心细节解析TIdHTTP、SSL/TLS是绕不开的两座山TCP自己写协议适合私有通信但如果要对接外部系统的HTTP APITIdHTTP是出场率最高的组件。它兼顾了HTTP客户端、HTTPS、上传下载、Cookie管理等能力。用起来并不复杂但有几个细节需要提前知道不然很容易掉坑。4.1 TIdHTTP的基本用法调用一个JSON接口核心代码大致是这样var HTTP: TIdHTTP; Response: string; begin HTTP : TIdHTTP.Create(nil); try HTTP.HandleRedirects : True; // 自动跟随302 HTTP.ReadTimeout : 10000; Response : HTTP.Get(https://api.example.com/data); // Response就是响应体字符串 finally HTTP.Free; end; end;如果接口要求GET带参数、POST带JSON body也可以通过TIdHTTP的Request和Params参数实现。POST一个JSON字符串我习惯直接构造好字符串丢给Get或Post比慢慢填ParamList方便HTTP.Request.ContentType : application/json; charsetutf-8; Response : HTTP.Post(https://api.example.com/submit, TStringStream.Create(jsonString));4.2 SSL/TLS配置一定记得处理DLL依赖HTTPS请求必须搭配SSL IOHandler否则TIdHTTP会直接报错。使用方法在窗体上放一个TIdSSLIOHandlerSocketOpenSSL把它的Host属性和TIdHTTP.IOHandler关联。但麻烦的点在于Indy10的SSL是基于OpenSSL的运行时需要对应版本的DLL文件。不同Delphi版本内置的Indy10版本不一样对应的OpenSSL版本也会有差异。比如Delphi XE6时代常见的是OpenSSL 1.0.x而新版Delphi 11/12搭配的Indy10往往需要OpenSSL 1.1.1或更高。如果缺少DLL运行时一般会报Could not load SSL library的错误。解决办法有两个方向下载对应版本的OpenSSL DLL旧版为libeay32.dll和ssleay32.dll新版为libssl-1_1-x64.dll和libcrypto-1_1-x64.dll放到程序运行目录或系统路径中使用第三方封装库如TMS的SSL组件或SynCrypto直接静态编译进程序省去DLL分发的烦恼。我个人做发布版工具时更倾向于把DLL整理到exe同级的DLL子目录然后用代码动态加载这样不会污染系统目录卸载也干净。如果你只做一个内部小工具直接丢到exe目录是最省事的方式。4.3 HTTPS证书校验失败的排查思路另一个高频问题是HTTPS证书校验失败。如果目标服务器用的证书链不完整、自签名证书或者本地系统时间不对TIdHTTP都会抛证书校验异常。遇到这个问题先别急着跳过校验按这个顺序排查确认系统时间是否准确在浏览器里访问目标地址看证书是否正常如果是自签名或内部CA可以在OnVerifyPeer事件里处理确认证书指纹后放行实在不行再考虑完全跳过校验仅限内网测试环境正式环境绝不建议。完全跳过校验的写法procedure TForm1.IdSSLIOHandlerSocketOpenSSL1VerifyPeer( ASender: TObject; AOpenSSLObject: TIdOpenSSLOptions; var VVerifyResult: Boolean; var AVerified: Boolean); begin VVerifyResult : True; // 校验收到的证书 AVerified : True; // 标记校验结果 end;注意这是最后的手段生产环境千万不要这么干等于明文裸奔。5. 常见问题与排查技巧实录这些坑我都帮你踩过这一节全部是我在实际项目中真实遇到的Indy10问题整理成速查表形式方便你用到的时候快速定位。现象根因解决方法客户端连不上服务器但又不报错默认超时时间太长设置ConnectTimeout比如3000ms服务端一段时间后无响应线程堆积调大ListenQueue检查是否有连接未释放中文乱码编码不一致统一使用UTF-8IOHandler.DefStringEncoding : IndyUTF8EncodingHTTP请求报Could not load SSL library缺少OpenSSL DLL按4.2节方法补DLLReadLn无限卡住对端没发换行符改用ReadBytes指定长度或设置ReadTimeoutContexts列表越界多线程并发访问遍历用LockList/UnlockList上传大文件内存暴涨使用TStringStream载入全部内容改为TFileStream流式传输5.1 编码问题Delphi老鸟也容易翻车Delphi的string和网络字节流之间不是直接相等的。TIdTCPClient的IOHandler在读写字符串时用什么编码完全由DefStringEncoding属性决定。早期版本默认是ASCII一旦传中文就会出现问号。我现在的统一标准是IdTCPClient1.IOHandler.DefStringEncoding : IndyUTF8Encoding; IdTCPServer1.IOHandler.DefStringEncoding : IndyUTF8Encoding;服务端和客户端两边一致了中文才万无一失。另外如果你接收的是HTTP响应注意看响应头里的charset。有的老接口返回GBK编码这时候需要用TIdTextEncoding手动转码。5.2 连接的优雅关闭和重连策略网络程序里断线重连是常态。Indy10的TIdTCPClient没有内置自动重连机制需要自己加逻辑。我的做法是在后台线程里循环尝试连接失败间隔递增退避避免服务端一恢复就遭遇连接风暴while not Terminated do begin if not IdTCPClient1.Connected then begin try IdTCPClient1.Connect; except Sleep(2000); // 失败后等2秒再试 end; end else Sleep(100); // 已连接时降低轮询频率 end;需要说明的是Connected属性本身只是表示连接对象存在并不代表链路仍然活跃。最好配合心跳机制定时发心跳包如果在超时时间内没收到任何数据就主动断开重新连接。这样能及时发现半开连接避免资源白白占着。5.3 性能调优的几个小建议如果收发频率很高把TIdTCPServer的UseNagle设为False禁用Nagle算法降低小数据包延迟大量小消息发送时考虑用WriteBuffer先攒一批再flush减少系统调用次数在服务器端OnExecute里尽量避免阻塞操作比如查询数据库、访问文件有这类需求时放到独立线程队列里使用TIdSchedulerOfThreadPool代替默认的线程调度器可以复用线程降低创建销毁线程的开销。这些优化点都是在压测时暴露出来的默认配置下可能跑不出性能瓶颈但一旦并发量上来差距就非常明显。6. 关于Indy10的现状和我的使用心得Delphi社区关于Indy10是否过时的争论一直没停过。我的看法是Indy10的架构确实老了API风格也偏传统但它依然是一个成熟、稳定、跨平台、文档丰富的网络组件库。对于大多数业务系统它提供的功能远远够用而且因为是IDE内置组件维护成本最低。我在实际项目中用Indy10做得最多的三件事一是开发桌面工具与设备之间的TCP通信协议二是对接第三方平台的HTTP API三是搭建内部的小型消息推送服务。每次都靠它以最低成本完成了任务。如果你刚接触Delphi网络编程别急着学复杂的异步框架先把Indy10吃透很多场景根本不需要那么复杂的技术栈。最后再分享一个小技巧用Indy10做协议调试时配合Wireshark抓包再把TIdLogFile挂到连接上输出收发数据两边对照着看可以很快速定位问题出在组包、编解码还是网络层。这套组合我用了很多年一直没有失效过。本文还有配套的精品资源点击获取