определенный текст WebBrowser + ShowMessage

[beegl]

подскажите, как вывести определенный текст с помощью компонента WebBrowser в ShowMessage, т.е. в открывшейся странице в WebBrowser выбрать текст и вывести в ShowMessage? Например:
выделенный текст на скрине, ..... всоего рода не большой отчет

[Pearl777]

Нужно парсить, пример ниже.

PHP код:

var
    StrPars:WideString;
begin
StrPars:=IdHTP1.Get('http://site.ru/index/3');
Delete(StrPars,1,pos('Начало',StrPars)+15);
Delete(StrPars,pos('Конец',StrPars),length(StrPars));
Edt1.Text := StrPars; 


Начало - это то, что находится перед нужным вам текстом (в исходнике страницы).
Конец - то, что написано после нужно вам текста (в исходнике страницы).

[beegl]

взял компонент с вкладки Indy - IdHTTP1

такая ошибка



подскажите, может что-то в свойствах надо настроить?

procedure TForm1.ZMButton3Click(Sender: TObject);
var
    StrPars:WideString;
begin
StrPars:=IdHTTP1.Get('https://assa.intertelecom.ua/ru/statistic');
Delete(StrPars,1,pos('пакетный трафик',StrPars)+15);
Delete(StrPars,pos('сальдо',StrPars),length(StrPars)); 
Memo1.Lines.Text := StrPars;
end;
end.

[Pearl777]

Ошибка возможно выскакивает из-за того, что вы не авторизованы. В программе нужно сделать авторизацию.
Memo1.Lines.Text := StrPars; - перепишите под себя, этот пример делался для memo.

[beegl]

авторизованный, потом нажимаю на эту процидуру

[Pearl777]

beegl, Вы авторизованы через Webbrowser, а этот пример для программной авторизации, а именно через Post запрос.

[Lardes]

https:// - подключайте нужные библиотеки

[beegl]

Lardes, напишите какие

это:

IOHandler у IdHTTP + найди библиотеки libeay32.dll и ssleay32.dll

[Lardes]

libeay32.dll, ssleay32.dll (должны быть в папке с прогой) и прописать юниты для работы с https. Какие точно не скажу, с инди не дружу

[beegl]

добавил:

TIdHTTP
TIdSSLIOHandlerSocketOpenSSL

скачал libeay32.dll, ssleay32.dll

такая ошибка



подскажите, что не так?