Code archives/Networking/saving files on a remote system
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
This is just some simple code showing how to save a file over the internet, it's pretty simple I just figured someone new might need it. If you use it as help and make somthing let me know please I would like to see whats made from this method. Just paste the server part into a bb and same as client but make sure its in a seperate file. | |||||
;---------------------------SERVER-------------------------- ;small example on how to write to files over the net ;BY:Ckob mainsvr=CreateTCPServer(8080) ;create the server If mainsvr<>0 Then Print "Server started successfully." Else Print "Server failed to start." End End If While Not KeyHit(1) strStream=AcceptTCPStream(mainsvr) If strStream Then msg$ =ReadString$(strStream) Print msg$ Delay 2000 fileout = WriteFile("example.dat") WriteLine( fileout, msg$ ) CloseFile(fileout) Else Print "No message has been recieved yet yet" Delay 1000 End If Wend End ;----------------------------------------------------------- ;---------------------------Client-------------------------- ;small example on how to write to files over the net ;BY:Ckob mainsvr=OpenTCPStream("127.0.0.1",8080) If mainsvr<>0 Then Print "Client Connected successfully." Else Print "Server failed to connect." WaitKey End End If name$ = Input("Name: ") FlushKeys ; write stream to server WriteString mainsvr,name$ ;----------------------------------------------------------- |
Comments
| ||
"ckob's" code archive will serve as his shrine. Our Pal 18th November 1981 to 7th June 2008. |
| ||
Why yes...yes it will puki. |
Code Archives Forum