TIdDataChannel

type TIdDataChannel = class(TObject)

protected

  FNegotiateTLS: Boolean;

  FControlContext: TIdFTPServerContext;

  FDataChannel: TIdTCPConnection;

  FErrorReply: TIdReplyRFC;

  FFtpOperation: TIdFTPOperation;

  FOKReply: TIdReplyRFC;

  FReply: TIdReplyRFC;

  FServer: TIdFTPServer;

  FRequirePASVFromSameIP: Boolean;

  FStopped: Boolean;

  FData: TObject;

  procedure SetErrorReply();

  procedure SetOKReply();

  function GetPeerIP;

  function GetPeerPort;

  function GetLocalIP;

  function GetLocalPort;

public

  constructor Create();

  destructor Destroy; override;

  procedure InitOperation();

  property PeerIP: string; [r]

  property PeerPort: TIdPort; [r]

  property LocalIP: string; [r]

  property LocalPort: TIdPort; [r]

  property Stopped: Boolean; [rw]

  property Data: TObject; [rw]

  property Server: TIdFTPServer; [r]

  property OKReply: TIdReplyRFC; [rw]

  property ErrorReply: TIdReplyRFC; [rw]

end;

TIdDataChannel

TObject