Все делал согласно этой инструкции:
http://www.youtube.com/watch?v=vLAQUbkn8dQ
Переданные данные методом POST обнаружил сдедующие:
Код:
org.apache.struts.taglib.html.TOKEN 3dbbb56715ca77de721aaf71d10c5261
isSubmitted true
USERNAME
USER_NAME
ORIG_URL
isInetUser null
buser
bpath
user +380670000000
password 111111
Submit Вхід в систему
value(jumpTo)
value(jumpToUrl)
Адрес скрипта:
https://my.kyivstar.ua/tbmb/login/perform.do
Код процедуры получился следующим:
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
StrPage,KSlink:string;
log:TStringList;
begin
KSlink:='https://my.kyivstar.ua/tbmb/login/perform.do';
log:=TStringList.Create;
log.Add('user'+edt1.Text);
log.Add('password'+edt2.Text);
log.Add('login=Вхід в систему');
log.Add('org.apache.struts.taglib.html.TOKEN=3dbbb56715ca77de721aaf71d10c5261');
log.Add('isSubmitted=true');
log.Add('isInetUser=null');
log.Add('USERNAME=');
log.Add('USER_NAME=');
log.Add('ORIG_URL=');
log.Add('buser=');
log.Add('bpath=');
log.Add('value(jumpTo)=');
log.Add('value(jumpToUrl)=');
StrPage:=idhtp1.Post(KSlink,log);
if pos ('logout', StrPage) <> 0 then
lbl1.Caption:='Авторизировались'
else
lbl1.Caption:='Не авторизировались';
log.Free;
end;
При нажатии на кнопку "Авторизация" появляется ошибка "IOHandler value is not valid" В чем может быть проблема?