Ich muss für aktuellen Screenshot immer 2x drücken

[Mariaki]

Hi,
ich hab vor einen Screenshot zu machen und ihn dann anzuzeigen lassen/ zu speichern.
Dazu habe ich folgenden Quelltext gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_SNAPSHOT, 0, 0, 0);
  keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
  if Clipboard.HasFormat(CF_BITMAP) then
  begin
    Image1.Picture.Bitmap.Assign(Clipboard);
  end;
end;

Um ganzen Prozeduren für den Screenshot auszuweichen, simuliere ich einfach die Druck-Taste.
Nun wird aber immer der alte Screenshot (von dem davor) angezeigt. D.h.:
1. Nichts passiert, da scheinbar kein Screenshot im Zwischenspeicher ist.
2. Screenshot vom 1. mal wird angezeigt, falls sich also etwas verändert hat ist das noch nicht drin.
3. Screenshot vom 2. mal wird angezeigt.
Usw.
Dies ist ein wenig dumm, da ich den Screenshot ja schon beim ersten mal haben möchte. Ich habe schon versucht, es einfach zu verdoppeln, also 2x "keyboard_event...end;". Außerdem hab ich versucht mittels "Sleep(10000)" eine Verzögerung dazwischen zu bekommen, falls der Screenshot ein wenig Bearbeitung benötigt. Hat aber beides nicht funktioniert.
Ich hoffe einer von euch hat eine Lösung.

Gruß Mariaki

[jfheins]

Ganz einfach: Die Screenshot-Taste muss ja auch erstmal behandelt und (infolge dessen) ein Screenshot gemacht werden. Du sendest einfach nur das Event, das kommt dann in die Queue und wird bei Gelegenheit verarbeitet ;)

Bessere Lösung (die außerdem nicht die Zwischenablage missbraucht und den vorherigen Inhalt löscht) wie folgt:

mit GetDesktopWindow() und GetDC() den DC besorgen und mit BitBlt in ein Bitmap (TBitmap Objekt) kopieren ;)

[alleinherrscher]

Hm, stell dir mal folgenden Fall vor:

Dein Programm läuft - warum auch immer - im Hintergrund und der User sucht im Internet etwas bei Wikipedia raus. Dort kopiert er eine Grafik und möchte sie in Word einfügen. Zufällg macht dein Programm in diesem moment ein screenshot und der werte User bekommt dann in Word nicht die Grafik angezeigt sondern seinen eigenen Bildschirm...nicht so toll oder?

Benutze lieber:

Delphi-Quellcode:

procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;

    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;

[Mariaki]

Danke schon mal.
Aber wie lasse ich das dann in einem Image anzeigen?

[DeddyH]

Delphi-Quellcode:

var Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    MakeScreenShot(Bmp);
    Image.Picture.Graphic.Assign(Bmp);
  finally
    Bmp.Free;
  end;
end;

Ungetestet

[Mariaki]

Da bekomme ich eine Zugrifsverletzung.

[DeddyH]

Und wo genau?

[Mariaki]

Ah.. danke schon selbst gefunden:
Man muss anstatt "Image.Picture.Graphic.Assign(Bmp);" "Image.Picture.Bitmap.Assign(Bmp);" nehmen da es ja ne Bitmap ist.
Jo.. danke an alle.

[himitsu]

geht denn Image.Picture.Assign(Bmp); nicht?

[DeddyH]

Müsste, ich hatte ja auch nur so aus dem Kopf getippt.