denismi
25.03.2009, 19:28
Добрый день
подскажите уважаемые как можно реализавать такую программу:
есть объект label, кнопка при нажатии происходит подключение к веб ресурсу, происходит авторизация на ресурсе в полях, и поле авторизации определеная строка отображается в поле label.
почемуто неполучается авторизироваться на сййте
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;
подскажите уважаемые как можно реализавать такую программу:
есть объект label, кнопка при нажатии происходит подключение к веб ресурсу, происходит авторизация на ресурсе в полях, и поле авторизации определеная строка отображается в поле label.
почемуто неполучается авторизироваться на сййте
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;