![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте,подскажите почему не работает?
Код:
procedure TForm2.Button1Click(Sender: TObject); var logo:TstringList; StrPage, ssylka:string; begin ssylka:='http://borncash.com/'; IdHTTP2.HandleRedirects:=true; logo:=TstringList.Create; StrPage:=IdHTTP2.Post(ssylka, logo); Logo.Add('lb_login=login') ; logo.Add('lb_password=password'); logo.Add('lb_remember=true'); if pos ('[logout]', StrPage) <>0 then ShowMessage('OK' ) else ShowMessage('NO'); logo.free; end; вроде все правильно,авторизацию делал через http analyzer Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! Последний раз редактировалось scroyler, 09.01.2012 в 21:36. |