PureBasic Forums - English

Hello,
will it display rtsp-streams ?

Paul, thank you. Your code works ok... but I'm seeking some form to do that this code works :S

InitMovie()
If OpenWindow(0,0,0,320,240,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"")
LoadMovie(0,"mms://media2.bloomberg.com/btv_gernb.asf")
PlayMovie(0,WindowID(0))
Repeat
Until ...

I have a WLAN Camera mounted on a copter which is streaming video in VLC with this command:

rtsp://192.168.42.1/live

and I would like to write a PB program which does display the stream as well as having a few buttons to control the camera (shutter etc.).

Any help as to the streaming would be ...

after opening a serial port I would like to send a single byte over the port and reclose the port.
WriteSerialPortData only allows the use of @buffers. How do I manage a single byte with a defined value ?
Happy New Year

Ok, I figured parts of it:
(1) in PurBasic Bytes are -127 ~ 128. Go figure ! (different in other Basics). Ascii needs to be used.
(2) the Trackbar probably jumps to 88, but that happens so fast that it is not visible.
cheers
<Thomas>

Ok, sorry: RTFM - the "*" stands for pointer. While I still do not understand why the name of an AllocatedMemory should be a pointer instead of a name of the allocated memory. Anyway, I used NewList in order to save the data received. And it works 50 % but there are two reasons why it should not ...

Now I am ready to receive a row of binary data which need to be analyzed. As you proposed, it should be done with AllocateMemory. In the programme I write:


*uavdata=AllocateMemory (256)
and the compiler is unhappy with a non-declared variable. My questions:
(1) what does the "*" in front of the ...

Thank you, Bernd. That was clear. Using the timing on the serial channel could make sure when a message starts. Else, one could use a certain start-Byte such as 0xFE and avoid repetition of the following sequence.
My goal is to keep most of the workload on the PC-Side as the AVR has so much less ...

Alright, took another path: installed a RGB-LED on the AVR Board and control the three channels with three TrackBars individually. This code still uses one Byte only to transmit the three values by splitting up the range of 0 ~ 255 into:

Red: 0 ~ 80
Green: 81 ~ 161
Blue: 162 ~ 242

Next task is now ...

Thank you, Bernd !
I trust you that PB is the easiest solution. What I like most is that you can compile such small stand-alone .exe-files.
Your new code works fine and the problem of repositioning and resizing is solved. Probably because you read the entire buffer. I lowered the timer to some crazy ...

buffer_length = available_bytes_in_buffer
for x=0 to buffer_length-1
receive$=receive$+byte(x)
next x


This works also in PB.

buffer_length = AvailableSerialPortInput(0)
For x=1 To buffer_length
ReadSerialPortData(0, @Byte, 1)
receive$ = receive$ + Chr(Byte)
Next x


But when is your data ...

Thanks, will keep hosting elsewhere when need be.

Here now is the code with procedure instead of a subroutine:


#WindowColor=$FAFAFA

Procedure rs232()
b.l=AvailableSerialPortInput(0)
If ReadSerialPortData(0,@Puffer,b)
p$=Str(puffer)
SetGadgetState (2,Puffer)
EndIf
EndProcedure

Define flags ...

here is the Bascom-code for completeness sake:


$regfile = "m2560def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 1200
Dim X As Byte
Dim Y As Byte
Do
For X = 0 To 100
Printbin X;
Waitms 100
Next X
For X = 100 To 0 Step -2
Printbin X
Waitms 40
Next X
For X = 0 To 40 ...

Have been doing some more work on the programme - at my limited intellectual level and am proud to have a moving bar alongside a working programme:


#WindowColor=$FAFAFA

Define flags = #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window ...

A Thread example:


Bernd

Bernd, Guten Morgen !
and thank you. I am still working on that thread part, but one question which is bugging me since: how does the @byte know which position within the receive-buffer is the actual one ? I would expect something like:

buffer_length = available_bytes ...