|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.07.2010, 16:20 | #1 |
Регистрация: 06.07.2010
Сообщений: 5
|
Не удается зарегенится
Написал програму для автоматичиской регистрацыи. Кажется все правильно но при вводе правельных данных не производится автоматическая регестрацыя. Что делать ???!!!!!
var StrPage:string; Data:TstringList; begin idhttp1.HandleRedirects:=true; Data:=TstringList.Create; Data.Add('e3c682b3da00c54d48035359a 450524d=1'); Data.Add('login='+Edit1.Text); Data.Add('pwd='+Edit2.Text); StrPage:=idhttp1.Post('http://neverfate.ru/login.php', Data); if Pos('chat_navigate', StrPage)<>0 then Label3.Caption:='Вошол' else Label3.Caption:='не вошол'; Data.Free; end; На форму надо кинуть idHTTP, 2 Edit, Memo, button Delphi 7 Indy 10.0.52 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не удается записать в БД с приложения | jorikb | Общие вопросы .NET | 1 | 08.03.2010 17:04 |
Объявление 32-х битного типа не удается. | Alex Cones | Паскаль, Turbo Pascal, PascalABC.NET | 18 | 16.02.2010 00:12 |
Не удается создать панель инструментов. | Stilet | Операционные системы общие вопросы | 3 | 30.01.2010 18:40 |
Не удается свернуть сгруппировнные столбцы | Leona_L | Microsoft Office Excel | 1 | 15.05.2009 14:13 |
Не удается собрать программу | Миша | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 7 | 23.12.2008 23:16 |