Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > проблема с HTTPS

Автор: werum 19.1.2009, 23:55

Проблема заключена в следующем я пытаюсь разобраться как скачать файл с HTTPS сервера. во нашол рабочий пример как я понял.

Код


uses IdHTTP, IdSSLOpenSSL;
function GetSSLHttp(url, user, password, FileName: string;  PortNum: integer=443):boolean;
var
  http: TIdHTTP;
  ssl:  TIdSSLIOHandlerSocket;
  ms:   TMemoryStream;
begin
  http := TIdHTTP.Create(nil);
  ssl := TIdSSLIOHandlerSocket.Create(http);
  ms := TMemoryStream.Create;
  http.Port := PortNum;
  http.IOHandler := ssl;
  http.Request.Username := user;
  http.Request.Password:=password;
  http.Request.BasicAuthentication := true;
  try
    http.Get(url, ms);
    result:=true;
  ms.SaveToFile(FileName);
  except
    result :=false;
  end;
  ms.Free;
  http.Free;
end;

от сюда http://forum.vingrad.ru/forum/topic-63257/unread-1.html#st_15_view_0
скачал библиотеки libeay32.dll и ssleay32.dll (прикреплены ниже).
но у меня почему то процедура не работает говорит что библиотека ssl не найдена. не могу понять по чему подскажите плиз. И если дело в библиотеках то не могли бы вы прикрепить их к ответу. а да библиотека я копирую в директорию с проектом. спс

Добавлено через 11 минут и 46 секунд
Просьба к модераторам удалить тему я нечаянно ее продублировал