简介Indy 10.2.3 是 Internet Direct 组件库的一个经典版本面向使用 Delphi 7 至 Delphi 2007 进行网络编程的开发者用于解决客户端与服务器端通信组件的集成问题。包内共 839 个文件以 354 个 pas 源码单元、63 个 dpk 包工程、37 个 rc 与 res 资源脚本、26 个 bdsproj 工程文件为主另含 bmp 图标、obj 目标文件及少量 c、h 头文件压缩包约 4.98MB覆盖核心、协议与系统三套组件及设计期包。资源提供 TCP/IP、HTTP、FTP、SMTP、POP3、DNS 解析与 SSL/TLS 加密连接等组件支持多线程与事件驱动模型可拖放至表单后通过属性、方法和事件完成配置。已有 347 人学习下载适合希望快速搭建文件传输、Web 服务交互或邮件收发应用的 Delphi 开发者参考源码结构完整便于按单元查阅与二次集成。1. Indy 10.2.3 拆包一份 Delphi 网络组件库的落地姿势手上有个 Delphi 老项目要接 HTTPS 接口翻遍机器发现自带的 Indy 还是 9 的版本TLS 支持基本等于没有。这时候多数人的第一反应是去翻 Indy 10.2.3 这个包——它是 Delphi 网络编程里绕不开的一套组件封装了 TCP、UDP、HTTP、FTP、SMTP、POP3 等一整套协议栈核心价值在于把 socket 层的脏活包成了可视组件拖到窗体上配几个属性就能跑。这份资源适合两类人一是维护 Delphi 存量系统、需要补网络能力的从业者二是想搞清楚 Indy 版本差异、避免装错包导致编译报错的新手。下面按「这是什么 → 怎么装怎么用 → 坑在哪」的顺序拆参数和排错都给到能直接抄的程度。2. 版本选型与安装为什么是 10.2.3 而不是随手抓一个Indy 的版本号看着乱实际有清晰的代际划分。9.x 是 Delphi 7 时代的老底子10.x 是重写过的架构两者 API 不兼容。10.2.3 属于 10.2 分支的一个修订版本主要修的是 SSL/TLS 相关的一批问题对还在用老 IDE、又必须对接现代 HTTPS 服务的项目来说这个版本是个相对稳的落点。选型时最容易翻车的地方不是版本号本身而是「你的 IDE 到底认哪个包」。2.1 先确认 IDE 与包格式的匹配关系Indy 以运行时包Runtime Package加设计期包Design Package的形式分发前者是IndyCore.bpl、IndyProtocols.bpl这类后者是dclIndyCore.bpl这种带dcl前缀的。装错格式的典型症状是组件面板里根本看不到 Indy 页签或者编译时报「找不到单元」。检查项正确状态常见错误状态包搜索路径包含 Indy 源码的Lib\System、Lib\Core、Lib\Protocols等子目录只加了根目录编译找不到IdHTTP设计期包已安装dclIndy*.bpl只装了运行时包面板无组件单元引用uses IdHTTP, IdSSLOpenSSL引用了 9.x 的IdHTTP旧单元名SSL 库libeay32.dll、ssleay32.dll与位数匹配32 位程序配了 64 位 DLL这张表建议装之前先对一遍。我见过不止一次包路径只加了 Indy 根目录结果IdHTTP能编译但IdSSLIOHandlerSocketOpenSSL死活找不到折腾半天才发现是子目录没进搜索路径。2.2 安装步骤从解压到组件面板出现安装流程本身不复杂但顺序错了会留下半装状态后面很难清。常见做法是先卸旧版再装新版不要覆盖。# 假设 Indy 源码解压到 D:\Components\Indy10 # 1. 先备份现有 Indy 相关 bpl避免回滚时抓瞎 copy %BDS%\bin\*Indy*.bpl D:\backup\indy_bpl\ # 2. 清理 IDE 中已注册的旧包在 IDE 的 Component - Install Packages 里 Remove # 这一步必须在文件层面替换之前做否则 IDE 会锁住 bpl # 3. 把源码目录加入库搜索路径IDE: Tools - Options - Library # D:\Components\Indy10\Lib\System # D:\Components\Indy10\Lib\Core # D:\Components\Indy10\Lib\Protocols # D:\Components\Indy10\Lib\SuperCore上面这段是文件与路径层面的准备逻辑说明一下先备份是因为 Indy 的 bpl 一旦被 IDE 加载直接覆盖会提示文件占用先 Remove 再替换是为了让 IDE 释放句柄。路径那四行是 Indy 10 的标准分层SuperCore放的是跨协议的底层单元漏了它会在编译IdTCPClient时报缺单元。参数上唯一要盯的是路径顺序——如果你的机器上还残留 9.x 的路径务必把它删掉或排到后面否则编译器可能优先命中旧单元。接下来是编译与安装设计期包。打开dclIndyCore.dproj或对应版本的工程文件Build 之后 Install。装完在组件面板应该能看到Indy Clients、Indy Servers、Indy Misc等页签。如果 Install 报「Cannot load package」八成是运行时包没先编译或者位数不匹配。2.3 SSL 依赖HTTPS 能不能跑起来全看这一步Indy 本身不带 SSL 实现它通过IdSSLOpenSSL单元去调 OpenSSL 的动态库。10.2.3 这套代码对 OpenSSL 的版本有要求太新的 3.x 分支不一定认实践中用 1.0.2 系列的libeay32.dll和ssleay32.dll最稳。这两个 DLL 必须和你的可执行文件位数一致32 位程序放 64 位 DLL 的报错往往很隐晦表现为握手直接失败而不提示库加载错误。// 最小 HTTPS 请求示例验证 SSL 链路是否通 uses IdHTTP, IdSSLOpenSSL, IdGlobal; var HTTP: TIdHTTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Resp: string; begin HTTP : TIdHTTP.Create(nil); SSL : TIdSSLIOHandlerSocketOpenSSL.Create(nil); try // 指定 SSL 版本避免协商到服务端不支持的协议 SSL.SSLOptions.Method : sslvTLSv1_2; SSL.SSLOptions.Mode : sslmClient; HTTP.IOHandler : SSL; // 超时单位是毫秒不设会一直挂着 HTTP.ReadTimeout : 10000; HTTP.ConnectTimeout : 5000; Resp : HTTP.Get(https://example.com/api/ping); Writeln(Resp); finally SSL.Free; HTTP.Free; end; end;这段代码的关键在三个参数SSLOptions.Method锁死 TLS 1.2是因为不少老服务端已经关掉了 1.0/1.1而 Indy 10.2.3 的默认协商在某些环境下会退到低版本导致握手被拒Mode设成sslmClient明确角色两个 Timeout 是血泪经验不设的话网络一抖线程就卡死界面上表现为「点了没反应」。IOHandler的赋值顺序也有讲究必须在发请求之前挂上去挂晚了等于没挂。跑通这段说明包、路径、DLL 三件事都对了后面才谈得上业务逻辑。3. 核心组件实战TIdHTTP 与 TIdTCPClient 的配置细节装好只是入场券真正决定项目能不能用的是组件参数怎么配。Indy 的组件属性多但常用的就那么几个配错一个就够排查半天。这一章挑两个最高频的组件拆TIdHTTP管应用层请求TIdTCPClient管裸 TCP 长连接。3.1 TIdHTTP 的请求构造与响应处理TIdHTTP的坑集中在请求头、编码和重定向三块。默认情况下它对 301/302 是自动跟随的但跟随过程中如果跨域某些服务端会丢 Cookie表现为登录态莫名失效。另外响应体的编码如果服务端没在头里声明Indy 会按默认编码解中文就成乱码。var HTTP: TIdHTTP; PostData: TStringStream; RespStream: TMemoryStream; begin HTTP : TIdHTTP.Create(nil); PostData : TStringStream.Create({user:test}, TEncoding.UTF8); RespStream : TMemoryStream.Create; try HTTP.Request.ContentType : application/json; charsetutf-8; // 关掉自动重定向自己控制避免跨域丢 Cookie HTTP.HandleRedirects : False; HTTP.Request.CustomHeaders.Add(Authorization: Bearer xxx); try HTTP.Post(https://example.com/api/login, PostData, RespStream); except on E: EIdHTTPProtocolException do begin // 4xx/5xx 会抛异常响应体在 E.ErrorMessage 里 Writeln(HTTP , HTTP.ResponseCode, : , E.ErrorMessage); end; end; RespStream.Position : 0; // 用 UTF8 解码别用默认编码 Writeln(ReadStringFromStream(RespStream, -1, TEncoding.UTF8)); finally RespStream.Free; PostData.Free; HTTP.Free; end; end;逻辑上分三层说。请求侧ContentType必须带 charset否则服务端可能按 latin1 解析你的 JSONHandleRedirects : False是我一般会设的重定向自己处理更可控尤其是带鉴权头的请求自动跟随容易把 Authorization 带到不该带的地方。异常侧Indy 对非 2xx 响应是抛EIdHTTPProtocolException而不是返回错误码不捕获的话程序直接崩捕获后从ErrorMessage拿响应体。响应侧ReadStringFromStream显式指定TEncoding.UTF8这是中文乱码最常见的根因——不是服务端错了是客户端解码用错了表。参数上还有两个值得单独提HTTP.Request.Connection设成close可以避免连接复用带来的服务端状态残留代价是每次新建连接HTTP.ProxyParams在需要走企业内网出口时配置但注意它和 SSL 的配合代理下 HTTPS 要走 CONNECT 隧道配错会表现为 407 或直接超时。3.2 TIdTCPClient 的长连接与心跳裸 TCP 场景下TIdTCPClient的Connect、ReadLn、WriteLn是最基础的三个动作但长连接真正的难点在断线检测。TCP 本身不告诉你对端还活着没有必须靠应用层心跳。var TCP: TIdTCPClient; begin TCP : TIdTCPClient.Create(nil); try TCP.Host : 127.0.0.1; TCP.Port : 9000; TCP.ConnectTimeout : 3000; TCP.ReadTimeout : 5000; TCP.Connect; // 发心跳服务端约定回 PONG TCP.IOHandler.WriteLn(PING); if TCP.IOHandler.ReadLn PONG then Writeln(alive); except on E: Exception do Writeln(conn lost: , E.Message); finally TCP.Disconnect; TCP.Free; end; end;这里ReadTimeout是心跳机制的核心设了它ReadLn在对端无响应时会在超时后抛异常你就能据此判定连接已死并重连不设的话ReadLn会无限阻塞线程池很快被拖垮。ConnectTimeout管的是建连阶段内网可以设小一点快速失败。实际项目里我一般把心跳放在独立线程间隔取ReadTimeout的一半左右这样一次超时还没到就能触发下一次探测判定更及时。注意IOHandler的读写是阻塞的别在主线程里直接调否则界面卡死——这是 Indy 新手最常踩的一类问题和组件本身无关是线程模型没理清。4. 避坑与排查五条装完才会遇到的真实问题前面讲的是「应该怎么配」这一章讲「配了还是不对怎么办」。下面五条都是装完之后才会冒出来的问题按现象、原因、解决三段写照着对症状基本能定位。4.1 组件面板有 Indy 页签但拖出来编译报缺单元现象面板上能看到TIdHTTP拖到窗体上一编译就提示找不到IdHTTP或IdCompilerDefines.inc。原因通常是库搜索路径只加了 Indy 根目录没加Lib\System等子目录或者路径里混进了 9.x 的旧目录导致单元名冲突。解决把 2.2 节列的那四个子目录逐个加进搜索路径并检查路径列表里有没有残留的旧 Indy 目录有就删掉然后重新 Build 整个包而不是只 Build 工程。4.2 HTTPS 请求报「Could not load SSL library」现象HTTP 请求正常一换 HTTPS 就抛异常提示 SSL 库加载失败。原因九成是libeay32.dll/ssleay32.dll没放到可执行文件同目录或者位数不匹配。解决先确认程序是 32 位还是 64 位再放对应位数的 DLL 到 exe 同级目录如果还不行用 Dependency Walker 之类的工具看 DLL 的依赖链是否完整缺 VC 运行库也会导致加载失败。注意别把 DLL 放到 System32 里图省事位数一混就是玄学问题。4.3 中文响应乱码换编码也不对现象接口返回的中文是乱码试了 GBK、UTF-8 都不对。原因往往不是编码选错而是响应头里Content-Type没声明 charsetIndy 按TIdHTTP的默认编码解而默认编码和实际不符。解决不要依赖自动解码直接用TMemoryStream接响应体再自己按约定编码ReadStringFromStream如果服务端确实没声明抓包看实际字节用对应编码解。这一步别猜猜编码是最容易反复翻车的地方。4.4 请求发出去了但一直不返回界面卡死现象点按钮发请求界面无响应任务管理器看进程还在。原因通常是没设ReadTimeout或者请求跑在主线程里。解决两个动作一起做——给TIdHTTP设ReadTimeout比如 10 秒并把网络调用挪到TThread或任务里执行主线程只负责更新 UI。只做其中一个都不够超时能兜底但界面照样卡挪线程能救界面但没超时的话线程会一直挂着。4.5 长连接跑一段时间后收不到数据现象TIdTCPClient连上后前几分钟正常之后ReadLn一直阻塞服务端其实已经断了。原因是没有应用层心跳TCP 的半开连接状态客户端感知不到。解决按 3.2 节加心跳ReadTimeout设一个合理值超时就重连重连逻辑里记得先Disconnect再Connect直接重连可能复用坏掉的 socket。这条是长连接项目的必修课早加早省心。5. 进阶技巧用条件编译隔离 Indy 版本差异项目一旦要在多台机器、多个 IDE 版本上编译Indy 的版本差异就会变成维护负担。10.2.3 和更早的 10.x 在部分单元名和属性上有出入硬编码一套代码换环境就编译不过。我一般用条件编译把差异收在一处而不是到处改。// 在公共单元里统一定义 Indy 版本开关 {$IFDEF INDY10_2_3} // 10.2.3 分支的特定处理 SSL.SSLOptions.Method : sslvTLSv1_2; {$ELSE} // 兼容更早的 10.x SSL.SSLOptions.Method : sslvTLSv1; {$ENDIF}这段的意义在于把「版本判断」集中到编译开关上业务代码里不再散落if 版本 xxx。开关在工程选项的 Conditional Defines 里配换环境只改一处。参数上要注意sslvTLSv1_2这个枚举在极老的 10.x 里可能不存在所以ELSE分支要留一个能编译的兜底值别让老环境直接编译失败。验证方法也顺手说一下装完之后别急着上业务先跑 2.3 节那段最小 HTTPS 请求再跑 3.2 节的心跳示例两个都通说明包、SSL、线程模型三块基础是稳的。之后每加一个协议组件都用同样的最小用例先验一遍比在业务代码里大海捞针强得多。从那以后我每次装 Indy 都强制走一遍「备份 bpl → 清旧包 → 加四个子目录 → 验最小 HTTPS → 验心跳」这个顺序少一步后面就得用双倍时间还债。希望帮到你。本文还有配套的精品资源点击获取