I changed the following in procedure
procedure TDataImport.ImportFromURL(const AURL: String);
Code: Select all
{$IFDEF D9}
LHandler : TIdSSLIOHandlerSocketOpenSSL;
{$ELSE}
{$IFDEF D7}
// { JJD - Change for latest Indy } LHandler : TIdSSLIOHandlerSocket;
LHandler : TIdSSLIOHandlerSocketOpenSSL;
{$ENDIF}
{$IFDEF D9}
LHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
{$ELSE}
// { JJD - Change for latest Indy } LHandler:=TIdSSLIOHandlerSocket.Create(nil);
LHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
{$ENDIF}