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:   end;
  end;
  
  procedure TDiocpHttpClient.DirectPost(pvHost: string; pvPort: Integer; pvBuf:
      Pointer; len: Cardinal);
  var
  