TLFastCGIClient

type TLFastCGIClient = class(TLTcp)

protected

  FRequests: PLFastCGIRequest;

  FRequestsCount: Integer;

  FNextRequestID: Integer;

  FRequestsSent: Integer;

  FFreeRequest: TLFastCGIRequest;

  FSendRequest: TLFastCGIRequest;

  FRequest: TLFastCGIRequest;

  FState: TFastCGIClientState;

  FNextFree: TLFastCGIClient;

  FPool: TLFastCGIPool;

  FBuffer: pchar;

  FBufferEnd: pchar;

  FBufferPos: pchar;

  FBufferSize: dword;

  FReqType: Byte;

  FContentLength: Integer;

  FPaddingLength: Integer;

  function Connect; override;

  procedure ConnectEvent(); override;

  procedure DisconnectEvent(); override;

  procedure ErrorEvent(); override;

  function CreateRequester;

  procedure HandleGetValuesResult;

  procedure HandleReceive();

  procedure HandleSend();

  procedure ParseBuffer;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AddToSendQueue();

  function BeginRequest();

  procedure EndRequest();

  procedure Flush;

  function GetBuffer();

  property ReqType: Byte; [r]

  property RequestsSent: Integer; [r]

end;

TLFastCGIClient

TLTcp

TObject