Screen recorder (test phase), save video to RAM

[Petr]

Hi. I wrote a very primitive screen scanner. To try out the program, first place it somewhere to the corner in the screen, then leave the video from Youtube on the rest of the monitor. Compile and run the program. A still image is taken. Use the mouse to select the crop to be recorded (left button, press hold, drag and drop) and confirm with the space bar. The program is minimized and begins recording the selected area into memory. To hang up and play, click the icon in the task bar to get a black window where it says how many frames are already being uploaded (to RAM). Press enter to stop recording. Press any key to play.

This is a function. The question is this: How do I capture the current screen so it does not overlap with the program window? What is the opposite function to _SCREENICON? Can the surface be scanned otherwise? This program attacked me today ... thanks for the suggestions.

Code: QB64: [Select]

1. start& = _SCREENIMAGE
2. SCREEN _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32)
3. _FULLSCREEN
4. PCOPY start&, 1
5. _PUTIMAGE (0, 0), start&
6. LOCATE 1, 1: PRINT "Select on screen area with mose for recording, then press SPACEBAR for start and ENTER for end recording."
7. DO
8.     WHILE _MOUSEINPUT: WEND
9.     IF _MOUSEBUTTON(1) = -1 THEN
10.         IF mx <> 0 THEN mx = 0: ox = 0
11.         IF ox = 0 THEN ox = _MOUSEX: oy = _MOUSEY
12.         PCOPY 1, _DISPLAY
13.         LINE (ox, oy)-(_MOUSEX, _MOUSEY), _RGB32(255, 255, 255), B , &H00FF00FF
14.         _DISPLAY
15.     END IF
16.     IF ox AND _MOUSEBUTTON(1) = 0 AND mx = 0 THEN
17.         mx = _MOUSEX: my = _MOUSEY
18.         PRINT ox, oy, mx, my
19.     END IF
20.  
21.     IF switch(32) AND start = 0 THEN
22.         ' old = _DEST
23.         _SCREENICON
24.         start = 1
25.         REDIM video(0) AS LONG
26.         T# = TIMER
27.         i$ = ""
28.         DO WHILE i$ <> CHR$(13)
29.             i$ = INKEY$
30.             IF TIMER > T# + .1 THEN 'FPS limit
31.                 video(i) = _NEWIMAGE(ABS(ox - mx), ABS(oy - my), 32)
32.                 v& = _SCREENIMAGE
33.                 _DELAY .01
34.                 _PUTIMAGE (0, 0)-(_WIDTH(video(i)), _HEIGHT(video(i))), v&, video(i), (ox, oy)-(mx, my)
35.                 i = i + 1
36.                 REDIM _PRESERVE video(i) AS LONG
37.                 T# = TIMER
38.                 _FREEIMAGE v&
39.                 _DEST InProcess&
40.                 LOCATE 1, 1: PRINT "recording..."; i; "frames                                                                 " 'HOW do it visible, if is program minimalized?
41.                 _DISPLAY
42.                 _LIMIT 25
43.             END IF
44.         LOOP
45.         start = 0
46.         created = 1
47.         _AUTODISPLAY
48.     END IF
49.  
50.     _DEST 0
51.     IF created THEN
52.         _KEYCLEAR
53.         BEEP
54.         CLS
55.         PRINT "Press key for play content:"
56.         SLEEP
57.         _KEYCLEAR
58.         aaa = _DEST
59.         playit = _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32)
60.         SCREEN playit
61.  
62.         DO UNTIL _KEYDOWN(27)
63.             FOR a = 0 TO UBOUND(video) - 1
64.                 _PUTIMAGE (100, 100), video&(a)
65.                 _LIMIT 10
66.             NEXT a
67.         LOOP
68.         SCREEN aaa
69.         _FREEIMAGE playit
70.         created = 0
71.         FOR a = 0 TO UBOUND(video) - 1
72.             _FREEIMAGE video(a)
73.         NEXT a
74.         SCREEN start&
75.     END IF
76. LOOP
77.  
78.  
79. FUNCTION switch (code)
80.     i$ = INKEY$
81.     IF i$ = CHR$(code) THEN
82.         IF switch = 1 THEN switch = 0: _DELAY .1 ELSE switch = 1: _DELAY .1
83.     END IF
84. END FUNCTION
85.  

[SMcNeill]

http://qb64.org/wiki/SCREENSHOW -- _SCREENSHOW is opposite of _SCREENHIDE

[Petr]

Thanks Steve, but this is not opposite for SCREENICON (i tryed it and program wont not maximalized)

[SMcNeill]

Thanks Steve, but this is not opposite for SCREENICON (i tryed it and program wont not maximalized)

Maybe  $SCREENSHOW?   If not, I'm stumped

[Petr]

No, after _SCREENICON it is minimalized for ever...

[FellippeHeitor]

Use _SCREENHIDE instead of _SCREENICON then, so you'll be able to _SCREENSHOW it again.

If you want to do it programmatically, that's your alternative for now. If you minimize the Window, you'll have to wait for your user to want to click it again in the taskbar.

Or likely use a call to a Windows API to restore the window. Technically, a minimized window is one that's relocated to position (-32000, -32000).

[Petr]

I'm working on it. Thanks for the help.

[FellippeHeitor]

Also: Every time you call _SCREENIMAGE, you'll be creating a new handle and consequently allocating new memory for the new screenshot. Don't forget to _FREEIMAGE it after using it, or your program will quickly crash with an 'out of memory' error.

[Petr]

Yeah, I think to it. I need to know how to stop scanning because after the SCREENHIDE command I have to click on the monitor to restore the image of the web player and thus lose control over the program - it does not respond to the keyboard and runs in the background. That's what I found BUT I put a certain amount of time to stop him. Without it... how drive it after call SCREENHIDE?

[FellippeHeitor]

In my experience the window remained focused and responsive even after using _SCREENHIDE:

Code: QB64: [Select]

1. PRINT "hit a key..."
2. a$ = INPUT$(1)
3. _SCREENHIDE
4. SLEEP 3
5. _SCREENSHOW
6.  

If you run the code above and hit a key, the window will hide. Do nothing for 3 seconds and it will show again.

BUT!

If you hit a key to hide it, then hit any key while it's SLEEPing, the sleep timer will be interrupted and the window will show up again immediatelly.

Please confirm that also works on your machine.

[Petr]

Yes, it works. But i have this case. Use this code, run it, after first pressing click with mouse to other program. Then you never end it, you lose control.

Code: QB64: [Select]

1. PRINT "hit a key..."
2. SLEEP
3. _SCREENHIDE
4. SLEEP
5. _SCREENSHOW
6.  

[FellippeHeitor]

Clicking another program will surely take focus from your program and it's hidden, of course you'll lose control of it.

If you must hide a program, make sure it'll come back programmatically later. Set a timer or something.

[FellippeHeitor]

How about you just move it away then move it back on (all timer based too)?

Code: QB64: [Select]

1. oldX = _SCREENX: oldY = _SCREENY
2. _SCREENMOVE -32000, -32000 'hide
3. 'do your thing
4. 'sleep some
5. _SCREENMOVE oldX, oldY 'show again