TLFastCGIRequest

type TLFastCGIRequest = class(TObject)

protected

  FID: Integer;

  FClient: TLFastCGIClient;

  FBuffer: TStringBuffer;

  FBufferSendPos: Integer;

  FHeader: FCGI_Header;

  FHeaderPos: Integer;

  FContentLength: Integer;

  FInputBuffer: pchar;

  FInputSize: Integer;

  FOutputDone: Boolean;

  FStderrDone: Boolean;

  FOutputPending: Boolean;

  FNextFree: TLFastCGIRequest;

  FNextSend: TLFastCGIRequest;

  FOnEndRequest: TLFastCGIRequestEvent;

  FOnInput: TLFastCGIRequestEvent;

  FOnOutput: TLFastCGIRequestEvent;

  FOnStderr: TLFastCGIRequestEvent;

  procedure HandleReceive;

  procedure HandleReceiveEnd;

  function HandleSend;

  procedure DoEndRequest;

  procedure DoOutput;

  procedure DoStderr;

  procedure EndRequest;

  procedure RewindBuffer;

  procedure SetContentLength();

  procedure SendEmptyRec();

  procedure SendGetValues;

  procedure SetID();

public

  constructor Create;

  destructor Destroy; override;

  procedure AbortRequest;

  function Get();

  procedure ParseClientBuffer;

  function SendBuffer;

  function SendPrivateBuffer;

  procedure SendBeginRequest();

  procedure SendParam();

  function SendInput();

  procedure DoneParams;

  procedure DoneInput;

  property ID: Integer; [rw]

  property StderrDone: Boolean; [r]

  property OutputDone: Boolean; [r]

  property OutputPending: Boolean; [r]

  property OnEndRequest: TLFastCGIRequestEvent; [rw]

  property OnInput: TLFastCGIRequestEvent; [rw]

  property OnOutput: TLFastCGIRequestEvent; [rw]

  property OnStderr: TLFastCGIRequestEvent; [rw]

end;

TLFastCGIRequest

TObject