код который я нацарапал, но я немогу никак додуматься как обрабатывать результаты
кнопка "Зрегитрировать"
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 слишком я долго ее делаю
пожалуйста