Screenshot vom Clientbereich der Mainform machen

[Bummi]

In GetFormImage wird ein Bitmap erzeugt (der Rückgabewert)

Delphi-Quellcode:

var
  Jpg: TJPEGImage;
  BMP:TBitmap;
begin
  Jpg := TJPEGImage.Create;
  BMP:=Form1.GetFormImage;
  Jpg.Assign(BMP);
  BMP.Free;
  ......
  ......

[Helmi]

Mann häts sich halt mal den Quellcode anschauen sollen - Danke, Bummi!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Jpg: TJPEGImage;
  BMP:TBitmap;
begin
  Jpg := TJPEGImage.Create;

  try
    BMP:=Form1.GetFormImage;
    Jpg.Assign(BMP);

    Jpg.SaveToFile('D:\test.jpg');
  finally
    BMP.Free;
    Jpg.Free;
  end;
end;

[DeddyH]

Und so etwas ist genau der Grund, weshalb man in Funktionen keine Objekte zurückgeben sollte, die man innerhalb der Funktion erstellt.

[Helmi]

Zitat von DeddyH:

Und so etwas ist genau der Grund, weshalb man in Funktionen keine Objekte zurückgeben sollte, die man innerhalb der Funktion erstellt.

Stimmt!
Ich nutz für so was die out Variablen

[mkinzler]

Es ist aber egal ob Rückgabewert oder Out-Parameter

[DeddyH]

Out ist für Objektinstanzen aber auch nicht die erste Wahl. Einfach By Value oder als Konstante entgegennehmen, geht beides.

[sx2008]

Bitte nicht das JPeg Format für Screenshots verwenden!
Durch die verlustbehaftete Komprimierung werden Schriften und Kanten verwaschen.
Siehe: http://www.r1ch.net/img-formats/
Gif und PNG sind für Screenshots besser geeignet.

[himitsu]

GIF ist für die Anzahl der Farbwerte (kunterbunte GUIs, Farbverläufe, Schriftglättung und Co.) auch nicht unbedingt gut geeignet.

Man kann beim JPEG aber auch die Komprimierungsqualität entsprechend einstellen, dann wird die Datei zwar größer, aber diese Verfälschungen minimieren sich.