Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Янв

Как парсить https сайт ?

Posted by obzor under Delphi

Как парсить https сайт? В http получается, но https не парсит.

Код:

var
 IdHTTP: TIdHTTP;
StrPars,St :string;
 s:Tstringlist;
begin
s:=TStringList.Create;
IdHTTP:=TIdHTTP.Create(Self);
s.text:=IdHTTP.Get('http://........./');

StrPars:=s.text;

Delete(StrPars,1,pos('<td>',StrPars)+1);
st:=copy(StrPars,3,pos('</td>',StrPars)-3);


label1.Caption:=(St);
end;

Wasserman

Ну так. Смотри.

1. Делай гет запрос, заключив в (Try Except) обработчик. И обрабатывай ошибки.
2. Смотри в сторону компонентов Indy, там есть компоненты для соединения SSL.
3. в Uses модули IdSSL, IdSSLOpenSSL.
4. Добавляешь компонент TIdSSLIOHandlerSocketOpenSSL
5. Связываешь их.

+ еще понадобятся файлы

libeay32.dll
ssleay32.dll

Если что читай про библиотеку OpenSSL

Stilet

Вот так подключаю у себя к FTP SSL я:

Код:

    ssl:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
     with ssl do begin
        Destination :=IdFTP.Host +':'+IntToStr(IdFTP.Port);
        Host := IdFTP.Host;
        MaxLineAction := maException;
        Port := IdFTP.Port;
        DefaultPort := 0 ;
        ReadTimeout := 60000 ;
        SSLOptions.Mode := sslmUnassigned;
        SSLOptions.VerifyMode := [];
        SSLOptions.VerifyDepth := 0;
     end;
     IdFTP.IOHandler:=ssl;
     IdFTP.UseTLS:=utUseRequireTLS;
     IdFTP.Passive:=true;
     IdFTP.IPVersion:=Id_IPv4;

Уверен что к HTTP подключается так же.

тема на форуме