Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#3

AW: jpg im TImage ansprechen

  Alt 21. Okt 2011, 17:18
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBitmap;
begin
  bmp := TBitMap.Create;
  try
    bmp.Assign(Image1.Picture.Graphic);
    bmp.SaveToFile('C:\temp\test.bmp');
  finally
    bmp.Free;
  end;
end;
Erscheint mir einfacher.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat