Einzelnen Beitrag anzeigen

gasty

Registriert seit: 14. Nov 2007
Ort: Nidderau
80 Beiträge
 
Delphi 7 Enterprise
 
#19

Re: Screenshot bei Tastendruck machen und speichern

  Alt 18. Dez 2009, 13:46
Wenn ich es so mache, gibt es wieder einen Zugriffsverletzungs-Error (sofern ich ein Bild im Clipboard habe, also klappt das mit dem rausspringen schonmal)
Delphi-Quellcode:
  if not Clipboard.HasFormat(CF_BITMAP) then
    exit
  else
  try
    Bitmap := TBitmap.Create;
    JPEGImage := TJPEGImage.Create;
    Bitmap.Assign(ClipBoard);
    //JPEGImage.Assign(Bitmap);
    //JPEGImage.SaveToFile(FormatDateTime('yyyymmddhhnnss',Now)+'.jpg');
    Bitmap.SaveToFile(FormatDateTime('yyyymmddhhnnss',Now)+'.bmp');
    ClipBoard.Clear;
  finally
    Bitmap.Free;
    JPEGImage.Free;
  end;
Delphi zeigt mir an, dass es irgendwas mit der Zeile ClipBoard.Clear zu tun hat

Außerdem werden zwar Bitmaps erstellt, aber sie sind alle 0 Byte groß und beinhalten keine Screenshots. (Also wenn ich ein Bild im Clipboard habe)
  Mit Zitat antworten Zitat