Per Mausklick Formular als BMP abspeichern

[mindforce]

Hi,

ich programmiere grad ein Programm und brauche noch einen Code womit man vom Formular ein Bild macht und in einem bestimmten Ordner speichern kann. Gibt es sowas?

:drunken: Ja!

Gruss,

Mindforce

[uwi1961]

Hallo Mindforce, hier eine Lösung mit dem Umweg Zwischenablage...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FormImage: TBitmap;
begin
  FormImage := GetFormImage;
  try
    Clipboard.Assign(FormImage);
    FormImage.SaveToFile('c:\Test.bmp');
  finally
    FormImage.Free;
  end;
end;

nicht vergessen die Unit "Clipbrd" einzubinden.

Gruß Uwe.

[mindforce]

Vielen Dank.

Funktioniert!

Gruss,

Mindforce

[H4ndy]

Würde da nicht einfach

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FormImage: TBitmap;
begin
  FormImage := GetFormImage;
  try
    FormImage.SaveToFile('c:\Test.bmp');
  finally
    FormImage.Free;
  end;
end;

ausreichen? :gruebel:

Durch GetFormImage() ist doch schon das Bitmap komplett da und muss nur noch gespeichert werden, oder?
Du machst also gar keinen Umweg über die Zwischenablage sondern speicherst es noch zusätzlich darin.

[mindforce]

Naja da hast du recht. Obwohl das sicherer wäre!

Gruss,

Mindforce

[igel457]

es langt auch schon...

Delphi-Quellcode:

getformimage.savetofile(filepath);

[xaromz]

Hallo,

Zitat:

Zitat von igel457

es langt auch schon...

Delphi-Quellcode:

getformimage.savetofile(filepath);

Nö, das gibt ein Speicherleck.

Gruß
xaromz

[ghost007]

Hallo,
und wie kann ich einen screenshot in die zwischenablage machen?
also, z.B. wenn ich "tab" drücke soll der screen , den man immoment sieht am bildschirm, in die zwischenablage

MfG - ghost

[Aenogym]

Zitat:

Zitat von ghost007

Hallo,
und wie kann ich einen screenshot in die zwischenablage machen?
also, z.B. wenn ich "tab" drücke soll der screen , den man immoment sieht am bildschirm, in die zwischenablage

MfG - ghost

einfach die speicherroutine aus obigem code weglassen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  FormImage: TBitmap; 
begin 
  FormImage := GetFormImage; 
  try 
    Clipboard.Assign(FormImage); 
  finally 
    FormImage.Free; 
  end; 
end;

[ghost007]

ähm... du hast mich da falsch verstanden, ich will einen screenshot von allem was auf dem bildschirm ist, nicht nur von der form .

MfG Ghost