Formular als JPEG Speichern

[poterp]

Hallo,
Bin noch ein Delphi anfänger, kann mich jemanden sagen, wie ich ein Formular (Oberfläche) als JPEG oder GIF speichern kann?????
Danke in Voraus
P.S. Benutze Delphi 7

[xaromz]

Hallo und herzlich Willkommen !

Mit der Methode GetFormImage Deines Formulars bekommst Du ein Bitmap des Forms. Wenn Du die unit JPEG.pas einbindest, kannst Du damit ein JPEGImage erstellen. Das weist Du dem JPEG das Bitmap zu (mit Assign) und speichert das JPEG.
Etwa so:

Delphi-Quellcode:

procedure SaveJPEG(Form: TCustomForm; const Path: String);
var
  Bitmap: TBitmap;
  JPEG: TJPEGImage;
begin
  Bitmap := Form.GetFormImage;
  JPEG := TJPEGImage.Create;
  JPEG.Assign(Bitmap);
  JPEG.SaveToFile(Path);
  JPEG.Free;
  Bitmap.Free;
end;

Aufzurufen so:
SaveJPEG(Form1, 'C:\Screenshot.jpg'); Gruß
xaromz

[poterp]

Danke Xaromz,
ich habe deine Methode Probiert uzw:
procedure SaveJPEG(Form: TCustomForm; const Path: String);
var
Bitmap: TBitmap;
JPEG: TJPEGImage;
begin
Bitmap := Form.GetFormImage;
JPEG := TJPEGImage.Create;
JPEG.Assign(Bitmap);
JPEG.SaveToFile(Path);
JPEG.Free;
Bitmap.Free;
end;


Aufzurufen so:
Delphi-Quellcode: markieren
SaveJPEG(Form1, 'C:\Screenshot.jpg');

und ich bekomme ein Mehrere Fehler meldung.
soll ich vorher eine Function GETImage deklarieren???

danke in Voraus

[Hador]

Du musst noch

Delphi-Quellcode:

uses
  ... jpeg ...

hinzufügen

Die Prozedur würde ich noch folgendermaßen ändern:

Delphi-Quellcode:

procedure SaveJPEG(Form: TCustomForm; const Path: String);
var
  JPEG: TJPEGImage;
begin
  JPEG := TJPEGImage.Create;
  JPEG.Assign(Form.GetFormImage);
  JPEG.SaveToFile(Path);
  JPEG.Free;
end;

Und aufrufen kannst du sie z.B. so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveJPEG(Self, 'C:\Formular.jpg');
end;

EDIT: Nutze bitte für Quellcode die Delphi Tags

[xaromz]

Hallo,

Zitat von Hador:

Die Prozedur würde ich noch folgendermaßen ändern:
...

Speicherleck! Speicherleck! Jehova! Jehova!

GetFormImage liefert Dir ein TBitmap zurück. Das muss auch freigegeben werden.

Gruß
xaromz

[Hador]

Zitat von xaromz:

Speicherleck! Speicherleck! Jehova! Jehova!

Du hast Jehova gesagt - Los steinigt ihn

Zitat von xaromz:

GetFormImage liefert Dir ein TBitmap zurück. Das muss auch freigegeben werden.

Du hast vollkommen Recht.
Ich werde sofort als Bestrafung 1.000.000x schreiben: "Ich soll keine Speicherlecks produzieren!"

Nja - jetzt muss ich nur noch herausfinden, wiso mein Verstand das gestern vernachlässigt hat.

[wildschwein]

he cool

danke für diese hilfe

jetzt frage ich mich wie man es programieren kann, dass der benutzer auswählen kann wo das bild gespeichert werden kann.

danke für deine nachträgliche hilfe

[PhilmacFLy]

Am besten du benutzt eine SaveDialog

Delphi-Quellcode:

var
  JPEG: TJPEGImage;
begin
  if
  SaveDialog1.Execute
  then
  begin
    JPEG := TJPEGImage.Create;
    JPEG.Assign(Form1.GetFormImage);
    JPEG.SaveToFile(SaveDialog1.Filename);
    JPEG.Free;
  end;

[wildschwein]

cool danke dür deine hilfe

wenn du mir jetzt noch veraten kannst wie der filename automatisch das datum als name wählt bist du der größte!

[SirThornberry]

stop. Pro Thema nur eine Frage! Ansonsten findet man später über die Suchfunktion nichts und wenn jemand auf eine frühere Frage antwortet wird das auch ein riesiges Durcheinander.
Eröffne also bitte ein neues Thema wenn du eine neue Frage hast