blitz3d x2

dear all
is there a way of opening 2 windowed blitz3d programs & sending messages between them in real time? i would like to open one window with a loaded 3d model & control the model with a gui in the other window.
cheers Shawnus

You can do it with the networking commands, by running one app as the server and the other as the client.

you can goto networking command samples in your blitz commands referance

Thanks for the replies- are there any practical examples of this anywhere where I can examine the code?
Cheers Shawnus

this the code which is available in the command ref.

create a file and place the following
########################################################
; --- Start first code set ---
; Create a server and listen for push

svrGame=CreateTCPServer(8080)

If svrGame<>0 Then
Print "Server started successfully."
Else
Print "Server failed to start."
End
End If

While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
Print ReadString$(strStream)
Delay 2000
End
Else
Print "No word from Apollo X yet ..."
Delay 1000
End If
Wend

End
; --- End first code set ---
########################################################


create another file and copy the following
########################################################


; --- Start second code set ---
; Copy this code to another instance of Blitz Basic
; Run the above code first, then run this ... they will 'talk'

; Create a Client and push data

strmGame=OpenTCPStream("127.0.0.1",8080)

If strmGame<>0 Then
Print "Client Connected successfully."
Else
Print "Server failed to connect."
WaitKey
End
End If

; write stream to server
WriteString strmGame,"Mission Control, this is Apollo X ..."
Print "Completed sending message to Mission control..."

; --- End second code set ---########################################################

enjoy

I've been working on an app like yours. Remember that when you send info treat the stream just like a file. ex:

-------------------------------
"Server App"
Stream = CreateStream()

WriteString "Cool", Stream
WriteInt 4534233, Stream
WriteByte 56, Stream
SendUDPStream Stream, IP, Port

-------------------------------
"Client App"
Stream = CreateUDPStream()

Stream = RecvdUDPStream
ReadString$ = ReadString( Stream )
Integer = ReadInt( Stream )
Byte = ReadByte( Stream )


This helped me out a lot and will probably do the same for you. If you have any other questions I'd be more than happy to help you out.

Thanks guys- I will try.
cheers, Shawnus