screenshot als jpeg

[ShoAn]

hi, ich möchte gern ein bildschirmfoto machen, aber das gleich als jpeg speichern. das beispiel http://www.delphipraxis.net/viewtopic.php?t=2905 von sakura klappt ganz gut, aber kann ich das nicht gleich mit der TJpegImage - komponente machen?? weil sonst müsste ich das immer umwandeln und das dauert mir zu lang :(
kann mir jemand helfen??

[Alexander]

Du müsstest es schießen, umwandeln und dann anzeigen bzw. speichren...
Oder habe ich dich falsch verstanden?

[ShoAn]

naja, das mit dem umwandeln wollt ich ja grad nicht machen, weil das mir zu lange dauert, wenn zum beispiel jede sekunde ein bild speichern möchte.

kann ich denn nicht gleich anstelle der TBitmap komponente, die TJpegImage komponente benutzen???

ich hab dann einfach versucht, das beispiel umzuschreiben. aber ich bleib ja schon an der stelle hängen:

Code:

...
var
  JPEG: TJpegImage;

begin
  JPEG.Width   := Form1.ClientWidth;
  JPEG.Height  := Form1.ClientHeight;

...

da kommt die meldung, dass ich die größe einer JPEG-Grafik nicht ändern kann :(

[Christian Seehase]

Moin ShoAn,

da das JPEG Format ja eine (verlustbehaftete) Komprimierung voraussetzt, muss diese ja irgendwann einmal einsetzen.
Eine Möglichkeit, ohne JPEG, wäre es einen Screenshot zu machen, und diesen dann mit Hilfe der ZLIB Kompo (zumindest in D5 Pro enthalten) zu komprimieren. Das geht eigentlich recht schnell.
(mitgestoppt hab' ich nicht, und einen Vergleich mit JPEG Komprimierung kann ich auch nicht anstellen).
Leider ist diese Kompo undokumentiert, allerdings hatten wir zu diesem Thema hier schon einen Thread.

[Luckie]

Ich glaube kaum, dass das Umwandeln länger als eine Sekunde dauert.

[ShoAn]

hmm, stimmt. ich hab mal geguckt, wo man den code nacheinander abarbeiten kann. und da sieht man, wo er am längsten brauch. das war nämlich da, wo er den screenshot selbst macht.

ich könnt ja mal sagen, was ich eigentlich vor hab ;)
und zwar, übers netzwerk ein kleines überwachungstool, dass vortlaufend screenshots macht und die dann an einen computer schickt. das ganze soll dann wenns fertig is wie ein film aussehn, aber da ja das screenshot machen so lange dauert, geht das net so gut.

[RobertS]

Also ich habe so etwas in der Art schonmal gemacht,
ich mache alle 12 sek. ein Screenshot speichere den in einen Stream, verkleinere das Bild und speichere es als jpg mit einer anderen Endung auf die Platte.
Das Programm was die Sachen aneinder hängt ändert beim öffnen die Dateiendung und öffnet die jpg Dateien

Aber das dauert nicht lange das speichern und umwandeln, ich gehe mal von einem Rechner aus der nicht lngsamer ist als 800MHz

mfg
Robert

[APP]

Hallo,
ich habe sowas ähnliches auch schon mal benötigt, allerdings weiß ich nicht wie schnell die Wandlungszeit ist...

Delphi-Quellcode:

PROCEDURE aScreenShot(CONST aFileName: STRING);
{*****************************************************************************
 *** Screenshot Utility mit Export als JGEP-File                           ***
 *** -------------------------------------------                           ***
 *** INPUT:  aFileName, speicherziel                                       ***
 *** OUTPUT: n/a                                                           ***
 *** RESULT: n/a                                                           ***
 *[flapp 01/01/2003]**********************************************************}
VAR
  aDC                              : hDC;
  aBmp                             : TBitmap;     //
  aJpg                             : TJPEGImage;
  mh, hBmp                         : THandle;
BEGIN
  ajpg := TJPEGImage.Create;
  aBmp := TBitmap.Create;
  aBmp.Width := Screen.Width;
  aBmp.Height := Screen.Height;
  aDC := GetDC(0);
  hBmp := CreateCompatibleBitmap(aDC, Screen.Width, Screen.Height);
  mh := SelectObject(aDC, hBmp);
  TRY
    BitBlt(aBmp.Canvas.Handle, 0, 0, aBmp.Width, aBmp.Height,
      aDC, 0, 0, SRCCopy);
    ajpg.Assign(aBmp);
    ajpg.CompressionQuality := 30;
    ajpg.Compress;
    ajpg.SaveToFile(aFileName);
  FINALLY
    ajpg.Free;
    aBmp.Free;
    SelectObject(aDC, mh);
    DeleteObject(hBmp);
    ReleaseDC(0, aDC);
  END;
END;

[ShoAn]

@RobertS: hehe, ich habn k6 2 300mhz ;)

also jetzt geht eigentlich alles ganz gut. ich hab noch nebenbei reingemacht, dass man die größe von dem bild verändern kann:

Delphi-Quellcode:

procedure aScreenShot(const aFileName: String; Quality, Width, Height : Integer);
var
  aDC       : hDC;
  aBmp      : TBitmap;
  aJpg      : TJPEGImage;
  mh, hBmp  : THandle;

begin
  ajpg        := TJPEGImage.Create;
  aBmp        := TBitmap.Create;
  aBmp.Width  := Screen.DesktopWidth;
  aBmp.Height := Screen.DesktopHeight;
  aDC         := GetDC(0);
  hBmp        := CreateCompatibleBitmap(aDC, Screen.Width, Screen.Height);
  mh          := SelectObject(aDC, hBmp);

  try
    BitBlt(aBmp.Canvas.Handle, 0, 0, aBmp.Width, aBmp.Height, aDC, 0, 0, SRCCopy);

    ajpg.Assign(aBmp);

    aBmp.Width  := Width;
    aBmp.Height := Height;
    aBmp.Canvas.StretchDraw(Rect(0, 0, aBmp.Width, aBmp.Height), ajpg);

    ajpg.assign(aBmp);
    ajpg.CompressionQuality := Quality;
    ajpg.Compress();
    ajpg.SaveToFile(aFileName);
  finally
    ajpg.Free;
    aBmp.Free;
    SelectObject(aDC, mh);
    DeleteObject(hBmp);
    ReleaseDC(0, aDC);
  end;
end;

kann mal jemand schnell trübergucken, ob das auch so performance-mäßig ok ist? weil, wenn ich jetzt auf den button klicke, bleibt meine maus sogar für knapp eine sekunde hängen ;) naja, vielleicht liegts auch an meiner alten krück ;)

[Tim.exe]

@ ShoAn:

Mal ne ganz dumme Frage, wie ist den der ButtonClick dazu, also der Aufruf???