TIdTCPClient控件中文指南(转)

longma2006

关注

原创最新推荐文章于 2026-08-05 11:57:28 发布 1.8k 阅读 AI 写同款· GEO 优化 ›

Delphi TIdTCPClient的使用问题开发环境Delphi10.3.3 使用TIdTCPClient写了一个客户端小例子，使用网络调试助手作为服务端（设置接收到客户端信息会自动返回数据）。通讯模式：短连接。客户端连接--发送---等待数据---接收---断开。此例子中客户端不知道返回信息长度是多少。问题：由于不确定服务端返回数据多少，所以使用Socket.ReadBytes(dat,-1,False); -1：表示一直读取直到超时。本以为像ClientSocket那样有多少数据就能读到多少，结果试验了不同长度的数据，读取到的长度也不一阅读详情

2008/05/24 06:37 P.M.

IdTCPClient

该控件包装了一个完整的TCP客户端。该客户端包括sock支持。该控件是以下客户端控件的父类：

TIdDayTime, TIdEcho, TIdFinger, TIdFTP, TIdGopher, TIdHTTP, TIdNNTP, TIdPOP3, TIdQUOTD,

TIdSMTP, TIdTelnet, and TIdWhois。

属性
property BoundIP: string;
客户端使用的IP地址。

property BoundPort: Integer;
当前连接的本地端口号。

property BoundPortMax: Integer;
当前连接时可以使用的最大本地端口号。

property BoundPortMin: Integer;
当前连接可以使用的最小本地端口号。

property Host: string;
远程主机名。可以是IP地址，也可以是域名。

property Port: integer;
远程主机端口号。

property Intercept: TIdConnectionIntercept;
对连接进行读写操作时插入的中途截取者（插件）。

property IOHandler: TIdIOHandler;
发送和接受数据时的输入输出源（插件）。

property MaxLineAction: TIdMaxLineAction;
当读数据时已经到了最大缓冲区长度时触发的动作（事件处理器）。

property MaxLineLength: Integer;
读取数据时最大缓冲区长度（字节数）。

property ReadTimeout: Integer;
读取数据时的超时事件，单位毫秒。

property Socket: TIdIOHandlerSocket;
连接时所用的socket。

方法
procedure Connect(const ATimeout: Integer = IdTimeoutDefault); virtual;
打开客户端连接。

function ConnectAndGetAll: string; virtual;
打开客户端连接并获取所有的数据。

function AllData: string; virtual;
得到连接中所有的数据。

procedure CancelWriteBuffer;
停止写入数据。

procedure Capture(ADest: TStream; const ADelim: string = '.'; const AIsRFCMessage: Boolean =

True); overload;
procedure Capture(ADest: TStream; out VLineCount: Integer; const ADelim: string = '.'; const

AIsRFCMessage: Boolean = True); overload;
procedure Capture(ADest: TStrings; const ADelim: string = '.'; const AIsRFCMessage: Boolean

= True); overload;
procedure Capture(ADest: TStrings; out VLineCount: Integer; const ADelim: string = '.';

const AIsRFCMessage: Boolean = True); overload;
将连接中的数据读取到特殊的对象中去。

procedure CheckForDisconnect(const ARaiseExceptionIfDisconnected: boolean = true;
const AIgnoreBuffer: boolean = false); virtual;
决定是否关闭连接。

procedure CheckForGracefulDisconnect(const ARaiseExceptionIfDisconnected: Boolean = True);

virtual;
决定是否正常地关闭连接。
function CheckResponse(const AResponse: SmallInt; const AAllowedResponses: array
of SmallInt): SmallInt; virtual;
检查允许的响应中的合法的响应。

procedure ClearWriteBuffer;
清除写缓冲区。

procedure CloseWriteBuffer;
关闭写缓冲区。

function Connected: Boolean; virtual;
当前连接是否可用。

function CurrentReadBuffer: string;
从协议栈中更新缓冲区。

procedure Disconnect; virtual;
关闭连接。

procedure FlushWriteBuffer(const AByteCount: Integer = -1);
写入缓存的数据，并清除写缓冲区。

procedure ReadBuffer(var ABuffer; const AByteCount: Longint);
从读取缓冲区中读取数据。

procedure Write(const AOut: string); virtual;
向连接写入数据。

procedure WriteBuffer(const ABuffer; AByteCount: Longint; const AWriteNow: Boolean = False);
向当前连接写入缓冲数据。

procedure WriteStream(AStream: TStream; const AAll: Boolean = True; const AWriteByteCount:

Boolean = False; const ASize: Integer = 0); virtual;
向当前连接写入流数据。

procedure ReadStream(AStream: TStream; AByteCount: LongInt = -1; const AReadUntilDisconnect:

boolean = false);
从当前连接中读取流数据

转自：http://hi.baidu.com/delphi_fans/blog/item/373f16f2147ee416b07ec596.html

标签

#integer #string #function #socket #tcp

本内容遵循 CC 4.0 BY-SA 版权协议

Delphi简单TCP聊天程序首先上截图最近有点无聊，于是将以前写到一半的聊天程序拿出来改进了一下。 Delphi自带两个控件:TIdTCPServer, tIdTCPClient。顾名思义，一个是服务器端用的，另一个是客户端用的。程序主要思路如下，客户端程序开始运行时与服务器端建立连接，用户登录时阅读详情

TIdTCPClient控件中文指南(转)

相关推荐