[Delphi] Регер почты Rambler.

[Alsazius]

Прошу помочь найти ошибку. Регер пока без капчи и без вывода результата.

var
  Form1: TForm1;
  S, request_key: string;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var Data: TStringList;

begin
Data:= TStringList.Create;
Data.Add('request.key='+request_key);
Data.Add('action=step2');
Data.Add('profile.firstname='+Edit1.Text);
Data.Add('profile.lastname=')+Edit2.Text;
Data.Add('profile.username='+Edit6.Text);
Data.Add('profile.domain='+ComboBox1.Text);

Data.Add('action=step3');
Data.Add('profile.password1'+Edit7.Text);
Data.Add('profile.password2'+Edit3.Text);
Data.Add('profile.question'+ComboBox2.Text);
Data.Add('profile.customquestion'+ComboBox2.Text);
Data.Add('profile.answer'+Edit8.Text);
if RadioButton1.Checked then
  Data.Add('profile.gender=m')
else
  Data.Add('profile.gender=f');
Data.Add('profile.birthday.day'+ComboBox3.Text);
Data.Add('profile.birthday.month'+ComboBox4.Text);
Data.Add('profile.birthday.year')+ComboBox5.Text;
Data.Add('captcha.code'+Edit9.Text);

S:= IdHTTP.Post('http://id.rambler.ru/profile/create', Data)
end;

Лог ошибок

Build
  [Error] Unit1.pas(70): Incompatible types: 'String' and 'Integer'
  [Error] Unit1.pas(86): Incompatible types: 'String' and 'Integer'
  [Error] Unit1.pas(89): Undeclared identifier: 'Post'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[eoln]

Там же указаны номера строк с ошибками, неужели не видно? Невнимательность всему виной

70 Data.Add('profile.lastname='+Edit2.Text);
86 Data.Add('profile.birthday.year'+ComboBox5.Text);
89 S:= IdHTTP1.Post('http://id.rambler.ru/profile/create', Data)

[Alsazius]

Так и есть) Спасибо. В следующий раз буду внимательнее.

[Alsazius]

Да бы не создавать другую тему. Запилю сдесь. Не работает капча к регеру который выше. Что не так?

procedure TForm1.Button1Click(Sender: TObject);
var FS:TFileStream;
begin
S:=IdHTTP1.Get('http://id.rambler.ru/profile/create');
request_key:= Copy(S, Pos('request.key', S)+16, 32);

FS:=TFileStream.Create('captcha.jpg',FMCreate);
IdHTTP1.Get('http://id.rambler.ru/captcha/'+request_key+'.jpg', FS);
FS.Free;
Image1.Picture.LoadFromFile('captcha.jpg');
end;

[Кольша]

var FS:TmemoryStream;
begin
S:=IdHTTP1.Get('http://id.rambler.ru/profile/create');
request_key:= Copy(S, Pos('request.key', S)+16, 32);

FS:=TmemoryStream.Create;
IdHTTP1.Get('http://id.rambler.ru/captcha/'+request_key+'.jpg', FS);
FS.SaveToFile('captcha.jpg');
fs.Free;
Image1.Picture.LoadFromFile('captcha.jpg');
end;

[Alsazius]

Сообщение от Кольша

var FS:TmemoryStream;
begin
S:=IdHTTP1.Get('http://id.rambler.ru/profile/create');
request_key:= Copy(S, Pos('request.key', S)+16, 32);

FS:=TmemoryStream.Create;
IdHTTP1.Get('http://id.rambler.ru/captcha/'+request_key+'.jpg', FS);
FS.SaveToFile('captcha.jpg');
fs.Free;
Image1.Picture.LoadFromFile('captcha.jpg');
end;

Выдает ошибку.

[eoln]

Alsazius, научись читать ошибки. Там сказано, что по данному адресу (в интернете) изображение не найдено

P.S. Может начать с чего нибудь попроще?

[Alsazius]

P.S. Может начать с чего нибудь попроще?

Решил начать с этого.

Никак, помогите разобраться и доделать Регер с каптчей во вложении. Параметры которые передаются:

1 шаг регистрации:
request.key c42c05e244f082d8fbe740578d990643
profile.username daniil.daniilov
profile.lastname Даниилов
profile.firstname Даниил
profile.domain myrambler.ru
button.submit
action step2

2 шаг регистрации:
request.key c42c05e244f082d8fbe740578d990643
profile.question Почтовый индекс ваших родителей
profile.password2 123321q
profile.password1 123321q
profile.gender m
profile.customquestion Почтовый индекс ваших родителей
profile.birthday.year 2001
profile.birthday.month 11
profile.birthday.day 13
profile.backup_email
profile.answer 123321q
captcha.code PYCRN
button.submit
action step3

[Alsazius]

UP!!!!!!!!!!!!!!!!

Выяснилось) что request.key это не изображение. Как же спарсить картинку, если параметр вобще не передается?

[Alsazius]

UP________________