[Androm]

Здравствуйте. Нужна помощь
вот обычный код. вроде ж прaвильный

Код:

procedure TForm1.N4Click(Sender: TObject);
var:
b:TBitmap;
j: TJPEGImage;
begin
j := TJPEGImage.Create;
 try
 Image1.Picture.LoadFromFile('1.jpg');
 j.DIBNeeded;
 b := TBitmap.Create;
   try
  b.Assign(j);
  b.SaveToFile('temp.bmp');
   finally
   b.free;
   end;
  finally
  j.Free;
  end;
 end;

Админ: Пользуемся тегами для оформления кода!

а вылезает сообщение про Access violation at address XXX in module YYY. что тут не так???

[M.A.D.M.A.N.]

В переменную j не загружена картинка, а ты дергаешь метод DIBNeeded, глянул бы что внутрях.

Код:

// Image1.Picture.LoadFromFile('1.jpg');
 j.LoadFromFile('1.jpg');