anchor.diff:      procedure CheckSocketResult(pvSocketResult:Integer);
       procedure InnerExecuteRecvResponse();
       procedure InnerExecuteRecvResponseTimeOut;
  -    procedure Close;
  -
       procedure DoAfterResponse;
       function GetResponseResultCode: Integer;
   
  
positive.code: procedure TDiocpHttpClient.Close;
  begin
    FRawSocket.Close();
  end;
  
  procedure TDiocpHttpClient.Get(pvURL: String);
  
negative.code:     constructor Create(AOwner: TComponent); override;
      
      destructor Destroy; override;
      procedure Close;
      procedure Post(pvURL:String);
      procedure Get(pvURL:String);
      procedure DirectPost(pvHost: string; pvPort: Integer; pvBuf: Pointer; len:
          Cardinal);
  
      procedure SetRequestBodyAsString(pvRequestData: string; pvConvert2Utf8:
          Boolean);
  