Come scaricare un file su HTTPS usando Indy 10 e OpenSSL?

Question

Ho il seguente compito: scaricare un file usando HTTPS e autenticazione. Indy sembra la strada da percorrere, ma per qualche motivo non funziona fino ad ora. Ho il seguente al suo posto:

• un componente TIdHTTP che uso per il download
• un componente TIdURI utilizzato per creare l'URL
• un componente TIdSSLIOHandlerSocketOpenSSL che dovrebbe fornire la connessione sicura. Le DLL richieste si trovano nella cartella binaria.

Il sito richiede anche l'autenticazione e ho incluso l'utente/pass nell'URL come nell'esempio seguente. In breve questo è il codice:

URI := TIdURI.Create('https://test.example.com/'); 
URI.Username := ParamUserName; 
URI.Password := ParamPassword; 

HTTP := TIdHTTP.Create(nil); 
if URI.Protocol = 'https' then 
begin 
    IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); 
    IOHandler.SSLOptions.Method := sslvSSLv3; 
    HTTP.IOHandler := IOHandler; 
end; 

HTTP.Get(URI.GetFullURI([ofAuthInfo]), FileStream); 

Utilizzando questo codice ottengo un'eccezione EIdReadTimeout "Leggi Timeout" molto veloce. Testare l'URL in un browser funziona senza problemi. Qualche idea su cosa manca o cosa ho fatto di sbagliato?

Answer 1

Ho infine abbandonato Indy e OpenSSL e ho utilizzato WinInet per il download. Questo è il codice che ha funzionato per me:

function Download(URL, User, Pass, FileName: string): Boolean; 
const 
    BufferSize = 1024; 
var 
    hSession, hURL: HInternet; 
    Buffer: array[1..BufferSize] of Byte; 
    BufferLen: DWORD; 
    F: File; 
begin 
    Result := False; 
    hSession := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ; 

    // Establish the secure connection 
    InternetConnect (
    hSession, 
    PChar(FullURL), 
    INTERNET_DEFAULT_HTTPS_PORT, 
    PChar(User), 
    PChar(Pass), 
    INTERNET_SERVICE_HTTP, 
    0, 
    0 
    ); 

    try 
    hURL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0) ; 
    try 
     AssignFile(f, FileName); 
     Rewrite(f,1); 
     try 
     repeat 
      InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen) ; 
      BlockWrite(f, Buffer, BufferLen) 
     until BufferLen = 0; 
     finally 
     CloseFile(f) ; 
     Result := True; 
     end; 
    finally 
     InternetCloseHandle(hURL) 
    end 
    finally 
    InternetCloseHandle(hSession) 
    end; 
end; 

Answer 2

Tutti SSL funzioni correlate per connessioni sicure non riuscirà a meno che alcune librerie aggiuntive siano installati correttamente.

1.) Download libraries

2.) Scompatta e copia entrambe le DLL nella cartella di progetto (o da qualche parte nel percorso del vostro sistema)

con il che il codice dalla questione funziona bene per me.

--reinhard

Answer 3

Ho visto la stessa cosa. L'impostazione di TIdHTTP.ReadTimeout su zero risolve il problema per me.

... 
HTTP.IOHandler := IOHandler; 
HTTP.ReadTimeout := 0;