jpg im TImage ansprechen

[Bummi]

vorher Image1.Picture auf assignment prüfen ..

Delphi-Quellcode:

Procedure GetBitMap4Graphic(var bmp:TBitmap;Gra:TGraphic);
begin
  if Assigned(gra) then
    begin
      bmp.Width := gra.Width;
      bmp.Height := gra.Height;
      bmp.Canvas.Draw(0,0,gra);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBitmap;
begin
  bmp := TBitMap.Create;
  bmp.PixelFormat := pf32bit;
  try
     GetBitMap4Graphic(bmp,Image1.Picture.Graphic);
     bmp.SaveToFile('C:\temp\test.bmp');
  finally
    bmp.Free;
  end;
end;