Class TFtpCtrlSocket (unit FtpSrvC)

Inherits from

TCustomWSocket

Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetPeerAddr: string;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SendAnswer(Answer : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetAbortingTransfer(newValue : Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetDirectory(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure StartConnection;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Dup(newHSocket : TSocket);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetRcvSize(newValue : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TriggerCommand(CmdBuf : PChar; CmdLen : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function TriggerDataAvailable(Error : Word) : boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TriggerSessionConnected(Error : Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property AllSent :


property Banner : String


property Busy : Boolean


property FtpState : TFtpCtrlState


property HSocket :


property PassWord : String


property RcvSize : integer


property UserData : LongInt


property UserName : String


property AbortingTransfer : Boolean


property CloseRequest : Boolean


property CommandCount : LongInt


property ConnectedSince : TDateTime


property DataSocket : TWSocket


property Directory : String


property HomeDir : String


property LastCommand : TDateTime


property RcvBuf : PChar


property RcvdCount :


Events

event OnCommand : TCommandEvent


event OnDataSent :


event OnDisplay : TDisplayEvent


event OnSessionClosed :


Variables

BinaryMode : Boolean;


ByteCount : LongInt;


CurCmdType : TFtpCmdType;


DataAddr : String;


DataPort : String;


DataSent : Boolean;


DataSessionActive : Boolean;


DataStream : TStream;


FileName : String;


FilePath : String;


FromFileName : String;


HasOpenedFile : Boolean;


Options : TFtpOptions;


PassiveConnected : Boolean;


PassiveMode : Boolean;


PassiveStart : Boolean;


RestartPos : LongInt;


ToFileName : String;


TransferError : String;


FAbortingTransfer : Boolean;


FBanner : String;


FBusy : Boolean;


FCloseRequest : Boolean;


FCommandCount : LongInt;


FConnectedSince : TDateTime;


FDataSocket : TWSocket;


FDirectory : String;


FFtpState : TFtpCtrlState;


FHomeDir : String;


FLastCommand : TDateTime;


FOnCommand : TCommandEvent;


FOnDisplay : TDisplayEvent;


FPassWord : String;


FPeerAddr : String;

Reserved for component user

FRcvBuf : PChar;


FRcvCnt : Integer;


FRcvSize : Integer;


FUserData : LongInt;


FUserName : String;



Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetPeerAddr: string;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SendAnswer(Answer : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetAbortingTransfer(newValue : Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetDirectory(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure StartConnection;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Dup(newHSocket : TSocket);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetRcvSize(newValue : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TriggerCommand(CmdBuf : PChar; CmdLen : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function TriggerDataAvailable(Error : Word) : boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TriggerSessionConnected(Error : Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property AllSent :


property Banner : String


property Busy : Boolean


property FtpState : TFtpCtrlState


property HSocket :


property PassWord : String


property RcvSize : integer


property UserData : LongInt


property UserName : String


property AbortingTransfer : Boolean


property CloseRequest : Boolean


property CommandCount : LongInt


property ConnectedSince : TDateTime


property DataSocket : TWSocket


property Directory : String


property HomeDir : String


property LastCommand : TDateTime


property RcvBuf : PChar


property RcvdCount :


Events


event OnCommand : TCommandEvent


event OnDataSent :


event OnDisplay : TDisplayEvent


event OnSessionClosed :


Variables


BinaryMode : Boolean;


ByteCount : LongInt;


CurCmdType : TFtpCmdType;


DataAddr : String;


DataPort : String;


DataSent : Boolean;


DataSessionActive : Boolean;


DataStream : TStream;


FileName : String;


FilePath : String;


FromFileName : String;


HasOpenedFile : Boolean;


Options : TFtpOptions;


PassiveConnected : Boolean;


PassiveMode : Boolean;


PassiveStart : Boolean;


RestartPos : LongInt;


ToFileName : String;


TransferError : String;


FAbortingTransfer : Boolean;


FBanner : String;


FBusy : Boolean;


FCloseRequest : Boolean;


FCommandCount : LongInt;


FConnectedSince : TDateTime;


FDataSocket : TWSocket;


FDirectory : String;


FFtpState : TFtpCtrlState;


FHomeDir : String;


FLastCommand : TDateTime;


FOnCommand : TCommandEvent;


FOnDisplay : TDisplayEvent;


FPassWord : String;


FPeerAddr : String;

Reserved for component user


FRcvBuf : PChar;


FRcvCnt : Integer;


FRcvSize : Integer;


FUserData : LongInt;


FUserName : String;