TF5HTTPServer

type TF5HTTPServer = class(TComponent)

protected

  FOnLog: THTTPServerLogEvent;

  FOnStart: THTTPServerEvent;

  FOnStop: THTTPServerEvent;

  FOnActive: THTTPServerEvent;

  FOnInactive: THTTPServerEvent;

  FOnRequestHeader: THTTPServerClientEvent;

  FOnRequestContent: THTTPServerClientContentEvent;

  FOnRequestComplete: THTTPServerClientEvent;

  FOnPrepareResponse: THTTPServerClientEvent;

  FOnResponseComplete: THTTPServerClientEvent;

  FAddressFamily: THTTPServerAddressFamily;

  FBindAddressStr: string;

  FServerPort: Integer;

  FMaxBacklog: Integer;

  FMaxClients: Integer;

  FServerName: RawByteString;

  FRequestContentMechanism: THTTPContentReaderMechanism;

  FResponseContentMechanism: THTTPContentWriterMechanism;

  FUserObject: TObject;

  FUserData: Pointer;

  FUserTag: NativeInt;

  FLock: TCriticalSection;

  FActive: Boolean;

  FStopping: Boolean;

  FActivateOnLoaded: Boolean;

  FTCPServer: TF5TCPServer;

  procedure Init; virtual;

  procedure InitTCPServer;

  procedure InitDefaults; virtual;

  procedure Loaded; override;

  procedure Log();

  procedure Lock;

  procedure Unlock;

  procedure CheckNotActive;

  procedure SetAddressFamily();

  procedure SetBindAddress();

  procedure SetServerPort();

  procedure SetMaxBacklog();

  procedure SetMaxClients();

  procedure SetServerName();

  procedure SetRequestContentMechanism();

  procedure TriggerStart;

  procedure TriggerStop;

  procedure TriggerActive;

  procedure TriggerInactive;

  procedure TriggerRequestHeader();

  procedure TriggerRequestContent();

  procedure TriggerRequestComplete();

  procedure TriggerPrepareResponse();

  procedure TriggerResponseComplete();

  procedure TCPServerLog();

  procedure TCPServerStateChanged();

  procedure TCPServerClientAccept();

  procedure TCPServerClientCreate();

  procedure TCPServerClientAdd();

  procedure TCPServerClientRemove();

  procedure TCPServerClientStateChange();

  procedure TCPServerClientRead();

  procedure TCPServerClientWrite();

  procedure TCPServerClientClose();

  procedure ClientLog();

  procedure ClientStateChanged();

  procedure ClientRequestHeader();

  procedure ClientRequestContentBuffer();

  procedure ClientRequestContentComplete();

  procedure ClientPrepareResponse();

  procedure ClientResponseComplete();

  procedure SetupTCPServer;

  procedure DoStart;

  procedure DoStop;

  procedure SetActive();

  function GetClientCount;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Finalise;

  property OnLog: THTTPServerLogEvent; [rw]

  property OnStart: THTTPServerEvent; [rw]

  property OnStop: THTTPServerEvent; [rw]

  property OnActive: THTTPServerEvent; [rw]

  property OnInactive: THTTPServerEvent; [rw]

  property OnRequestHeader: THTTPServerClientEvent; [rw]

  property OnRequestContent: THTTPServerClientContentEvent; [rw]

  property OnRequestComplete: THTTPServerClientEvent; [rw]

  property OnPrepareResponse: THTTPServerClientEvent; [rw]

  property OnResponseComplete: THTTPServerClientEvent; [rw]

  property AddressFamily: THTTPServerAddressFamily; [rw]

  property BindAddress: string; [rw]

  property ServerPort: Integer; [rw]

  property MaxBacklog: Integer; [rw]

  property MaxClients: Integer; [rw]

  property ServerName: RawByteString; [rw]

  property RequestContentMechanism: THTTPContentReaderMechanism; [rw]

  property Active: Boolean; [rw]

  property TCPServer: TF5TCPServer; [r]

  property ClientCount: Integer; [r]

  property UserObject: TObject; [rw]

  property UserTag: NativeInt; [rw]

end;

TF5HTTPServer

TObject