blitz3d x2

Blitz3D Forums/Blitz3D Beginners Area/blitz3d x2

shawnus(Posted 2003) [#1]
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


GfK(Posted 2003) [#2]
You can do it with the networking commands, by running one app as the server and the other as the client.


TheMan(Posted 2003) [#3]
you can goto networking command samples in your blitz commands referance


shawnus(Posted 2003) [#4]
Thanks for the replies- are there any practical examples of this anywhere where I can examine the code?
Cheers Shawnus


TheMan(Posted 2003) [#5]
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


ronbravo(Posted 2003) [#6]
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.


shawnus(Posted 2003) [#7]
Thanks guys- I will try.
cheers, Shawnus