[denismi]

Добрый день
подскажите уважаемые как можно реализавать такую программу:
есть объект label, кнопка при нажатии происходит подключение к веб ресурсу, происходит авторизация на ресурсе в полях, и поле авторизации определеная строка отображается в поле label.

[lmikle]

TIdHTTP тебе в помощь.
Методы Get и Post, если не ошибаюсь.
В результате получишь полный текст страницы, ну а дальше анализируй и вытаскивай нужные тебе данные.

[:S.p.a.m.]

А строка случайно не ссылка? Вот статейка как найти все ссылки на странице и текст этих ссылок

[denismi]

Сообщение от :S.p.a.m.

А строка случайно не ссылка? Вот статейка как найти все ссылки на странице и текст этих ссылок

нет не ссылка

можно какойто пример
такое должно работать?
memo1.text := IdHTTP1.Get('http://www.google.com.ua');

[lmikle]

почти.
только надо:
memo1.lines.text := IdHTTP1.Get('url');

[AlexTheC0d3r]

желательно сначала все протащить через php файл

в виде парсера

потом просто добыть эту одну строчку

[AlexTheC0d3r]

случайно не чекер вконтакте?

[denismi]

Сообщение от AlexTheC0d3r

случайно не чекер вконтакте?

нет
https://my.kyivstar.ua/tbmb/login/show.do

авторизация на сайте, после неё переход по ссылке где отоброжается баланс

что то не очень доходит как засунуть туда логин и пароль

[denismi]

вроде дошло, только авторизация не катит - ошибка invalid class typecast

Код:

var
params, responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('name=username');
params.Add('Password=*****');
responseres.Text:=idhttp1.Post('https://my.kyivstar.ua/',params);
if Pos('logout',responseres.Text)>0 then
ShowMessage('Авторизовались');
finally
params.free;
responseres.free;
end;
end;

Admin: Пользуемся тегами!