Delphi IdTCPClient[1] 介绍、属性、方法

小豆花儿 發表於 2022-11-21 10:50:00

Delphi IdTCPClient[1] 介绍、属性、方法

Delphi IdTCPClient 介绍、属性、方法
1、介绍
实现TCP客户端。TIdTCPClient封装了一个完整的TCP（传输控制协议）客户端，包括socks支持。TIdTCPClient可以用作特定协议实现的祖先类。许多Indy客户端组件，如TIdDayTime、TIdEcho、TIdFinger、TIdFTP、TIdGopher、TIdPHTTP、TIdNNTP、TIdPOP3、TIdQUOT、TIdSMTP、TIdTelnet和TIdWhois都是TIdTCPClient的后代
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">unit IdTCPClient;

interface

uses
Classes, IdStack,
IdException, IdGlobal, IdTCPConnection;

const
BoundPortDefault = 0;

type
TIdTCPClient = class(TIdTCPConnection)
protected
FBoundIP: string;
FBoundPort: Integer;
FBoundPortMax: Integer;
FBoundPortMin: Integer;
FHost: string;
FOnConnected: TNotifyEvent;
FPassword: string;
FPort: integer;
FUsername: string;
//
procedure SetHost(const Value: string); virtual;
procedure SetPort(const Value: integer); virtual;
procedure DoOnConnected; virtual;
//
property Username: string read FUsername write FUsername;
property Password: string read FPassword write FPassword;
public
procedure Connect(const ATimeout: Integer = IdTimeoutDefault); virtual;
function ConnectAndGetAll: string; virtual;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
//
property BoundPortMax: Integer read FBoundPortMax write FBoundPortMax;
property BoundPortMin: Integer read FBoundPortMin write FBoundPortMin;
published
property BoundIP: string read FBoundIP write FBoundIP;
property BoundPort: Integer read FBoundPort write FBoundPort default BoundPortDefault;
property Host: string read FHost write SetHost;
property OnConnected: TNotifyEvent read FOnConnected write FOnConnected;
property Port: integer read FPort write SetPort;
end;

implementation

uses
IdComponent, IdIOHandlerSocket, IdResourceStrings,
SysUtils;</pre>
</div>
2、属性：
<ul>
<li> BoundIP</li>
<li> BoundPort</li>
<li> BoundPortMax</li>
<li> BoundPortMin</li>
<li> Host</li>
<li> OnConnected</li>
<li> Port</li>
</ul>
TIdTCPConnection
<ul>
<li> ASCIIFilter</li>
<li> ClosedGracefully</li>
<li> Greeting</li>
<li> InputBuffer</li>
<li> Intercept</li>
<li> IOHandler</li>
<li> LastCmdResult</li>
<li> MaxLineAction</li>
<li> MaxLineLength</li>
<li> OnDisconnected</li>
<li> OnWork</li>
<li> OnWorkBegin</li>
<li> OnWorkEnd</li>
<li> ReadLnSplit</li>
<li> ReadLnTimedOut</li>
<li> ReadTimeout</li>
<li> RecvBufferSize</li>
<li> SendBufferSize</li>
<li> Socket</li>
</ul>
TIdComponent
<ul>
<li> LocalName</li>
</ul>
TIdBaseComponent
<ul>
<li> Version</li>
</ul>
3、方法
TIdTCPClient
<ul>
<li> Connect</li>
<li> ConnectAndGetAll</li>
<li> Create</li>
<li> Destroy</li>
</ul>
TIdTCPConnection
<ul>
<li> AllData</li>
<li> CancelWriteBuffer</li>
<li> procedure Capture(ADest: TStream; const ADelim: string = '.'; const AIsRFCMessage: Boolean = True); overload;</li>
<li> procedure Capture(ADest: TStream; out VLineCount: Integer; const ADelim: string = '.'; const AIsRFCMessage: Boolean = True); overload;</li>
<li> procedure Capture(ADest: TStrings; const ADelim: string = '.'; const AIsRFCMessage: Boolean = True); overload;</li>
<li> procedure Capture(ADest: TStrings; out VLineCount: Integer; const ADelim: string = '.'; const AIsRFCMessage: Boolean = True); overload;</li>
<li> CheckForDisconnect</li>
<li> CheckForGracefulDisconnect</li>
<li> CheckResponse</li>
<li> ClearWriteBuffer</li>
<li> CloseWriteBuffer</li>
<li> Connected</li>
<li> Create</li>
<li> CurrentReadBuffer</li>
<li> Destroy</li>
<li> Disconnect</li>
<li> DisconnectSocket</li>
<li> FlushWriteBuffer</li>
<li> GetInternalResponse</li>
<li> function GetResponse(const AAllowedResponses: array of SmallInt): SmallInt; virtual; overload;</li>
<li> function GetResponse(const AAllowedResponse: SmallInt): SmallInt; overload;</li>
<li> InputLn</li>
<li> OpenWriteBuffer</li>
<li> procedure RaiseExceptionForLastCmdResult; virtual; overload;</li>
<li> procedure RaiseExceptionForLastCmdResult(AException: TClassIdException); virtual; overload;</li>
<li> ReadBuffer</li>
<li> ReadCardinal</li>
<li> ReadChar</li>
<li> ReadFromStack</li>
<li> ReadInteger</li>
<li> ReadLn</li>
<li> ReadLnWait</li>
<li> ReadSmallInt</li>
<li> ReadStream</li>
<li> ReadString</li>
<li> ReadStrings</li>
<li> function SendCmd(const AOut: string; const AResponse: SmallInt = -1): SmallInt; overload;</li>
<li> function SendCmd(const AOut: string; const AResponse: Array of SmallInt): SmallInt; virtual; overload;</li>
<li> WaitFor</li>
<li> Write</li>
<li> WriteBuffer</li>
<li> WriteCardinal</li>
<li> WriteFile</li>
<li> WriteHeader</li>
<li> WriteInteger</li>
<li> WriteLn</li>
<li> WriteRFCReply</li>
<li> WriteRFCStrings</li>
<li> WriteSmallInt</li>
<li> WriteStream</li>
<li> WriteStrings</li>
</ul>
TIdComponent
<ul>
<li> BeginWork</li>
<li> Create</li>
<li> Destroy</li>
<li> DoWork</li>
<li> EndWork</li>
</ul>
TIdBaseComponent
<ul>
<li> GetVersion</li>
</ul>
4、事件
<ul>
<li>OnStatus     //OnStatus是当前连接状态更改时触发的TIdStatusEvent事件处理程序。OnStatus由DoStatus方法触发，该方法提供事件处理程序使用的参数。axStatus是当前连接的TIdStatus值。aaArgs是Format函数的可选参数，用于构造表示当前连接状态的文本消息。</li>
</ul>
 
 
 
 
创建时间：2022.11.21　　更新时间：

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/16910688.html

頁: [1]

琼殿技术论坛's Archiver

Delphi IdTCPClient[1] 介绍、属性、方法