Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Desktop Screenshot (https://www.delphipraxis.net/43636-desktop-screenshot.html)

Knotti2015 6. Apr 2005 20:14

Re: Desktop Screenshot
 
Entschuldigt für den komischen
posting.

Also ich bin jetzt soweit das eine bmp datei erstellt wird.
In diesem Link gibt es einen Code mitdem man BMP nach Jpeg konvertieren kann wie seht dieser Code eingebaut in einen timer2.* aus?

BMP-JPG

Matze 6. Apr 2005 20:55

Re: Desktop Screenshot
 
Sei mir nicht böse, aber schau dir mal ein Anfängertutorial an.

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Bmp: TBitmap;
  Jpg: TJpegImage;
begin

  //Screenshot etc ...
  //dann hast du den in der Variblen "bmp"

  try
    Jpg.Assign(Bmp); //Dem Jpg das Bmp zuweisen
    Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' )); //Jpg speichern
  finally
    Jpg.Free; //Speicher jeweils freigeben
    Bmp.Free;
  end;
end;

Knotti2015 6. Apr 2005 21:26

Re: Desktop Screenshot
 
[Fehler] Unit1.pas(63): Undefinierter Bezeichner: 'Filename'

Wenn ich anstatt Filename -> 'test' reinschreibe bekomme ich

Achtung die Variable JPG ist nicht richtig intialisiert worden.

Nogge 7. Apr 2005 15:45

Re: Desktop Screenshot
 
Moin Knotti2015,
Du musst auch erst dein JPEGImage erstellen, wie du es auch oben in deinem Code mit der Bitmap gemacht hast:
Delphi-Quellcode:
  {Create a bitmap}
  bmp := TBitmap.Create;
Das heißt, du musst jetzt noch über deinem try
Delphi-Quellcode:
  {Create a JpegImage}
  Jpg := TJpegImage.Create;
hinzufügen.

Khabarakh 7. Apr 2005 16:08

Re: Desktop Screenshot
 
"FileName" soll eine String-Variable mit dem Pfad zum Speichern sein (bzw. TOpenDialog.FileName, da solltest du aber über den Filter erst gar keine andere Endung zulassen).
Zitat:

Sei mir nicht böse, aber schau dir mal ein Anfängertutorial an.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:05 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