Как скачать файл через HTTPS, используя Indy 10 и OpenSSL? - PullRequest
Новая
       21

Как скачать файл через HTTPS, используя Indy 10 и OpenSSL?

9 голосов
/ 11 февраля 2010

У меня есть следующая задача: скачать файл с использованием HTTPS и аутентификацию. Indy кажется, что путь, но по некоторым причинам это не работает до сих пор. У меня на месте следующее:

  • компонент TIdHTTP, который я использую для загрузки
  • компонент TIdURI, использованный для создания URL
  • компонент TIdSSLIOHandlerSocketOpenSSL, который должен обеспечивать безопасное соединение. Необходимые библиотеки DLL находятся в двоичной папке.

Сайт также требует аутентификации, и я включил пользователя / пароль в URL, как в примере ниже. Вкратце это код: 

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

Используя этот код, я очень быстро получаю исключение EIdReadTimeout "Read Timeout". Тестирование URL в браузере работает без проблем. Любые идеи о том, что отсутствует или что я сделал не так?

Ответы [ 3 ]

11 голосов
/ 11 февраля 2010

Я окончательно отказался от Indy и OpenSSL и использовал WinInet для загрузки. Вот код, который работал для меня: 

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;
1 голос
/ 11 февраля 2010

Я видел то же самое. Установка нуля TIdHTTP.ReadTimeout устраняет проблему для меня. 

...
HTTP.IOHandler := IOHandler;
HTTP.ReadTimeout := 0;
0 голосов
/ 11 февраля 2010

Все связанные с SSL функции для безопасных подключений завершатся сбоем, если не будут правильно установлены некоторые дополнительные библиотеки.

1.) Скачать библиотеки

2.) Разархивируйте и скопируйте обе библиотеки DLL в папку вашего проекта (или где-нибудь в ПУТИ вашей системы)

с этим ваш код из вопроса прекрасно работает для меня.

- Reinhard

...