Comment télécharger un fichier sur HTTPS à l'aide d'Indy 10 et OpenSSL?

J'ai la tâche suivante: téléchargement d'un fichier à l'aide de HTTPS et d'authentification. Indy semble la voie à suivre, mais pour quelque raison il ne fonctionne pas si loin. J'ai le texte suivant à la place:

  • un TIdHTTP composant que j'utilise pour le téléchargement
  • un TIdURI composant utilisé pour créer l'URL
  • un TIdSSLIOHandlerSocketOpenSSL composant qui doivent assurer la sécurité de la connexion. Les Dll requises sont dans le dossier binaire.

Le site nécessite une authentification et je l'ai inclus le user/pass dans l'URL comme dans l'exemple ci-dessous. En bref voici le code:

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);

L'aide de ce code j'obtiens un "Délai d'attente" EIdReadTimeout exception très rapide. Test de l'URL dans un navigateur fonctionne sans problème. Toutes les idées sur ce qu'il manque ou ce que j'ai fait de mal?

Est-il un pare-feu / proxy entre l'application et le serveur? Navigateur des œuvres " ne veut pas dire qu'il ya une connexion directe à Internet.
Si je regarde dans les paramètres du navigateur il n'y a pas de proxy défini. Aussi, le fait que le WinInet approche fonctionne sans proxy me dit que ce n'est pas le problème.
N'utilisez pas le TIdURI.Nom d'utilisateur/mot de passe de propriétés dans cette situation. Vous devez utiliser le TIdHTTP.Nom d'utilisateur/Mot de passe de propriétés à la place.

OriginalL'auteur Tihauan | 2010-02-11

  1. 10

    J'ai finalement abandonné Indy et OpenSSL et utilisé WinInet pour le téléchargement. C'est le code qui a fonctionné pour moi:

    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;
    Un mot de prudence en ce qui concerne le code ci-dessus: vous devez toujours utiliser INTERNET_FLAG_RELOAD paramètre pour forcer un téléchargement à partir du serveur et pas du cache.Donc, je vous conseille de modifier votre code pour: lancer := InternetOpenURL(hSession, PChar(fullURL), nil, 0, INTERNET_FLAG_RELOAD, 0) ;

    OriginalL'auteur Tihauan

  2. 1

    J'ai vu la même chose. Réglage de la TIdHTTP.ReadTimeout à zéro corrige le problème pour moi.

    ...
HTTP.IOHandler := IOHandler;
HTTP.ReadTimeout := 0;
    ReadTimeout=0 est la valeur par défaut valeur de délai d'expiration, et il représente une infinité de délai d'attente.
    Oui, mais la définition dans le code après la fixation de l'IOHandler semble arrêter le EIdReadTimeout exception d'être jeté. (Au moins dans mon expérience, avec l'Indy versions qui sont fournis avec Delphi)

    OriginalL'auteur jasonpenny

  3. 0

    Tous les certificats SSL, les fonctions liées pour les connexions sécurisées échouera à moins que des bibliothèques supplémentaires sont installés correctement.

    1.) Télécharger la bibliothèque

    2.) décompressez et copiez les deux Dll dans votre dossier de projet (ou quelque part dans le CHEMIN d'accès de votre système)

    avec votre code à partir de la question fonctionne très bien pour moi.

    --reinhard

    Je vous remercie pour votre réponse. J'ai eu la Dll en place et il semble qu'ils ont été chargés correctement. Le délai d'attente semble être causé par quelque chose d'autre. WinInet approche fonctionne avec le même serveur.

    OriginalL'auteur pastacool