TFPCustomHttpServer

type TFPCustomHttpServer = class(TComponent)

protected

  function CheckUpgrade();

  function CreateUpgradeHandlerList;

  function CreateSSLSocketHandler;

  function CreateCertificateData; virtual;

  function GetSocketHandler(); virtual;

  function CreateRequest; virtual;

  function CreateResponse(); virtual;

  procedure InitRequest(); virtual;

  procedure InitResponse(); virtual;

  procedure DoAcceptError();

  procedure DoAcceptIdle();

  procedure DoKeepConnectionIdle();

  function CreateConnection(); virtual;

  function CreateConnectionHandler; virtual;

  procedure CheckInactive;

  procedure DoConnect(); virtual;

  procedure CreateServerSocket; virtual;

  procedure StartServerSocket; virtual;

  procedure StopServerSocket; virtual;

  procedure FreeServerSocket; virtual;

  procedure HandleRequest(); virtual;

  procedure HandleRequestError(); virtual;

  procedure HandleUnexpectedError(); virtual;

  property Connectionhandler: TFPHTTPServerConnectionHandler; [r]

  property ConnectionCount: Integer; [r]

  property UpdateHandlers: TUpgradeHandlerList; [r]

  property HasUpdateHandlers: Boolean; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  function RegisterUpdateHandler();

  procedure UnRegisterUpdateHandler();

protected

  property Active: Boolean; [rw]

  property Address: string; [rw]

  property Port: Word; [rw]

  property KeepConnections: Boolean; [rw]

  property KeepConnectionIdleTimeout: Integer; [rw]

  property KeepConnectionTimeout: Integer; [rw]

  property QueueSize: Word; [rw]

  property OnAllowConnect: TConnectQuery; [rw]

  property Threaded: Boolean; [rw] deprecated ;

  property ThreadMode: TThreadMode; [rw]

  property OnRequest: THTTPServerRequestHandler; [rw]

  property OnRequestError: TRequestErrorHandler; [rw]

  property OnUnexpectedError: TRequestErrorHandler; [rw]

  property OnAcceptIdle: TNotifyEvent; [rw]

  property OnKeepConnectionIdle: TNotifyEvent; [rw]

  property AcceptIdleTimeout: Cardinal; [rw]

published

  property AdminMail: string; [rw]

  property AdminName: string; [rw]

  property ServerBanner: string; [rw]

  property LookupHostNames: Boolean; [rw]

  property HostName: string; [rw] deprecated ;

  property CertificateData: TCertificateData; [rw]

  property UseSSL: Boolean; [rw]

  property OnGetSocketHandler: TGetSocketHandlerEvent; [rw]

  property AfterSocketHandlerCreate: TSocketHandlerCreatedEvent; [rw]

end;

TFPCustomHttpServer

TObject