TLHTTPClient

type TLHTTPClient = class(TLHTTPConnection)

protected

  FRequest: TClientRequest;

  FResponse: TClientResponse;

  FHeaderOut: THeaderOutInfo;

  FState: TLHTTPClientState;

  FPendingResponses: Integer;

  FOutputEof: Boolean;

  FOnCanWrite: TLCanWriteEvent;

  FOnDoneInput: TLHTTPClientEvent;

  FOnInput: TLInputEvent;

  FOnProcessHeaders: TLHTTPClientEvent;

  procedure ConnectEvent(); override;

  procedure DoDoneInput();

  function DoHandleInput();

  procedure DoProcessHeaders();

  function DoWriteBlock();

  function InitSocket(); override;

  procedure InternalSendRequest;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AddExtraHeader();

  procedure ResetRange;

  procedure SendRequest;

  property ContentLength: Integer; [rw]

  property Method: TLHTTPMethod; [rw]

  property PendingResponses: Integer; [r]

  property RangeStart: qword; [rw]

  property RangeEnd: qword; [rw]

  property Request: TClientRequest; [r]

  property State: TLHTTPClientState; [r]

  property URI: String; [rw]

  property Response: TClientResponse; [r]

  property OnCanWrite: TLCanWriteEvent; [rw]

  property OnDoneInput: TLHTTPClientEvent; [rw]

  property OnInput: TLInputEvent; [rw]

  property OnProcessHeaders: TLHTTPClientEvent; [rw]

end;

TLHTTPClient

TLHTTPConnection

TLTcp

TObject