Screenshot wird nicht erstellt ?

[pureanfänger]

Also ich habe folgendes Problem. Mein Programm soll auf Tastendruck ein Screenshot vom aktuellen Desktop erstellen. Ich habe bisher folgende Api-Funktion verwendet:

keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(100)
GetClipboardImage(#Image_0)
UseJPEGImageEncoder()
Save_Picture = SaveImage(#Image_0, "Screenshot.jpg", #PB_ImagePlugin_JPEG )

Das Programm erstellt nur dann ein Bild, wenn vorher schon ein Bild im Clipboard befindet, andernfalls stürzt das Programm ab.

Gibt es noch andere Möglichkeiten ein Screenshot vom aktuellen Desktop zu erzeugen ?

LG Pureanfänger

[mk-soft]

Bei geht es.

Welches PB und Betriebssystem?

[NicTheQuick]

Versuchs mal mit einem größeren Timeout und Error-Handling:

Code: Alles auswählen

Save_Picture = ""
UseJPEGImageEncoder()
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
time = ElapsedMilliseconds() + 2000 ;Timeout nach 2 Sekunden
While time > ElapsedMilliseconds()
  Delay(100)
  If GetClipboardImage(#Image_0)
    Save_Picture = SaveImage(#Image_0, "Screenshot.jpg", #PB_ImagePlugin_JPEG ) 
    Break
  EndIf
Wend
If Save_Picture
  Debug "Screenshot gespeichert!"
Else
  Debug "Screenshot nicht gespeichert!"
EndIf

[pureanfänger]

@ mk-soft

PB 4.10 und WinXP

@NicTheQuick

Hab ich auch versucht, es zeigt den gleichen Fehler.

[scholly]

Gibt es noch andere Möglichkeiten ein Screenshot vom aktuellen Desktop zu erzeugen?

Code: Alles auswählen

;nicolaus - http://www.purebasic.fr/german/viewtopic.php?t=10790

Procedure.l CaptureScreen()
  ExamineDesktops()
  width = DesktopWidth(0)
  height = DesktopHeight(0)
  srcDC = CreateDC_("DISPLAY", "", "", dm.DEVMODE)
  trgDC = CreateCompatibleDC_(srcDC)
  BMPHandle = CreateCompatibleBitmap_(srcDC, width, height)
  SelectObject_( trgDC, BMPHandle)
  BitBlt_( trgDC, 0, 0, width, height, srcDC, 0, 0, #SRCCOPY)
  DeleteDC_( trgDC)
  ReleaseDC_(BMPHandle, srcDC)
  CreateImage(0, width, height, 32)
  StartDrawing(ImageOutput(0))
  DrawImage(BMPHandle, 0, 0)
  StopDrawing()
  DeleteObject_(BMPHandle)
EndProcedure

OpenWindow(0,0,0,320,240,"",$CF0001)
SetWindowLong_(WindowID(0),#GWL_EXSTYLE,GetWindowLong_(WindowID(0),#GWL_EXSTYLE)|#WS_EX_LAYERED)

Delay(100)
CaptureScreen()
ResizeImage(0,640,480)
OpenWindow(1,0,0,640,480,"",$CF0001)
CreateGadgetList(WindowID(1))
ImageGadget(0,0,0,0,0,ImageID(0))
Repeat:Until WaitWindowEvent()=#WM_CLOSE

[pureanfänger]

Vielen Danke Scholly... du bist mein Retter gewesen !!! Und auch nochmal danke an die anderen.

[scholly]

Ich war's nich , ich hab nur den Thread mit der Routine von Nicolaus irgendwann mal gefunden: http://www.purebasic.fr/german/viewtopic.php?t=10790