Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Formular als JPEG Speichern (https://www.delphipraxis.net/62317-formular-als-jpeg-speichern.html)

Antonov 12. Apr 2016 00:41

AW: Formular als JPEG Speichern
 
Hallo,

die oben genannten Methoden habe ich probiert, und das gespeicherte Bild ist zwar übereinstimmend mit den Maßen meines Formulars, aber das Bild ist schwarz.
Ich nutze FreePASCAL mit Lazarus IDE. Weiß jemand, wo da der Haken sein könnte?

Grüße
Antonov

hoika 12. Apr 2016 05:04

AW: Formular als JPEG Speichern
 
Hallo,
zeig doch mal deinen Lazarus-Code.
(Unit jpeg ist eingebunden?, sonst mal als Bitmap speichern)


Heiko

Antonov 12. Apr 2016 20:45

AW: Formular als JPEG Speichern
 
So,

entschuldigt die späte Antwort.
Delphi-Quellcode:
var
  Bitmap: TBitmap;
begin
  Bitmap := Form1.GetFormImage;

  Bitmap.SaveToFile('testbmp.bmp');
  Bitmap.Free;
end;
ebenfalls kann ich kein jpeg benutzen, es beschwert sich, dass jpeg nicht gefunden wurde. Jede andere mit bekannte unit kann ich einbinden unter
Delphi-Quellcode:
uses ...
aber jpeg mag er nicht. Weiß der Teufel warum.

EDIT: Ist es möglich, dass FreePASCAL das jpeg schon integriert hat?
Ich habe es gerade getestet und kann Bilder auch in jpeg speichern, also so etwa
Delphi-Quellcode:
Bitmap.SaveToFile('testbmp.jpeg');
... ändert nichts dran, dass das Resultat immer noch schwarz ist, mit denselben Dimensionen wie das Formular.

Medium 13. Apr 2016 00:27

AW: Formular als JPEG Speichern
 
Ist das Formular zum Zeitpunkt der Ausführung dieser Methode sichtbar und im Vordergrund?

Antonov 13. Apr 2016 07:47

AW: Formular als JPEG Speichern
 
Ja, diese Trivialitäten habe ich natürlich berücksichtigt! :D
Ich löse die Prozedur über einen Button Click aus, da muss das Fenster im Vordergrund stehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:37 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz