TF5HTTPClient

type TF5HTTPClient = class

protected

  FOnLog: THTTPClientLogEvent;

  FOnStateChange: THTTPClientStateEvent;

  FOnActive: THTTPClientEvent;

  FOnStart: THTTPClientEvent;

  FOnResponseHeader: THTTPClientEvent;

  FOnResponseContentBuffer: THTTPClientContentEvent;

  FOnResponseContentComplete: THTTPClientEvent;

  FOnResponseComplete: THTTPClientEvent;

  FOnStop: THTTPClientEvent;

  FOnInactive: THTTPClientEvent;

  FAddressFamily: THTTPClientAddressFamily;

  FHost: string;

  FPort: string;

  FUseHTTPProxy: Boolean;

  FHTTPProxyHost: string;

  FHTTPProxyPort: string;

  FMethod: THTTPClientMethod;

  FMethodCustom: RawByteString;

  FURI: RawByteString;

  FUserAgent: RawByteString;

  FKeepAlive: THTTPKeepAliveOption;

  FReferer: RawByteString;

  FCookie: RawByteString;

  FAuthorization: RawByteString;

  FCustomHeaders: THTTPCustomHeaders;

  FRequestContentType: RawByteString;

  FRequestContentWriter: THTTPContentWriter;

  FUserObject: TObject;

  FUserData: Pointer;

  FUserTag: NativeInt;

  FLock: TCriticalSection;

  FState: TF5HTTPClientState;

  FErrorMsg: string;

  FActive: Boolean;

  FIsStopping: Boolean;

  FViaHTTPProxy: Boolean;

  FTCPClient: TF5TCPClient;

  FHTTPParser: THTTPParser;

  FInRequest: Boolean;

  FReadyEvent: TSimpleEvent;

  FRequestCompleteEvent: TSimpleEvent;

  FRequestPending: Boolean;

  FRequestObj: THTTPRequestObj;

  FRequestHasContent: Boolean;

  FResponseObj: THTTPResponseObj;

  FResponseCode: Integer;

  FResponseCookies: TStrings;

  FResponseContentReader: THTTPContentReader;

  FResponseRequireClose: Boolean;

  procedure Init; virtual;

  procedure InitDefaults; virtual;

  procedure Log();

  procedure LogDebug();

  procedure LogParameter();

  procedure Lock;

  procedure Unlock;

  function GetState;

  function GetStateStr;

  procedure SetState();

  procedure CheckNotActive;

  function IsBusyStarting;

  function IsBusyWithRequest;

  procedure CheckNotBusyWithRequest;

  procedure SetAddressFamily();

  procedure SetHost();

  procedure SetPort();

  function GetPortInt;

  procedure SetPortInt();

  procedure SetUseHTTPProxy();

  procedure SetHTTPProxyHost();

  procedure SetHTTPProxyPort();

  procedure SetMethod();

  procedure SetMethodCustom();

  procedure SetURI();

  procedure SetUserAgent();

  procedure SetKeepAlive();

  procedure SetReferer();

  procedure SetAuthorization();

  function GetCustomHeaderByName();

  function AddCustomHeader();

  function GetCustomHeader();

  procedure SetCustomHeader();

  procedure SetRequestContentType();

  function GetRequestContentMechanism;

  procedure SetRequestContentMechanism();

  function GetRequestContentStr;

  procedure SetRequestContentStr();

  function GetRequestContentStream;

  procedure SetRequestContentStream();

  function GetRequestContentFileName;

  procedure SetRequestContentFileName();

  function GetResponseContentMechanism;

  procedure SetResponseContentMechanism();

  function GetResponseContentFileName;

  procedure SetResponseContentFileName();

  function GetResponseContentStream;

  procedure SetResponseContentStream();

  procedure LogTriggerException();

  procedure TriggerStateChanged;

  procedure TriggerActive;

  procedure TriggerStart;

  procedure TriggerResponseHeader;

  procedure TriggerResponseContentBuffer();

  procedure TriggerResponseContentComplete;

  procedure TriggerResponseComplete;

  procedure TriggerStop;

  procedure TriggerInactive;

  procedure ProcessResponseHeader;

  procedure SetResponseComplete;

  procedure SetResponseCompleteThenClosed;

  procedure InitTCPClientHost;

  procedure InitTCPClient;

  procedure TCPClientLog();

  procedure TCPClientIdle();

  procedure TCPClientStateChanged();

  procedure TCPClientError();

  procedure TCPClientConnected();

  procedure TCPClientConnectFailed();

  procedure TCPClientReady();

  procedure TCPClientRead();

  procedure TCPClientWrite();

  procedure TCPClientClose();

  procedure ResetRequest;

  procedure SetErrorMsg();

  procedure SetRequestFailedFromException();

  procedure StartTCPClient;

  procedure ClientStart;

  procedure StopTCPClient;

  procedure ClientStop;

  procedure ClientSetActive;

  procedure ClientSetInactive;

  procedure SetActive();

  function InitRequestContent();

  procedure FinaliseRequestContent;

  procedure PrepareHTTPRequest;

  function GetHTTPRequestStr;

  procedure SendStr();

  procedure SendRequest;

  procedure InitResponseContent;

  procedure HandleResponseContent();

  procedure FinaliseResponseContent();

  procedure ContentWriterLog();

  function ContentWriterWriteProc();

  procedure ContentReaderLog();

  function ContentReaderReadProc();

  procedure ContentReaderContentProc();

  procedure ContentReaderCompleteProc();

  procedure ReadResponseHeader;

  procedure ReadResponseContent;

  procedure ReadResponse;

  function GetResponseRecord;

  function GetResponseContentStr;

public

  constructor Create;

  destructor Destroy; override;

  property OnLog: THTTPClientLogEvent; [rw]

  property OnStateChange: THTTPClientStateEvent; [rw]

  property OnActive: THTTPClientEvent; [rw]

  property OnStart: THTTPClientEvent; [rw]

  property OnResponseHeader: THTTPClientEvent; [rw]

  property OnResponseContentBuffer: THTTPClientContentEvent; [rw]

  property OnResponseContentComplete: THTTPClientEvent; [rw]

  property OnResponseComplete: THTTPClientEvent; [rw]

  property OnStop: THTTPClientEvent; [rw]

  property OnInactive: THTTPClientEvent; [rw]

  property AddressFamily: THTTPClientAddressFamily; [rw]

  property Host: string; [rw]

  property Port: string; [rw]

  property PortInt: Int32; [rw]

  property UseHTTPProxy: Boolean; [rw]

  property HTTPProxyHost: string; [rw]

  property HTTPProxyPort: string; [rw]

  property Method: THTTPClientMethod; [rw]

  property MethodCustom: RawByteString; [rw]

  property URI: RawByteString; [rw]

  property UserAgent: RawByteString; [rw]

  property KeepAlive: THTTPKeepAliveOption; [rw]

  property Referer: RawByteString; [rw]

  property Cookie: RawByteString; [rw]

  property Authorization: RawByteString; [rw]

  procedure SetBasicAuthorization();

  property CustomHeader []: RawByteString; [rw]

  property RequestContentType: RawByteString; [rw]

  property RequestContentMechanism: THTTPContentWriterMechanism; [rw]

  property RequestContentStr: RawByteString; [rw]

  property RequestContentStream: TStream; [rw]

  property RequestContentFileName: string; [rw]

  procedure SetRequestContentWwwFormUrlEncodedField();

  property ResponseContentMechanism: THTTPContentReaderMechanism; [rw]

  property ResponseContentFileName: string; [rw]

  property ResponseContentStream: TStream; [rw]

  property State: TF5HTTPClientState; [r]

  property StateStr: string; [r]

  property ErrorMsg: string; [r]

  property Active: Boolean; [rw]

  procedure Start;

  procedure Stop;

  procedure Request;

  function RequestIsBusy;

  function RequestIsSuccess;

  property ResponseRecord: THTTPResponseRec; [r]

  property ResponseCode: Integer; [r]

  property ResponseCookies: TStrings; [r]

  property ResponseContentStr: RawByteString; [r]

  function WaitReadyForRequest();

  function WaitForRequestComplete();

  property UserObject: TObject; [rw]

  property UserData: Pointer; [rw]

  property UserTag: NativeInt; [rw]

end;

TF5HTTPClient

TObject