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

[Pearl777]

Все неактуально, сам уже все сделал.

[Lardes]

Ты уверен, что ты спарсил правильную ссылку на капчу?

Как добавить капчу в Image1:

uses
  jpeg;

var
  JPEGPicture: TJPEGImage;
begin
  JPEGPicture := TJPEGImage.Create;
  try
    { Здесь твой код }
    CaptchaStream := TMemoryStream.Create;
    IdHTTP1.Get('http://site.ru/' + html, CaptchaStream);  //запись в Stream
    JPEGPicture.LoadFromStream(CaptchaStream);  //CaptchaStream - ваша картинка
    Image1.Picture.Assign(JPEGPicture);
    Image1.Refresh;
  finally
      JPEGPicture.Free;
      { ... }
  end;

[Pearl777]

Вот моя версия:

PHP код:

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:=TGIFImage.Create;
    Gif.LoadFromStream(Stream);
    Image1.Picture.Assign(Gif.Bitmap);
    Stream.Free;
   except
    on e:Exception do
     begin
      Gif.Free;
      Stream.Free;
     end; 


Капча выводится отлично. Но при попытки зарегистрироватся выдает "Форма заполнена неправильно", я добавил параметр act, теперь пишет "Неправильный код безопасности". В чем может быть проблема?

[Pearl777]

PHP код:

var
 html:WideString;
 Stream:TStream;
 gif:TGIFimage;
begin
    html:=IdHTTP1.Get('http://freezly.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://freezly.ru/'+html));
    Gif:=TGIFImage.Create;
    Gif.LoadFromStream(Stream);
    Image1.Picture.Assign(Gif.Bitmap);
    Gif.Free;
    Stream.Free;
     end; 


Подскажите, что здесь не так. Капчу выводится в Image, но при регистрации пишет "Неверный код безопасности".

[Pearl777]

Видел много примеров таких как у меня, все они работают, а у меня по какой то причине "Неверный код безопасности".

[Pearl777]

Ну кто нибуть поможет? Очень нужно, пожалуйста!

[Lardes]

Возможно неправильно составлен POST-запрос. Снифером посмотри что отправляет браузер и повтори тоже самое

[Pearl777]

Lardes, Уже проверял, отправляется один в один, ну кроме капчи.

[Lardes]

Куки подключали?

[Pearl777]

Lardes, Нет, сейчас попробую.