Да нет, все работает.
Вот тестовый код:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses IdHTTP, IdSSLOpenSSL;
function ReadInternetPage(AUrl : String) : String;
var
IdHTTP : TIdHTTP;
Id_HandlerSocket : TIdSSLIOHandlerSocketOpenSSL;
begin
IdHTTP := TIdHTTP.Create(Nil);
Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
Try
IdHTTP.Request.BasicAuthentication := False;
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
Id_HandlerSocket.SSLOptions.Mode := sslmClient;
Id_HandlerSocket.SSLOptions.Method := sslvSSLv23;
IdHTTP.IOHandler := Id_HandlerSocket;
Result := IdHTTP.Get(AUrl);
Finally
Id_HandlerSocket.Free;
IdHTTP.Free;
End;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
|
Вот начало того, что выдает в мемо:
Цитата:
<!DOCTYPE html>
<html class="desktop"><!--request: 157582965085129e05792b968051b371--><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><title>Работа в Москве, поиск персонала и публикация вакансий - hh.ru</title><meta name="description" content="hh.ru — сервис, который помогает найти работу и подобрать персонал в Москве более 19 лет! Создавайте резюме и откликайтесь на вакансии. Набирайте сотрудников и публикуйте вакансии."><meta name="keywords" content="работа, вакансии, работа, поиск вакансий, резюме, работы, работу, работ, ищу работу, поиск"><meta property="og:image"
|
На D10:
1. Создали проект, написали код.
2. Сохранили проект.
3. Скомпилили проект. В результате в папке проекта (если настройки по умолчанию не изменены) будет папочка Win32\Debug
4. Вот в эту папочку Win32\Debug кидаем две dll: libeay32.dll и ssleay32.dll
5. Запускаем проект, нажимаем кнопку - получаем результат.
Возможные проблемы - программа не может загрузить openSSL dll. Почему это может происходить:
1. Библиотеки не найдены. Они должны быть либо рядом с исполняемым файлов (именно оттуда Win32\Debug, причем неважно, из IDE запуск или так), либо в домашней папке Window или Windows\System (я не рекомендую такой вариант, в т.ч. потому что см. п. 2)
2. Билиотеки неправильной версии. Там в какой-то момент openSSL поменял структуру библиотек, так что новые не совместимы со старыми, а Indy ожидает старый формат. У меня версия 0.9.8zh. Если правильно помню, то смена произошла где-то в версии 1.0.x, так что любая до 1.0 должна работать.
07.12.2019, 21:51
Древовидный вид