Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3784205 Fri, 30 Nov 2018 07:47:23 +0000 InternetOpenUrl работает с HTTP, но не работает с HTTPS https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3784205 Fr0sT Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3784061 Thu, 29 Nov 2018 09:00:49 +0000 InternetOpenUrl работает с HTTP, но не работает с HTTPS https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3784061 Цитата ^D^ima @
попробуй libeay32.dll положить в папку с файлом

Спасибо, но лежит такой файл. Через TIdHTTP с сайтом нормально обмен идет информацией, видимо придётся на него переделывать и загрузку файлов.

Оказалось что сервер не настроен на работу с Windows XP + IE8. https://www.ssllabs.com/ssltest/analyze.html показал только для этой пары: Server sent fatal alert: handshake_failure, с остальными браузерами и системами всё в порядке. Открыл IE8 (наверное впервые за 15 лет) и в нём действительно сайт и файлы с него не грузятся.]]> Nik36 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3784051 Thu, 29 Nov 2018 08:23:09 +0000 InternetOpenUrl работает с HTTP, но не работает с HTTPS https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3784051 ^D^ima Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3783964 Wed, 28 Nov 2018 14:07:27 +0000 InternetOpenUrl работает с HTTP, но не работает с HTTPS https://forum.sources.ru/index.php?showtopic=413831&view=findpost&p=3783964
    DownloadFile('http://host.test/1.zip', 'C:.zip');


Однако если использовать https-ссылку:

    DownloadFile('https://host.test/1.zip', 'C:.zip');


то в третьей строчке функции UrlHandle получает значение nil. В описании к InternetOpenUrl говорится что она работает с https. GetLastError даёт ошибку 12157 (The application experienced an internal error loading the SSL libraries.). Какого-то параметра не хватает или чего более?

В браузере, разумеется работают обе ссылки на файл.

    function tFormUpdate.DownloadFile(const Url: string; const FileName : string): Boolean;
    var
      NetHandle: HINTERNET;
      UrlHandle: HINTERNET;
      Buffer: array[0..1024] of char;
      BytesRead: cardinal;
      f : File;
    begin
      NetHandle := InternetOpen(PChar(ExtractFileName(Application.ExeName)), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
     
      if Assigned(NetHandle) then begin
        UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD , 0);
     
        if Assigned(UrlHandle) then begin
          AssignFile(f, FileName);
          Rewrite(F, 1);
          FillChar(Buffer, SizeOf(Buffer), 0);
          repeat
            FillChar(Buffer, SizeOf(Buffer), 0);
            InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
            pbUpload.Position := pbUpload.Position + Integer(BytesRead);
            Application.ProcessMessages;
            BlockWrite(f, Buffer, BytesRead);
          until BytesRead = 0;
          InternetCloseHandle(UrlHandle);
          CloseFile(F);
          REsult := true;
        end else begin
          Result := false;
        end;
        InternetCloseHandle(NetHandle);
      end else
        result := false;
    end;
]]> Nik36 Delphi: Сетевое программирование