THTTPSend

type THTTPSend = class(TSynaClient)

protected

  FSock: TTCPBlockSocket;

  FTransferEncoding: TTransferEncoding;

  FAliveHost: string;

  FAlivePort: string;

  FHeaders: TStringList;

  FDocument: TMemoryStream;

  FMimeType: string;

  FProtocol: string;

  FKeepAlive: Boolean;

  FKeepAliveTimeout: Integer;

  FStatus100: Boolean;

  FProxyHost: string;

  FProxyPort: string;

  FProxyUser: string;

  FProxyPass: string;

  FResultCode: Integer;

  FResultString: string;

  FUserAgent: string;

  FCookies: TStringList;

  FDownloadSize: Int64;

  FUploadSize: Int64;

  FRangeStart: Int64;

  FRangeEnd: Int64;

  FAddPortNumberToHost: Boolean;

  FInputStream: TStream;

  FOutputStream: TStream;

  function ReadUnknown; virtual;

  function ReadIdentity(); virtual;

  function ReadChunked; virtual;

  procedure ParseCookies;

  function PrepareHeaders;

  function InternalDoConnect();

  function InternalConnect();

  function InputDocument;

  function OutputDocument;

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: Int64; [rw]

  property RangeEnd: Int64; [rw]

  property MimeType: string; [rw]

  property Protocol: string; [rw]

  property KeepAlive: Boolean; [rw]

  property KeepAliveTimeout: Integer; [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: Int64; [r]

  property UploadSize: Int64; [r]

  property Sock: TTCPBlockSocket; [r]

  property AddPortNumberToHost: Boolean; [rw]

public

  property InputStream: TStream; [rw]

  property OutputStream: TStream; [rw]

end;

THTTPSend

TSynaClient

TObject