Долго выбирал разделы между "программированием" и "Обучением".
Выбрал это.
Если тема будет удачной, то это поможет многим в дальнейшем.
Стоит задача. На первый взгляд простая. Взять тело страницы.
Почитал интернет. Везде описывается одно и тоже. До слёз просто и всем так понятно, что дальше никто не описывает.
А заключается в следующем: Скачиваем компонент synapse. (там отдельные танцы. многие не знают как его влепить, и я тоже каждый раз его компилирую, чтобы он у меня заработал в новом проекте)
Потом в обработчик кнопки вставляем это:
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var hs:thttpsend;
str:TStringList;
begin
hs:= THTTPSend.Create;
str:= TStringList.Create;
hs.HTTPMethod('Get', 'http://чтото там.com');
hs.MimeType:='application/x-www-form-urlencoded';
str.LoadFromStream(hs.Document);
str.Add(inttostr(hs.ResultCode )) ;
Memo1.Clear;
Memo1.Lines.AddStrings(str);
end;
И но вот в МЕМО вся старница как есть. Однако, если мы захотим получить страницу HTTPS:/ то все гуру мастера говрят: - для этот вам МОЖЕТ понадобится openssl. и живенько так исчезают.
Это мифическое OPENSSL на разных сайтах упоминалось в виде Отдельной библиотеки, которую можно просто кинуть с экзешником и прога начинала дико хохохча выплевывать листинги сайтов, а до этого тупо мигала курсором МЕМО.
В другом месте человек проломил головой стену, пытаясь понять почему не работает. Однако в панике удалил из одной папки библиотеки майкрософт, ещё какую-то, и о чудо все завелось. (почему я не уделяю этому внимания? потому что этой библиотеки я вообще не нашел).
Третьи предлагали установить её в систему - что дико не удобно и не подходит.
Однако в uses можно прописать openssl и ошибки не будет. значит она уже встроена в тело программы, и парится по этому не надо.
Четвертый - на пол километра описывет возможности synapse. И по ходу его вобще не волнует проблема https оказывается надо просто насобирать море куков кудато в стринглист, а программа сама поймет когда и куда их отправить, чтобы получить тело документа.
И НИ ОДИН не показал рабочий вариант.
Вот для этого мы и собрались тут.
А теперь вопрос знатокам.
1) Как настроить лазарус, чтобы все компоненты были в рабочем состоянии, не конфликтовали итд.
2) что нужно прописать в юзес
3) какой код вписать в обработчик, чтобы в мемо наконец-то получить тело страницы хотябы яндекса.
С уважением.
Причём, как выяснилось в ходе практической работы, модуль opensslsockets, который входит в комплект FPC версии 3.2 и ниже, не работает с OpenSSL версии 1.1 (это современная на сегодняшний день, например, идёт в комплекте с Ubuntu), поэтому этот модуль нужно брать из транковой версии FPC 3.3. Если же версия OpenSSL ниже, то работает opensslsockets из 3.2 и 3.0.