[REBOL] Big Brother Re:

[hammiche]

Hi

This stream use an rtsp protocol
It need Real player.

I write a small script to parse a multipart/x-mixed-replace stream of jpeg
images from a webcam

Here the format of the stream

"The http header"
Content-type: multipart/x-mixed-replace; boundary=--myboundary\n\n
"The jpegs images"
Content-type: image/jpeg\n\n
image data
\n\n--myboundary\n
.
.
.
Content-type: image/jpeg\n\n
image data
\n\n--myboundary\n


It works smothly with our webcam in our intranet
But i can't manage to make it works with a demo stream available on the axis
web site (www.axis.com)

problem: the jpegs are parsed correctly but it fail to convert jpeg data to
an image! datatype.
The images saved to disk are ok and they can be loaded later in rebol/view
(see the source)

May someone help me to fix it ?

Thanks

Hammiche Mourad
[EMAIL PROTECTED]



----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 06, 2000 4:23 AM
Subject: [REBOL] Big Brother


>
> Is there a REBOL way of acquiring the pictures out of the stream from
CBS's
> "Big Brother"?
>
> I received a "Not Implemented" error.
>
> http://bb1.stream.aol.com:8080/ramgen/adtag/general/live/bblive1.smi
> http://bb1.stream.aol.com:8080/ramgen/adtag/general/live/bblive2.smi
> http://bb1.stream.aol.com:8080/ramgen/adtag/general/live/bblive3.smi
> http://bb1.stream.aol.com:8080/ramgen/adtag/general/live/bblive4.smi
>
> --
>
>                 ---===///||| Donald Dalley |||\\\===---
>                      The World of AmiBroker Support
>                   http://webhome.idirect.com/~ddalley
>                           UIN/ICQ#: 65203020
>
>

REBOL [
    Title: "Jpeg stream viewer"
    Author: "Hammiche Mourad"
    Email: [EMAIL PROTECTED]
    Date: 04-Jul-2000
    Version: 1.0.0
    Purpose: {Show a multipart/x-mixed-replace stream of jpeg images.
    
    }
    Note: {it works perfectly with my webcam ( 1 img / sec )
    but it does not work with the axis demo.
    }
]

; stream directy from an axis 200+ webcam (not available from outside)
webcam: http://192.168.1.10/cgi-bin/fullsize.srvpushb       

; stream from the axis demo on internet
;webcam: http://peeper.axisinc.com/nph-update.cgi


count: 1

view layout [
    frame 352x288 with [
        rate: 4
        p1: none
        p2: none
        fp: open/direct/binary webcam
        buffer: make string! 4096
        feel: make feel [
            engage: func [f a e ] [
		    append buffer copy/part fp 4096
                if none? p1 [
                    if found? p1: find/tail buffer "image/jpeg^/^/" [
                        remove/part buffer p1
                    ]
                ]
                
                if found? p2: find buffer "^/^/--myboundary" [
                 ;   uncomment to save the image on disk
                 ;   write/binary (to-file join "image" [ count ".jpg"]) copy/part head buffer p2
                    count: count + 1
                    f/image: load to-binary copy/part head buffer p2
                    show f
                    remove/part buffer p2
                    p1: none
                ]

            ]
        ]
    ]
    button "Quit" [ quit ]
]