Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
rolaf
Beiträge: 3843 Registriert: 10.03.2005 14:01
Beitrag
von rolaf » 24.11.2006 18:32
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
GetClipboardImage(0)
SaveImage(0, "c:\screenshot.bmp")
:::: WIN 10 :: PB 5.73 :: (x64) ::::
#NULL
Beiträge: 2235 Registriert: 20.04.2006 09:50
Beitrag
von #NULL » 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")
rolaf
Beiträge: 3843 Registriert: 10.03.2005 14:01
Beitrag
von rolaf » 24.11.2006 18:57
#NULL hat geschrieben: super.
fünf zeilen mehr, und ein projekt ist vollendet
Jo, können wir gleich für 10 Euro als Vollversion verkloppen!
:::: WIN 10 :: PB 5.73 :: (x64) ::::
ts-soft
Beiträge: 22292 Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43 CPU: AMD FX-6300 Six-Core Processor GraKa: GeForce GTX 750 Ti, 2 GB Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin
Beitrag
von ts-soft » 24.11.2006 18:59
Falo hat geschrieben:
Jo, können wir gleich für 10 Euro als Vollversion verkloppen!
Müßt ihr noch eine Sharewareversion draus machen, also nochmal 300 Zeilen
rolaf
Beiträge: 3843 Registriert: 10.03.2005 14:01
Beitrag
von rolaf » 24.11.2006 19:04
ts-soft hat geschrieben: Falo hat geschrieben:
Jo, können wir gleich für 10 Euro als Vollversion verkloppen!
Müßt ihr noch eine Sharewareversion draus machen, also nochmal 300 Zeilen
Ach wo, eine Zeile reicht und in der Shareware wird nur die Hälfte des Screenshot gespeichert.
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")
:::: WIN 10 :: PB 5.73 :: (x64) ::::
#NULL
Beiträge: 2235 Registriert: 20.04.2006 09:50
Beitrag
von #NULL » 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)
mknjc
Beiträge: 217 Registriert: 09.09.2006 12:59
Beitrag
von mknjc » 25.11.2006 00:10
Ich finde man sollte eher das rausbringen:
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")
Die Vollversion kann dann in bmp speichern.
Ich nutze PureBasic 4.02 unter Linux und Windows.
Momentane Projekte:
Das geheimste aller geheimen Projekte... FPBC
AND51
Beiträge: 5220 Registriert: 01.10.2005 13:15
Beitrag
von AND51 » 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).
AND51
Beiträge: 5220 Registriert: 01.10.2005 13:15
Beitrag
von AND51 » 25.11.2006 01:21
Screenshot OHNE Zeilen!!!!
Zuletzt geändert von
AND51 am 25.11.2006 21:55, insgesamt 1-mal geändert.
MVXA
Beiträge: 3823 Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:
Beitrag
von MVXA » 25.11.2006 01:36
Was für n Anfänger, da nimmt man doch TFT Monitore...