Screenshot speichern in drei Zeilen
Verfasst: 24.11.2006 18:32
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
GetClipboardImage(0)
SaveImage(0, "c:\screenshot.bmp")
PureBoard
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Screenshot speichern in drei Zeilen
Seite 1 von 4
Verfasst: 24.11.2006 18:49
super.fünf zeilen mehr, und ein projekt ist vollendet
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(100)
GetClipboardImage(0)
td.s=GetTemporaryDirectory()
SaveImage(0, td+"screenshot.bmp")
RunProgram(td+"screenshot.bmp")
Delay(100)
DeleteFile(td+"screenshot.bmp")Verfasst: 24.11.2006 18:57
Jo, können wir gleich für 10 Euro als Vollversion verkloppen!#NULL hat geschrieben:
fünf zeilen mehr, und ein projekt ist vollendet
Verfasst: 24.11.2006 18:59
Müßt ihr noch eine Sharewareversion draus machen, also nochmal 300 ZeilenFalo hat geschrieben: Jo, können wir gleich für 10 Euro als Vollversion verkloppen!
Verfasst: 24.11.2006 19:04
Ach wo, eine Zeile reicht und in der Shareware wird nur die Hälfte des Screenshot gespeichert.ts-soft hat geschrieben:Müßt ihr noch eine Sharewareversion draus machen, also nochmal 300 ZeilenFalo hat geschrieben: Jo, können wir gleich für 10 Euro als Vollversion verkloppen!
Hier die Shareware:
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(1000)
GetClipboardImage(0)
GrabImage(0, 1, 0, 0, ImageWidth(0) / 2, ImageHeight(0))
td.s = GetTemporaryDirectory()
SaveImage(1, td + "screenshot.bmp")
RunProgram(td + "screenshot.bmp")
Delay(1000)
DeleteFile(td + "screenshot.bmp")Verfasst: 24.11.2006 20:15
super service: der kunde kann zwischen zwei SchehrWer-versionen wählen:
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(100)
GetClipboardImage(0)
td.s=GetTemporaryDirectory()
SaveImage(0, td+"screenshot.bmp")
p=RunProgram(td+"screenshot.bmp", "", "", #PB_Program_Open)
Delay(200)
DeleteFile(td+"screenshot.bmp")
Delay(1500)
KillProgram(p)
CloseProgram(p)Verfasst: 25.11.2006 00:10
Ich finde man sollte eher das rausbringen:
Die Vollversion kann dann in bmp speichern.
Code: Alles auswählen
UseJPEGImageEncoder()
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(1000)
GetClipboardImage(0)
td.s = GetTemporaryDirectory()
SaveImage(0, td + "screenshot.jpg", #PB_ImagePlugin_JPEG, 0)
RunProgram(td + "screenshot.jpg")
Delay(1000)
DeleteFile(td + "screenshot.jpg")Verfasst: 25.11.2006 01:17
Screenshots sollten unbedingt im PNG Format gespeichert werden, JPEG eigenet sich eher für Fotos bzw. Bilder mit sehr vielen und sehr feinen Farbübergängen (wie es bei Fotos der Fall ist).
Verfasst: 25.11.2006 01:21
Screenshot OHNE Zeilen!!!!
Verfasst: 25.11.2006 01:36
Was für n Anfänger, da nimmt man doch TFT Monitore...