TImage speichern

[Andreas L.]

Gehts denn so:

Delphi-Quellcode:

var
  bmp: Tbitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Image1.Width;
    bmp.Height := Image1.Height;
    bmp.Canvas.Draw(0, 0, Image1.Picture.Graphic);
    bmp.SaveToFile('D:\test.bmp');
  finally
    bmp.Free;
  end;