TFPCustomHTTPClient

type TFPCustomHTTPClient = class(TComponent)

protected

  procedure DoVerifyCertificate(); virtual;

  function NoContentAllowed();

  procedure DoNormalRequest(); virtual;

  procedure DoKeepConnectionRequest(); virtual;

  function IsConnected; virtual;

  function ProxyActive;

  function CreateProxyData;

  procedure DoDataRead; virtual;

  procedure DoDataWrite; virtual;

  function ParseStatusLine();

  function GetServerURL();

  function ProtocolSupported(); virtual;

  function ReadFromSocket(); virtual;

  function WriteToSocket(); virtual;

  function ReadString();

  function WriteString();

  function WriteRequestBody;

  function CheckResponseCode(); virtual;

  function ReadResponse(); virtual;

  function ReadResponseHeaders; virtual;

  function AllowHeader(); virtual;

  function HasConnectionClose; virtual;

  procedure ConnectToServer(); virtual;

  procedure ReconnectToServer(); virtual;

  procedure DisconnectFromServer; virtual;

  procedure DoMethod(); virtual;

  procedure SendRequest(); virtual;

  function GetSocketHandler(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  property UnixSocketPath: string; [rw]

  class procedure AddHeader();

  class function IndexOfHeader();

  class function GetHeader();

  procedure Terminate;

  procedure HTTPMethod(); virtual;

  procedure Get();

  class function IsRedirect(); virtual;

  class function RedirectForcesGET(); virtual;

  class procedure SimpleGet();

  procedure Post();

  class procedure SimplePost();

  procedure Put();

  class procedure SimplePut();

  procedure Delete();

  class procedure SimpleDelete();

  procedure Patch();

  class procedure SimplePatch();

  procedure Options();

  class procedure SimpleOptions();

  class procedure Head();

  procedure FormPost();

  class procedure SimpleFormPost();

  procedure FileFormPost();

  procedure StreamFormPost();

  class procedure SimpleFileFormPost();

  property Terminated: Boolean; [r]

protected

  property Socket: TSocketStream; [r]

  property IOTimeout: Integer; [rw]

  property ConnectTimeout: Integer; [rw]

  property RequestHeaders: TStrings; [rw]

  property Cookies: TStrings; [rw]

  property RequestBody: TStream; [rw]

  property HTTPversion: string; [rw]

  property ResponseHeaders: TStrings; [r]

  property ServerHTTPVersion: string; [r]

  property ResponseStatusCode: Integer; [r]

  property ResponseStatusText: string; [r]

  property AllowRedirect: Boolean; [rw]

  property MaxRedirects: Byte; [rw]

  property MaxChunkSize: SizeUInt; [rw]

  property Proxy: TProxyData; [rw]

  property UserName: string; [rw]

  property Password: string; [rw]

  property Connected: Boolean; [r]

  property KeepConnection: Boolean; [rw]

  property KeepConnectionReconnectLimit: Integer; [rw]

  property VerifySSLCertificate: Boolean; [rw]

  property OnRedirect: TRedirectEvent; [rw]

  property OnPassword: TPasswordEvent; [rw]

  property OnDataReceived: TDataEvent; [rw]

  property OnDataSent: TDataEvent; [rw]

  property OnHeaders: TNotifyEvent; [rw]

  property OnGetSocketHandler: TGetSocketHandlerEvent; [rw]

  property AfterSocketHandlerCreate: TSocketHandlerCreatedEvent; [rw]

  property OnVerifySSLCertificate: THTTPVerifyCertificateEvent; [rw]

end;

TFPCustomHTTPClient

TObject