![]() |
|
Модераторы: Poseidon |
![]()
|
|
| 001dark |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 13.3.2007 Репутация: нет Всего: нет |
Нужна прога атоматической регистрации почты допустим www.zmail.ru
код который я нацарапал, но я немогу никак додуматься как обрабатывать результаты кнопка "Зрегитрировать" procedure TForm1.Button1Click(Sender: TObject); var data: TStringList; STR,sfile: String; begin STR:='login='+E_login.Text; STR:=STR+'&domain=zmail.ru'; STR:=STR+'&fullname='+E_fullname.Text; STR:=STR+'&RecoverPassword='+E_RecoverPassword.Text; STR:=STR+'&genpass=own'; STR:=STR+'&newpass='+E_newpass.Text; STR:=STR+'&newpass2='+E_newpass.Text; STR:=STR+'&captchaId='+E_captchaId.Text; STR:=STR+'&captchaCode='+E_captchaCode.Text; STR:=STR+'&create=çàðåãèñòðèðîâàòü'; STR:='http://stat.zenon.net/c/cgpaccount'+'?'+str; Memo1.text:=STR; IdHTTP1.HandleRedirects := True; IdHTTP1.Get(STR); //else Showmessage('hER vam!! madam'); button1.Enabled:=false; Memo1.Lines.Add('ËÎÃÈÍ = '+E_login.Text+'@zmail.ru , '+ 'Ïàðîëü = '+E_newpass.Text); Memo1.Lines.Add('áóäåì íàäåÿòüñÿ ,÷òî ðåãèñòðàöèÿ ïðîøëà'); Sfile:=E_login.Text+'@zmail_ru.txt'; memo1.Lines.SaveToFile(sfile); end; есть еще одна кнопка "Получить картину" она грузит исправно картинку. Теперь собственно в чем вопрос )) как делать редиректы В чем неправильность моего кода В броузере если ящик не зарегистрировался, то он перекинет на страницу с ошибкой или перекинет на страницу с твоей почтой я делал так, memo1.Text:=IdHttp1.Response.Location; не вышло.. Желательно теории по редиректу ну и примерчик и прошу исходник проги или пример, короче как можно больше инфы по indy PS.. инди ин дептх прочитал, не то (( прога работает но не дает результатов. (( HELP слишком я долго ее делаю |
|||
|
||||
| Matematik |
|
|||
|
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1027 Регистрация: 11.3.2006 Репутация: 1 Всего: 50 |
Если Indy не обрабатывает перенаправление сама (см. параметр HandlRedirekt), то в результате запроса вызывает исключение, которое и надо ловить
См. Список кодов состояния HTTP "Коды перенаправления": http://ru.wikipedia.org/wiki/%D0%A1%D0%BF%...0%B8%D1%8F_HTTP
|
|||
|
||||
| 001dark |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 13.3.2007 Репутация: нет Всего: нет |
а примеры по инди подкиньте, мне описание всех компонент бы
|
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: нет Всего: 98 |
примеры:
http://www.indyproject.org/Sockets/Demos/index.aspx описание всех компонентов: http://www.indyproject.org/Sockets/Docs/index.aspx -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |