Screen Print, Windows 10, Logitech K850 Keyboard and QB64

[SMcNeill]

A quick demo of SaveImage in use, for you:

Code: QB64: [Select]

1. '$INCLUDE:'SaveImage.BI'
2.  
3.  
4. SCREEN _NEWIMAGE(640, 480, 32)
5.  
6. 'draw something
7. FOR i = 1 TO 100
8.     LINE (RND * 640, RND * 480)-(RND * 640, RND * 480), _RGB32(RND * 255, RND * 255, RND * 255), B
9. NEXT
10.  
11. file$ = "temp.bmp" 'the file to save to
12. image& = _DISPLAY 'the file handle which you want to save
13. startx = 0 'the x/y coordinate of the top left portion of the screen which you want to capture
14. starty = 0
15. stopx = _WIDTH 'the x/y coordinate of the bottom right portion of the screen which you want to capture
16. stopy = _HEIGHT
17.  
18. result = SaveImage(file$, image&, startx, starty, stopx, stopy)
19. PRINT result 'this gives us error codes, in case something goes wrong.
20. '-1, in this case, says "All is good!  No glitch in the export of a bmp file."
21.  
22.  
23. file$ = "temp.png" 'if we change the extension, we change what we export to disk
24.  
25. result = SaveImage(file$, image&, startx, starty, stopx, stopy)
26. PRINT result 'this gives us error codes, in case something goes wrong.
27.  
28. 'just by changing the extension, we can save a screenshot in BMP, PNG, JPG, GIF format.
29.  
30. SLEEP
31.  
32. SCREEN 0 'A text screen
33. FOR i = 0 TO 15
34.     COLOR i, 15 - i
35.     PRINT "COLOR "; i, 15 - i
36. NEXT
37.  
38. result = SaveImage("textscreen.gif", _DISPLAY, 0, 0, _WIDTH, _HEIGHT)
39. PRINT result
40.  
41. 'And, as you can see, we work perfectly fine with SCREEN 0 TEXT images as well.
42.  
43.  
44. '$INCLUDE:'SaveImage.BM'

Usage is as simple as :

$INCLUDE the BI file.

result = SaveImage(file$, screen, x1, y1, x2, y2)

$INCLUDE the BM file.


Works on all screen modes (including text screens), and automatically dithers to best image quality for GIFs or 256 color images, if necessary.  Can save in BMP, JPG, GIF, or PNG format, depending on what you need/want (just change the extension on your file  name to change output file type).

It really is that simple.  ;)