Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: jpg im TImage ansprechen
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
|