tcp/ip exe transfer

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Gauge

oh well, heres my code:

Global stream
Global streamx
server=CreateTCPServer(4000) 

If server<>0 Then 
Print "Server started successfully." 
Else 
Print "Server failed to start." 
End 
End If 
Print "SERVER STARTED"
a=0

While a=0 
streamx=OpenTCPStream("localhost",4000)
stream=AcceptTCPStream(server)
Delay 500
If Not stream Print "NO STREAM 1"
If streamx Then
Print "Stream Connected sending file"
a=1
Else
Print "PAUSING"
Delay 500
Print "reconnecting"
EndIf
Wend

file=OpenFile("c:\agent.exe")
fileout=WriteFile("c:\newagent.exe")
a=0
Print "TRANSFER STARTED"

While Not Eof(file)
b=ReadByte(file)
WriteByte(stream,b)
WriteByte(fileout,b)
Cls
Text 10,10,a
a=a+1
Wend

CloseFile(file)
CloseFile(fileout)
CloseTCPStream(stream)
CloseTCPStream(streamx)
CloseTCPServer(server)
Print "DONE DONE DONE"
WaitKey()
End

WaitKey()