Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Petr on September 10, 2018, 03:39:18 pm

Title: Screen recorder (test phase), save video to RAM
Post by: Petr on September 10, 2018, 03:39:18 pm
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
  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."
  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
  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
  85.  
Title: Re: Screen recorder (test phase), save video to RAM
Post by: SMcNeill on September 10, 2018, 03:46:35 pm
http://qb64.org/wiki/SCREENSHOW -- _SCREENSHOW is opposite of _SCREENHIDE
Title: Re: Screen recorder (test phase), save video to RAM
Post by: Petr on September 10, 2018, 04:01:27 pm
Thanks Steve, but this is not opposite for SCREENICON (i tryed it and program wont not maximalized)
Title: Re: Screen recorder (test phase), save video to RAM
Post by: SMcNeill on September 10, 2018, 04:06:27 pm
Quote from: Petr on September 10, 2018, 04:01:27 pm
Thanks Steve, but this is not opposite for SCREENICON (i tryed it and program wont not maximalized)

Maybe  $SCREENSHOW?   If not, I'm stumped
Title: Re: Screen recorder (test phase), save video to RAM
Post by: Petr on September 10, 2018, 04:21:31 pm
No, after _SCREENICON it is minimalized for ever...
Title: Re: Screen recorder (test phase), save video to RAM
Post by: FellippeHeitor on September 10, 2018, 04:33:01 pm
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).
Title: Re: Screen recorder (test phase), save video to RAM
Post by: Petr on September 10, 2018, 04:49:12 pm
I'm working on it. Thanks for the help.
Title: Re: Screen recorder (test phase), save video to RAM
Post by: FellippeHeitor on September 10, 2018, 04:53:38 pm
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.
Title: Re: Screen recorder (test phase), save video to RAM
Post by: Petr on September 10, 2018, 05:05:32 pm
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?
Title: Re: Screen recorder (test phase), save video to RAM
Post by: FellippeHeitor on September 10, 2018, 05:13:43 pm
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)
  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.
Title: Re: Screen recorder (test phase), save video to RAM
Post by: Petr on September 10, 2018, 05:30:28 pm
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..."
  6.  
Title: Re: Screen recorder (test phase), save video to RAM
Post by: FellippeHeitor on September 10, 2018, 05:49:24 pm
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.
Title: Re: Screen recorder (test phase), save video to RAM
Post by: FellippeHeitor on September 10, 2018, 06:16:14 pm
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
Text Only | Text with Attachments