THTTPSend

type THTTPSend = class(TSynaClient)

protected

  FSock: TTCPBlockSocket;

  FTransferEncoding: TTransferEncoding;

  FAliveHost: String;

  FAlivePort: String;

  FHeaders: TStringList;

  FDocument: TMemoryStream;

  FMimeType: String;

  FProtocol: String;

  FKeepAlive: Boolean;

  FStatus100: Boolean;

  FProxyHost: String;

  FProxyPort: String;

  FProxyUser: String;

  FProxyPass: String;

  FResultCode: Integer;

  FResultString: String;

  FUserAgent: String;

  FCookies: TStringList;

  FDownloadSize: Integer;

  FUploadSize: Integer;

  FRangeStart: Integer;

  FRangeEnd: Integer;

  function ReadUnknown;

  function ReadIdentity();

  function ReadChunked;

  procedure ParseCookies;

public

  constructor Create;

  destructor Destroy; override;

  procedure Clear;

  procedure DecodeStatus();

  function HTTPMethod();

  procedure Abort;

published

  property Headers: TStringList; [r]

  property Cookies: TStringList; [r]

  property Document: TMemoryStream; [r]

  property RangeStart: Integer; [rw]

  property RangeEnd: Integer; [rw]

  property MimeType: String; [rw]

  property Protocol: String; [rw]

  property KeepAlive: Boolean; [rw]

  property Status100: Boolean; [rw]

  property ProxyHost: String; [rw]

  property ProxyPort: String; [rw]

  property ProxyUser: String; [rw]

  property ProxyPass: String; [rw]

  property UserAgent: String; [rw]

  property ResultCode: Integer; [r]

  property ResultString: String; [r]

  property DownloadSize: Integer; [r]

  property UploadSize: Integer; [r]

  property Sock: TTCPBlockSocket; [r]

end;

THTTPSend

TSynaClient

TObject