Как загрузить файл через HTTPS с помощью Indy 10 и OpenSSL?
У меня есть следующая задача: загрузить файл с помощью HTTPS и аутентификации. Инди кажется, что путь, но по какой-то причине это не работает до сих пор. У меня есть следующее место:
- компонент TIdHTTP, который я использую для загрузки
- компонент TIdURI, используемый для создания URL
- компонент TIdSSLIOHandlerSocketOpenSSL, который должен обеспечить безопасное соединение. Необходимые библиотеки DLL находятся в двоичной папке.
сайт также требуется аутентификация, и я включил пользователя / pass в 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 "тайм-аут чтения". Тестирование URL в браузере работает без проблем. Есть идеи, чего не хватает или что я сделал не так?
3 ответов
Я, наконец, отказался от 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;
Я видел то же самое. Установка TIdHTTP.ReadTimeout до нуля устраняет проблему для меня.
...
HTTP.IOHandler := IOHandler;
HTTP.ReadTimeout := 0;
все связанные с SSL функции для безопасных соединений не будут выполнены, если некоторые дополнительные библиотеки установлены правильно.
2.) распакуйте и скопируйте обе библиотеки DLL в папку проекта (или где-то в пути вашей системы)
с этим ваш код из вопроса отлично работает для меня.
--reinhard