本文整理自网络,侵删。
该控件包装了一个完整的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);
从当前连接中读取流数据
TIdTCPServer控件
简介
该控件包含一个完整的、多线程TCP服务器。该控件使用一个或者多个线程监听(listen)客户机连接,使用时与TIdThreadMgr联合使用,将每个线程分配给与客户机连接的连接上。
TIdTCPServer提供允许配置服务器监听线程的功能,包括:
DefaultPort
ListenQueue
OnListenException
ReuseSocket
MaxConnections
MaxConnectionReply
该控件也提供控制协议特殊功能的属性和方法,包括:
Greeting
ReplyExceptionCode
ReplyUnknownCommand
该控件用来实现两机之间的连接,支持以下事件:
OnConnect
OnExecute
OnDisconnect
OnException
该控件支持协议命令的控制,包括:
CommandHandlers
CommandHandlersEnabled
OnNoCommandHandler
OnAfterCommandHandler
OnBeforeCommandHandler
该控件是以下控件的父类:
TIdChargenServer, TIdDayTimeServer, TIdDICTServer, TIdEchoServer, TIdFingerServer,
TIdGopherServer, TIdHostNameServer, TIdHTTPServer, TIdIRCServer, TIdNNTPServer, TIdQUOTDServer,
TIdTelnetServer, TIdWhoisServer
一些重要的属性
property ListenQueue: integer;
允许排队未解决的最大监听连接数。
property ReuseSocket: TIdReuseSocket;
本地地址中被重新使用的监听线程。
property MaxConnections: Integer;
最大允许的连接数。
property MaxConnectionReply: TIdRFCReply;
到达最大连接后,返回给其它请求的连接的消息。
property ReplyExceptionCode: Integer;
在发生异常后,返回给连接的代码。
property ReplyTexts: TIdRFCReplies;
服务器实现的协议响应。
property ReplyUnknownCommand: TIdRFCReply;
对未知命令的响应。
property CommandHandlers: TIdCommandHandlers;
命令处理器集合。
property CommandHandlersEnabled: boolean;
在监听线程连接时是否使用命令处理器。
property Greeting: TIdRFCReply;
当监听线程连接成功后发送的标题信息。
相关阅读 >>
Delphi 如何在tmemo,tedit或trichedit中获得插入符的位置
Delphi adoconnection1 连接excel表格读取数据
Delphi Delphi中点击dbgrid某一行获得其详细数据方法
Delphi webbrowser控件的documentcomplete和downloadcomplete的区别
更多相关阅读请进入《Delphi》频道 >>