commit 14a9a120a859c2e101bcd5f529693139bf9aef7a
author Jens Geyer <jensg@apache.org> Thu May 09 23:29:24 2019 +0200
committer Jens Geyer <jensg@apache.org> Fri May 10 00:20:25 2019 +0200
tree 3fd2d5bff620fa99ed9ab230b8a48f6ca3af7951
parent acdd4226c210336e9e15eb812e5932a645fcd5ce

THRIFT-4863 better indication of WinHTTP errors
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.WinHTTP.pas

diff --git a/lib/delphi/src/Thrift.WinHTTP.pas b/lib/delphi/src/Thrift.WinHTTP.pas
index 0d824b6..6ad8400 100644
--- a/lib/delphi/src/Thrift.WinHTTP.pas
+++ b/lib/delphi/src/Thrift.WinHTTP.pas
@@ -497,6 +497,7 @@
                          PWideChar(Pointer(aProxy)),        // may be nil
                          PWideChar(Pointer(aProxyBypass)),  // may be nil
                          aFlags);
+  if handle = nil then RaiseLastOSError;
   inherited Create( handle);
 end;
 
@@ -527,6 +528,7 @@
 begin
   FSession := aSession;
   handle   := WinHttpConnect( FSession.Handle, PWideChar(aHostName), aPort, 0);
+  if handle = nil then RaiseLastOSError;
   inherited Create( handle);
 end;
 
@@ -572,6 +574,7 @@
                                      PWideChar(aReferrer),
                                      @accept,
                                      aFlags);
+  if handle = nil then RaiseLastOSError;
   inherited Create( handle);
 end;