TLHTTPServerSocket

type TLHTTPServerSocket = class(TLHTTPSocket)

protected

  FLogMessage: TStringBuffer;

  FSetupEncodingState: TSetupEncodingState;

  procedure AddContentLength(); override;

  procedure DoneBuffer(); override;

  procedure FlushRequest; override;

  function HandleURI; virtual;

  procedure LogAccess(); override;

  procedure LogMessage; override;

  procedure RelocateVariables; override;

  procedure ResetDefaults; override;

  procedure ParseLine(); override;

  procedure ParseRequestLine();

  function PrepareResponse();

  procedure ProcessHeaders; override;

  procedure WriteError(); override;

  procedure WriteHeaders();

public

  FHeaderOut: THeaderOutInfo;

  FRequestInfo: TRequestInfo;

  FResponseInfo: TResponseInfo;

  constructor Create; override;

  destructor Destroy; override;

  function SetupEncoding();

  procedure StartMemoryResponse();

  procedure StartResponse();

end;

TLHTTPServerSocket

TLHTTPSocket

TLSocket

TObject