Регистрация uCoz

[Pearl777]

Здравствуйте! Я новичок в delphi, вот решил попробовать сделать регистратор на uCoz сайтах. Но только вот регистрировать он не хочет.

Вот сам код который идет на регистрацию:

PHP код:

procedure TForm1.XPButton1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('user='+XPEdit2.Text);
params.Add('password='+XPEdit3.Text);
params.Add('password1='+XPEdit3.Text);
params.Add('email='+XPEdit4.Text);
params.Add('code='+XPEdit1.Text);
params.Add('jkd498=1');
params.Add('jkd428=1');
params.Add('name=1');
params.Add('gender=1');
params.Add('checkbox=rule5');
params.Add('a=4');
params.Add('a=4');
params.Add('s=0');

responseres.Text:=idhttp1.Post('http://site.ru/index/1',params);
    if Pos('Регистрация успешно завершена!',responseres.Text)>0 then
         XPEdit5.Text := responseres.Text
    else ShowMessage('Ошибка регистрации!');
    XPEdit5.Text := responseres.Text;
end; 


А вот на капчу:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
 pic: TJPEGImage;
 pre: TMemoryStream;
begin
 pic:= TJPEGImage.Create;
 pre:= TMemoryStream.Create;
 idhttp1.Get('http://site.ru/secure/?k=9123102696506729763;m=usreg62345908;tm=1357323046', pre);
 pre.Position := 0;
 pic.LoadFromStream(pre);
 Image1.Picture.Assign(pic);
 pre.free;
 pic.free;
end; 


Подскажите, что здесь не так.

[Pearl777]

На сколько я понял проблема у меня с капчой, подскажите пожалуйста как парсить капчу из uCOz.

[Pearl777]

Ну подскажите, что не так в коде капчи?

[Человек_Борща]

Капча меняется каждый раз. ссылку на неё надо тоже получать динамически.

[Pearl777]

Сообщение от Человек_Борща

ссылку на неё надо тоже получать динамически.

Подскажите пожалуйста, как это сделать?

[PetrPetrov]

Подскажите пожалуйста, как это сделать?

Обрабатывайте полученную страницу с помощью pos,copy,delete. Загружаете страницу, находите то место где находится ссылка. Вырезаете ссылку и загружаете её.

[Pearl777]

Сообщение от PetrPetrov

Обрабатывайте полученную страницу с помощью pos,copy,delete. Загружаете страницу, находите то место где находится ссылка. Вырезаете ссылку и загружаете её.

Можно ли как то на примерах, не особо понял что вы написали. Я в создании программ полный 0, вот только начал изучать delphi. Это моя первая программа.

[Pearl777]

Поможет хоть кто нибудь?? Перепробовал уже много способов, ничего так и не получилось.

[Lardes]

Pearl777, просто парсите ссылку на капчу... Чего сложного?

[Pearl777]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
 html:WideString;
 Stream:TStream;
 gif:TGIFimage;
begin
   try
    TGIFimage.Create;
    html:=IdHTTP1.Get('http://site.ru/index/3');
    Delete(html,1,pos('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="',html)+length('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="'));
    Delete(html,pos('" onclick',html),length(html));
    Stream:=TStringStream.Create(IdHTTP1.Get('http://site.ru/'+html));
    Gif.LoadFromStream(Stream);
    Image1.Picture.Assign(Gif.Bitmap);
    Stream.Free;
   except
    on e:Exception do
     begin
      Gif.Free;
      Stream.Free;
     end; 


Попытался сделать вот так, но все равно ничего не вышло.
Выделяется синим строка:

PHP код:

Gif.LoadFromStream(Stream);