alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add reloading page to camera + change round xlib example.

Browse Source
This commit is contained in:
Brad Nelson
2021-06-12 17:29:56 -07:00
parent 24a4525387
commit cfa5f803e8
2 changed files with 43 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
ueforth/esp32/camera_server.fs
View File

@ -4,6 +4,47 @@ DEFINED? camera [IF]
vocabulary camera-server camera-server definitions vocabulary camera-server camera-server definitions
also camera also httpd also camera also httpd
r|
<!DOCTYPE html>
<body>
<img id="pic">
<script>
var pic = document.getElementById('pic');
function httpPost(url, callback) {
var r = new XMLHttpRequest();
r.responseType = 'blob';
r.onreadystatechange = function() {
if (this.readyState == XMLHttpRequest.DONE) {
if (this.status === 200) {
callback(this.response);
} else {
callback(null);
}
}
};
r.open('POST', url);
r.send();
}
function Frame() {
httpPost('./image', function(r) {
if (r !== null) {
try {
pic.src = URL.createObjectURL(r);
} catch (e) {
}
}
setTimeout(Frame, 30);
});
}
Frame();
</script>
| constant index-html# constant index-html
: handle-index
s" text/html" ok-response
index-html index-html# send
;
: handle-image : handle-image
s" image/jpeg" ok-response s" image/jpeg" ok-response
esp_camera_fb_get dup dup @ swap cell+ @ send esp_camera_fb_get dup dup @ swap cell+ @ send
@ -12,6 +53,7 @@ also camera also httpd
: handle1 : handle1
handleClient handleClient
s" /" path str= if handle-index exit then
s" /image" path str= if handle-image exit then s" /image" path str= if handle-image exit then
notfound-response notfound-response
; ;

2
ueforth/posix/xlib_test.fs
View File

@ -2,7 +2,7 @@ include posix/xlib.fs
also x11 also x11
z" :0" XOpenDisplay constant display 0 XOpenDisplay constant display
display XDefaultScreen constant screen display XDefaultScreen constant screen
display screen XBlackPixel constant black display screen XBlackPixel constant black
display screen XWhitePixel constant white display screen XWhitePixel constant white