Показать сообщение отдельно
  #9  
Старый 13.11.2012, 18:02
Taemin Taemin вне форума
Прохожий
 
Регистрация: 07.02.2012
Сообщения: 45
Репутация: 10
По умолчанию

Все делал согласно этой инструкции:
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" В чем может быть проблема?
Ответить с цитированием