Трабл с jpeg капчей

[bulldog5293]

Бьюсь уже второй день, хотел капчу jpeg получить по аналогии как png капчу получаю, но пастоянно ссылается на одну и туже строку

  

type
  TForm2 = class(TForm)
    Image2: TImage;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 class function GetCapa(jpg: TJpegImage): string;
  end;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

class function TForm2.GetCapcha(jpg: TJpegImage): string;
var
  form: TForm2;
begin
  form := TForm2.Create(nil);
  try
    form.Image1.Picture.Assign(png);
    form.ShowModal; // когда закроется будет продолжено
    Result := form.Edit1.Text;
  finally
    form.Free;
  end;
end;

uses
jpeg;

type
  BOT = class(TThread)
    Url_Pay: String;
    private
    HTTP_BOT: TIdHTTP;
   jpg: TJPEGImage;
    code1: string;
    { Private declarations }
  protected
    procedure Execute; override;
    procedure capa;
  public
  end;

procedure BUX.Execute;
var
  img1: TMemoryStream;
  jpg: TJPEGImage;
cis: TStringList;
    begin
      cis := TStringList.Create;
      img1 := TMemoryStream.Create;
      jpg := TJPEGImage.Create;
      HTTP_BUX.get('http://' + FUrl + 'captch.php', img1);
      img1.Position := 0;
      jpg.LoadFromStream(img1);
      Form2.Image2.Picture.Assign(jpg);//ошибку кидает сюда
      code := '';
      Synchronize(go);
      cis.Add('code=' + code);
      HTTP_BUX.Post('http://' + FUrl + 'ptcp.php?viewp=sdafse&ds=oiifjvfnld', cis);
      jpg.Free;
      img1.Free;
      end;
end;

procedure BOT.go;
begin
  code := TForm2.GetCapa(jpg);;
end;

[mihali4]

А вы трассировать пробовали ?
У меня подозрение, что ошибка возникает строкой раньше...

[Bad-XxX]

Бмпшку от одного к другому присваивайте и будет вам счастье. (или picture к jpg)

[bulldog5293]

А вы трассировать пробовали ?
У меня подозрение, что ошибка возникает строкой раньше...

Трассировал, без трасировки вобще не показывает где.

Бмпшку от одного к другому присваивайте и будет вам счастье. (или picture к jpg)

А это как?

[Bad-XxX]

Form2.Image2.Picture:=jpg; //по-моему так
ещё у каждого из них есть свой TBitMap, можно через него. Ошибка в том, что ты пытаешься связать 2 совершенно разных объекта методом Assign.
И да, на всякий, проверь jpg через SaveToFile, может ошибка где-то до этого.

[mihali4]

Сообщение от Bad-XxX

Form2.Image2.Picture:=jpg; //по-моему так
ещё у каждого из них есть свой TBitMap, можно через него. Ошибка в том, что ты пытаешься связать 2 совершенно разных объекта методом Assign.
И да, на всякий, проверь jpg через SaveToFile, может ошибка где-то до этого.

Ахинею постыдились бы писать...
Что ни фраза, то "перл".

То bulldog5293

Трассировал, без трасировки вобще не показывает где

То есть при пошаговом выполнении сбой происходит именно при выполнении строки
Form2.Image2.Picture.Assign(jpg) ???
А наведите мышку на переменную JPG перед выполнением этой строки - не равно ли ее значение NIL ?

[bulldog5293]

И да, на всякий, проверь jpg через SaveToFile, может ошибка где-то до этого.

тоже самое

А наведите мышку на переменную JPG перед выполнением этой строки - не равно ли ее значение NIL ?

Да равно NIL

[mihali4]

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

Да равно NIL

Ну вот видите...
Что сие означает ?
На мой взляд - что у вас не срабатывает строка

HTTP_BUX.get('http://' + FUrl + 'captch.php', img1);

Кстати, может быть, все-таки 'captchа.php' ?
А какое значение у FUrl ? Может, там просто слэша не хватает ?
Пройдитесь еще раз по шагам и просмотрите значения всех переменных...

[bulldog5293]

На мой взляд - что у вас не срабатывает строка

HTTP_BUX.get('http://' + FUrl + 'captch.php', img1);

Я сниферам смотрел, работает

Кстати, может быть, все-таки 'captchа.php' ?

Нет именно captch.php

А какое значение у FUrl ? Может, там просто слэша не хватает ?

Хватает всё

Пройдитесь еще раз по шагам и просмотрите значения всех переменных...

Но всё равно сомненя на

 Form2.Image2.Picture.Assign(jpg);

т.к. в самом начале jpg:=nil
Создал новый проект и вывод на форму работает, может ли это быть связанно с тем что в моём проекте на одну и туже модальную форму, но в разный image картинка выводится?

[Пепел Феникса]

у вас две переменные с именем jpg в одной области видимости(одна как поле класса, другая как локальная переменная).
попробуйте поставить Image1.PICTURE.bitmap.assign(jpg)
и вообще, где текст ошибки?
у вас поток всего один или много?