Delphi8 problem accessing https: web data - SSL

[rmwatson3rd@gmail.com]

I have downloaded the appropriate  DLLs and have them in the right place ... etc etc ... least I think I do.

I can access an    http    site  (without the s) ...

But I get an error with https   sites  ...  (with the s)

Specifically the error says     "could not load SSL library" .

Any suggestions, directions, etc are appreciated.

Thank you,
Bob W

[Jose Nilton Pace]

OpenSSL dll's are version 1.0.2.u ?.

[rlebeau]

I have downloaded the appropriate  DLLs and have them in the right place ... etc etc ... least I think I do.

It would help to know WHICH ones you downloaded, WHERE you placed them ... etc etc ...

I can access an    http    site  (without the s) ...

Sure, since it doesn't use SSL/TLS, and Indy doesn't load OpenSSL until it is actually needed.

But I get an error with https   sites  ...  (with the s)

Specifically the error says     "could not load SSL library" .

You can use Indy's WhichFailedToLoad() function in the IdSSLOpenSSLHeaders unit to find out why. Either the DLLs themselves could not be loaded into memory (ie, using 32bit DLLs in a 64bit project or vice versa, or mixing different versions of the DLLs together), or the DLLs are missing required function exports that Indy uses.

[rmwatson3rd@gmail.com]

It would help to know WHICH ones you downloaded, WHERE you placed them ... etc etc ...

I downloaded them from this site     https://indy.fulgan.com/SSL/

I put them in a directory      C:\Programs\XE8\SSL_DLL_ForScraping

I have the    Project -> Options -> Search Path  going thru this directory

On FormCreate I added this code:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SSLDir := 'c:\programs\XE8\SSL_DLL_ForScraping';
  IdOpenSSLSetLibPath(SSLDir);
end;

Sure, since it doesn't use SSL/TLS, and Indy doesn't load OpenSSL until it is actually needed.

Response - OK, thanks

You can use Indy's WhichFailedToLoad() function in the IdSSLOpenSSLHeaders unit to find out why.  Either the DLLs themselves could not be loaded into memory (ie, using 32bit DLLs in a 64bit project or vice versa, or mixing different versions of the DLLs together), or the DLLs are missing required function exports that Indy uses.

This is the code:

Code:

function GetPage(aURL: string): string;
var
  Response: TStringStream;
  HTTP: TIdHTTP;
begin
  Result := '';
  Response := TStringStream.Create('');
  try
    HTTP := TIdHTTP.Create(nil);
    try
      HTTP.Get(aURL, Response);     <--------  Failure is here
      //  WhichFailedToLoad;                < -------   Where/how do I use this ??  Did not work here.
      if HTTP.ResponseCode = HTTP_RESPONSE_OK then begin
        Result := Response.DataString;
      end else begin
        // TODO -cLogging: add some logging
      end;
    finally
      HTTP.Free;
    end;
  finally
    Response.Free;
  end;
end;

[Jose Nilton Pace]

Hi Bob, to consume HTTPS you need:

Code:

IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;

[rlebeau]

I downloaded them from this site     https://indy.fulgan.com/SSL/

But WHICH ZIP FILE EXACTLY did you download?

I put them in a directory      C:\Programs\XE8\SSL_DLL_ForScraping

I have the    Project -> Options -> Search Path  going thru this directory

That is not necessary.  That option has no effect on your app at runtime, and the DLLs are not used at compile-time.

On FormCreate I added this code:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SSLDir := 'c:\programs\XE8\SSL_DLL_ForScraping';
  IdOpenSSLSetLibPath(SSLDir);
end;

That code is OK.

This is the code:

Putting the call to WhichFailedToLoad() right after the call to TIdHTTP.Get() doesn't work because the error is reported as a raised exception.  So you need a try..except block to catch that exception, eg:

Code:

function GetPage(aURL: string): string;
var
  HTTP: TIdHTTP;
begin
  Result := '';
  try
   HTTP := TIdHTTP.Create(nil);
    try
      Result := HTTP.Get(aURL);
    finally
      HTTP.Free;
   end;
  except
    on Exception do begin
      // TODO -cLogging: add some logging
      // call WhichFailedToLoad() here...
    end;
  end;
end;

---

Hi Bob, to consume HTTPS you need:

Code:

IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;

FYI, TIdHTTP handles that automatically by default.  You don't need to assign an SSLIOHandler explicitly, unless you need to customize the SSLIOHandler (specify certificates, enable TLS 1.1/1.2, etc).  Bob would not be getting a "could not load SSL library" error if TIdSSLIOHandlerSocketOpenSSL were not being assigned to TIdHTTP.  He would be getting an "IOHandler value is not valid" error instead.