Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Real2Two on July 09, 2020, 12:49:51 pm

Title: Screenshare
Post by: Real2Two on July 09, 2020, 12:49:51 pm
Thanks to Ashish for helping me fix a bug which made the website not work.

I made a little screenshare program... it isn't perfect but it works:

host.bas
Code: QB64: [Select]
  2. dd = _OPENHOST("TCP/IP:80")
  3. crlf$ = CHR$(13) + CHR$(10)
  5.     c = _OPENCONNECTION(dd)
  6.     IF c <> 0 THEN
  7.         addr$ = _CONNECTIONADDRESS(c)
  8.         COLOR 15: PRINT "Client connected: ";: COLOR 12: PRINT addr$
  9.  
  10.         GET #c, , x$
  11.  
  12.         a = INSTR(x$, "GET ")
  13.         b = INSTR(a + 5, x$, " ")
  14.         request$ = RIGHT$(LEFT$(x$, b - 1), b - a - 4)
  15.         COLOR 14, 8
  16.         PRINT "request = ";
  17.         COLOR 0, 7: PRINT request$
  18.         IF LEN(request$) = 0 THEN PRINT x$
  19.         COLOR 7, 0
  20.  
  21.         SELECT CASE request$
  22.             CASE "/"
  23.                 ff = FREEFILE
  24.                 OPEN "index.html" FOR BINARY AS #ff
  25.                 a$ = SPACE$(LOF(ff))
  26.                 GET #ff, 1, a$
  27.                 CLOSE ff
  28.                 reply$ = "HTTP/1.0 200 OK" + crlf$ + crlf$
  29.                 reply$ = reply$ + a$
  30.             CASE "/screen"
  31.                 SaveImage _SCREENIMAGE, "screen"
  32.                 ff = FREEFILE
  33.                 OPEN "screen.bmp" FOR BINARY AS #ff
  34.                 a$ = SPACE$(LOF(ff))
  35.                 GET #ff, 1, a$
  36.                 CLOSE ff
  37.                 reply$ = "HTTP/1.0 200 OK" + crlf$
  38.                 reply$ = reply$ + "Content-Length:" + STR$(LEN(a$)) + crlf$
  39.                 reply$ = reply$ + "Content-Type: image/bmp" + crlf$ + crlf$
  40.                 reply$ = reply$ + a$
  41.             CASE ELSE
  42.                 FourOhFour:
  43.                 reply$ = "HTTP/1.0 404 Not found" + crlf$
  44.                 reply$ = reply$ + "Content-Length: 103" + crlf$
  45.                 reply$ = reply$ + "Content-Type: text/html" + crlf$ + crlf$
  46.                 reply$ = reply$ + "<html><head><title>404 Not Found</title></head><body><p>This page does not exist.</p></body></html>" + crlf$ + crlf$
  47.         END SELECT
  48.         PUT #c, , reply$
  49.         CLOSE c
  50.         c = 0
  51.         x$ = ""
  52.         request$ = ""
  53.         reply$ = ""
  54.     END IF
  55.     _LIMIT 30
  57.  
  58. SUB SaveImage (image AS LONG, filename AS STRING)
  59.     bytesperpixel& = _PIXELSIZE(image&)
  60.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
  61.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
  62.     x& = _WIDTH(image&)
  63.     y& = _HEIGHT(image&)
  64.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
  65.     IF bytesperpixel& = 1 THEN
  66.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
  67.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
  68.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
  69.         NEXT
  70.     END IF
  71.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
  72.     lastsource& = _SOURCE
  73.     _SOURCE image&
  74.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
  75.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
  76.         r$ = ""
  77.         FOR px& = 0 TO x& - 1
  78.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
  79.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
  80.         NEXT px&
  81.         d$ = d$ + r$ + padder$
  82.     NEXT py&
  83.     _SOURCE lastsource&
  84.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
  85.     b$ = b$ + d$ ' total file data bytes to create file
  86.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
  87.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
  88.     f& = FREEFILE
  89.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
  90.     OPEN filename$ + ext$ FOR BINARY AS #f&
  91.     PUT #f&, , b$
  92.     CLOSE #f&
  94.  

index.html
Code: Text: [Select]
  1. <html>
  2.     <head>
  3.         <title>Screenshare</title>
  4.         <style>
  5.             body {
  6.                 margin: 0;
  7.             }
  8.         </style>
  9.         <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
  10.     </head>
  11.     <body>
  12.         <div id="screen">
  13.         </div>
  14.         <script>
  15.             imageLoop()
  16.             function imageLoop() {
  17.                 document.getElementById("screen").innerHTML = `<img id="imgvar" src="/screen">`;
  18.                 setTimeout(function(){
  19.                     location.reload();
  20.                 }, 8000);
  21.             }
  22.         </script>
  23.     </body>
  24. </html>
Title: Re: Screenshare
Post by: Real2Two on July 09, 2020, 12:52:10 pm
I tried to use JQuery instead of reload but I gave up.
Title: Re: Screenshare
Post by: Ashish on July 11, 2020, 12:22:55 am
Awesome! It will work faster if you use png images instead of bmp, as bmp are usually larger in size.
I tried using Steve SaveImage 2.3 for saving image in .png format but the browser is not accepting it. IDK why, lol.

Good work! :)
Title: Re: Screenshare
Post by: Ashish on July 11, 2020, 12:29:49 am
Oh, I made it to share program own's screen. :P


  [ This attachment cannot be displayed inline in 'Print Page' view ]  


Here's the code

Code: QB64: [Select]
  2. 'to use color names
  4. SCREEN _NEWIMAGE(500, 500, 32)
  5. dd = _OPENHOST("TCP/IP:80")
  6. crlf$ = CHR$(13) + CHR$(10)
  8.     c = _OPENCONNECTION(dd)
  9.     IF c <> 0 THEN
  10.         addr$ = _CONNECTIONADDRESS(c)
  11.         COLOR White: PRINT "Client connected: ";: COLOR 12: PRINT addr$
  12.  
  13.         GET #c, , x$
  14.  
  15.         a = INSTR(x$, "GET ")
  16.         b = INSTR(a + 5, x$, " ")
  17.         request$ = RIGHT$(LEFT$(x$, b - 1), b - a - 4)
  18.         COLOR Yellow, DarkRed
  19.         PRINT "request = ";
  20.         COLOR Black, Silver: PRINT request$
  21.         IF LEN(request$) = 0 THEN PRINT x$
  22.         COLOR Yellow, Black
  23.  
  24.         SELECT CASE request$
  25.             CASE "/"
  26.                 ff = FREEFILE
  27.                 OPEN "index.html" FOR BINARY AS #ff
  28.                 a$ = SPACE$(LOF(ff))
  29.                 GET #ff, 1, a$
  30.                 CLOSE ff
  31.                 reply$ = "HTTP/1.0 200 OK" + crlf$ + crlf$
  32.                 reply$ = reply$ + a$
  33.             CASE "/screen"
  34.                 SaveImage _COPYIMAGE(0), "screen"
  35.                 ff = FREEFILE
  36.                 OPEN "screen.bmp" FOR BINARY AS #ff
  37.                 a$ = SPACE$(LOF(ff))
  38.                 GET #ff, 1, a$
  39.                 CLOSE ff
  40.                 reply$ = "HTTP/1.0 200 OK" + crlf$
  41.                 reply$ = reply$ + "Content-Length:" + STR$(LEN(a$)) + crlf$
  42.                 reply$ = reply$ + "Content-Type: image/bmp" + crlf$ + crlf$
  43.                 reply$ = reply$ + a$
  44.             CASE ELSE
  45.                 FourOhFour:
  46.                 reply$ = "HTTP/1.0 404 Not found" + crlf$
  47.                 reply$ = reply$ + "Content-Length: 103" + crlf$
  48.                 reply$ = reply$ + "Content-Type: text/html" + crlf$ + crlf$
  49.                 reply$ = reply$ + "<html><head><title>404 Not Found</title></head><body><p>This page does not exist.</p></body></html>" + crlf$ + crlf$
  50.         END SELECT
  51.         PUT #c, , reply$
  52.         CLOSE c
  53.         c = 0
  54.         x$ = ""
  55.         request$ = ""
  56.         reply$ = ""
  57.     END IF
  58.     _LIMIT 30
  60.  
  61. SUB SaveImage (image AS LONG, filename AS STRING)
  62.     bytesperpixel& = _PIXELSIZE(image&)
  63.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
  64.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
  65.     x& = _WIDTH(image&)
  66.     y& = _HEIGHT(image&)
  67.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
  68.     IF bytesperpixel& = 1 THEN
  69.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
  70.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
  71.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
  72.         NEXT
  73.     END IF
  74.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
  75.     lastsource& = _SOURCE
  76.     _SOURCE image&
  77.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
  78.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
  79.         r$ = ""
  80.         FOR px& = 0 TO x& - 1
  81.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
  82.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
  83.         NEXT px&
  84.         d$ = d$ + r$ + padder$
  85.     NEXT py&
  86.     _SOURCE lastsource&
  87.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
  88.     b$ = b$ + d$ ' total file data bytes to create file
  89.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
  90.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
  91.     f& = FREEFILE
  92.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
  93.     OPEN filename$ + ext$ FOR BINARY AS #f&
  94.     PUT #f&, , b$
  95.     CLOSE #f&
  97.  


index.html

Code: Text: [Select]
  1. <html>
  2.     <head>
  3.         <title>Screenshare</title>
  4.         <style>
  5.             body {
  6.                 margin: 0;
  7.             }
  8.         </style>
  9.         <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
  10.     </head>
  11.     <body>
  12.         <div id="screen">
  13.         </div>
  14.         <script>
  15.             imageLoop()
  16.             function imageLoop() {
  17.                 document.getElementById("screen").innerHTML = `<img id="imgvar" src="/screen">`;
  18.                 setTimeout(function(){
  19.                     location.reload();
  20.                 }, 4000);
  21.             }
  22.         </script>
  23.     </body>
  24. </html>
  25.  

I don't know, it still delays a little.
Text Only | Text with Attachments