[Dreammaster]

Здравствуйте. Нужно скачать файл с Облака Mail.ru Там https. Пробовал при помощи библиотек ssleay32.dll и libeay32.dll Кучу перепробовал. не работает. Пробовал ставить Win32OpenSSL Про отсутствие библиотеки больше не пишет, но не скачивает. ошибка 10060. После пробовал так:

Код:

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end;

Что-то скачивается, но не работает. 120кБ...
Помогите реализовать код или подскажите куда копать. Нужно скачать программно этот файл:

Код:

https://cloud.mail.ru/public/6a4b883c0996/Project1.exe

[Alegun]

Используйте THTTPSend из пакета Synapse

[NumLock]

все-равно это не прямая ссылка на файл, а ссылка на страничку для скачивания. через WinHttp работает.