как на видео Code: procedure TForm1.Button1Click(Sender: TObject); var StrPage, ssylka:string; Data:TstringList; begin idhttp1.HandleRedirects:=true; StrPage:=idhttp1.Get('http://www.lockerz.com/auth/login'); ssylka:='http://www.lockerz.com/auth/login'; Data:=TstringList.Create; Data.Add('handle='+Edit1.Text); Data.Add('password='+Edit2.Text); StrPage:=idhttp1.Post(ssylka, Data); if Pos('Sign Out', StrPage)<>0 then Label3.Caption:='Залогинились' else Label3.Caption:='Не залогинились'; Data.Free; end;
сниффер в руки! он подскажет! и еще у idhttp1 поменяй request.useragent:=... на оперу например, и прикрепи кукименеджер
ТС прочитайте хотябы одну из этих книг 99% вопросов изчезнут P.S ему говорят учите основы он в ответ "ну что код так никто и не даст" ппц... TCP/IP. Для профессионалов Т. Паркер, К. Сиян. Эффективное программирование TCP/IP Йон Снейдер TCP/IP и DNS в теории и на практике. Полное руководство Досталек Л., Кабелова А. Протоколы TCP/IP. Практическое руководство Стивенс Р Маршрутизация в IP-сетях. Принципы, протоколы, настройка Хезер Остерлох Сети TCP/IP Том 3. Разработка приложений типа клиент/ сервер Дуглас Камер, Дэвид Стивенс TCP/IP. Архитектура, протоколы и реализация (включая IP версии 6 и IP Security) Сидни Фейт TCP/IP крупным планом Дуглас Комер Э. Таненбаум, Компьютерные сети