QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Chris80194 on November 12, 2018, 07:58:56 pm

Title: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on November 12, 2018, 07:58:56 pm

Client file code

Code: QB64: [Select]

1. ' Client computer: Sends the file
2.  
3. 'INPUT "Enter a port number to broadcast on: ", port$
4. port$ = "12345" 'comment out demo code
5.  
6. 'INPUT "Enter the IP number to connect to: ", ipnum$
7. ipnum$ = "192.168.3.208" 'comment out demo code
8.  
9. wconnect$ = "TCP/IP:" + port$ + ":" + ipnum$
10.  
11. 'INPUT "Enter the name of a file to send: ", s$
12. 's$ = "Mileage.csv" 'comment out demo code
13. 't$ = "TripLog.csv"
14. S$ = "test2."
15. T$ = "test1."
16.  
17. PRINT "try to connect to Station " + wconnect$
18. PRINT "This Station IP is " + GetLocalIP$
19. PRINT "Send Files " + S$ + " " + T$
20. client = _OPENCLIENT(wconnect$)
21. IF client = 0 THEN PRINT "Could not connect!": END
22.  
23. PRINT "Sending " + S$ + "..."
24. PRINT #client, S$
25. OPEN S$ FOR BINARY AS #2
26. size& = LOF(2)
27. PRINT #client, size&
28. BufferSize& = 1024
29. BytesPerSecond& = 1048576
30. Buffer$ = SPACE$(BufferSize&)
31. FOR o& = 1 TO size& STEP BufferSize&
32.     IF o& + BufferSize& - 1 > size& THEN Buffer$ = SPACE$(size& - o& + 1)
33.     GET #2, , Buffer$
34.     PUT #client, , Buffer$
35.     _DELAY BufferSize& / BytesPerSecond&
36.     PRINT ".";
37. NEXT
38. PRINT 'new line
39. CLOSE #2
40. 'CLOSE #client
41. PRINT "File " + S$ + " sent successfully!"
42.  
43. PRINT "Sending " + T$ + "..."
44. PRINT #client, T$
45. OPEN T$ FOR BINARY AS #2
46. size& = LOF(2)
47. PRINT #client, size&
48. BufferSize& = 1024
49. BytesPerSecond& = 1048576
50. Buffer$ = SPACE$(BufferSize&)
51. FOR o& = 1 TO size& STEP BufferSize&
52.     IF o& + BufferSize& - 1 > size& THEN Buffer$ = SPACE$(size& - o& + 1)
53.     GET #2, , Buffer$
54.     PUT #client, , Buffer$
55.     _DELAY BufferSize& / BytesPerSecond&
56.     PRINT ".";
57. NEXT
58. PRINT 'new line
59. CLOSE #2
60. CLOSE #client
61. PRINT "File " + T$ + " sent successfully!"
62.  
63. FUNCTION GetLocalIP$
64.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
65.     A = FREEFILE
66.     OPEN "IPconfig.tmp" FOR INPUT AS #A
67.     DO
68.         LINE INPUT #A, ipline$
69.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
70.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
71.             IF GetLocalIP$ = "127.0.0.1" THEN GOTO 77
72.             CLOSE #A
73.             KILL "IPconfig.tmp" 'kill the messenger?
74.             EXIT DO
75.            77
76.         END IF
77.     LOOP UNTIL EOF(1)
78.  
79. END FUNCTION
80.  

The above code acts like it connects and sends the files named in the code just simple text files

The Host connects and spits out Zero and Zero in 2 columns and wont return to :1 to start over and wait, so it could receive another file if another one would be sent.

Code: QB64: [Select]

1. ' Host Computer: Receives the file
2.  
3. 'INPUT "Enter the port number to listen on: ", port$
4. 1
5. COLOR 7, 4
6. CLS
7. CLOSE
8.  
9. port$ = "12345" 'comment out demo code
10.  
11. v$ = "TCP/IP:" + port$
12. host = _OPENHOST(v$)
13. TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2) + ".TXT"
14. Path$ = "C:\Users\Chris\Downloads\Files"
15. Receive$ = Path$ + TTime$
16. Logging$ = Path$ + "IPLOG.txt"
17. LOCATE 10, 27: PRINT "Esc to shut down host."
18. IF host <> 0 THEN LOCATE 12, 20: PRINT GetLocalIP$ + ":" + port$; " You are the host."
19. LOCATE 11, 20: PRINT "Path to save to is " + Path$
20.  
21. DO
22.     keyed$ = INKEY$
23.     IF keyed$ = CHR$(27) THEN SYSTEM
24.     newclient = _OPENCONNECTION(host)
25.     IF newclient <> 0 THEN
26.         PRINT "Another computer has connected! "
27.         B = FREEFILE
28.         OPEN Logging$ FOR APPEND AS #B
29.         IP$ = _CONNECTIONADDRESS(newclient)
30.         PRINT IP$ + " has joined." ' displayed to Host only
31.         PRINT #B, IP$, TTime$ ' print info to a log file
32.         CLOSE B
33.  
34.         DO
35.             INPUT #newclient, s$
36.         LOOP UNTIL EOF(newclient) = 0
37.  
38.         '        DO
39.         '       INPUT #newclient, size&
40.         '      LOOP UNTIL EOF(newclient) = 0
41.  
42.         PRINT "Downloading " + s$ + "... To " + Receive$
43.         C = FREEFILE
44.         PRINT "--------------------------------"
45.         PRINT newclient
46.         PRINT EOF(newclient)
47.         PRINT s$
48.         PRINT size&
49.         PRINT "--------------------------------"
50.  
51.         OPEN Receive$ + s$ FOR OUTPUT AS #C
52.         filesize& = 0
53.         DO
54.             GET #newclient, , UT$
55.             filesize& = filesize& + LEN(UT$)
56.             IF LEN(t$) THEN PRINT #C, , UT$: PRINT ".";
57.             _DELAY 0.01
58.             PRINT filesize&, size&
59.             '        LOOP UNTIL filesize& = size&
60.         LOOP
61.         PRINT 'newline
62.         CLOSE #B
63.         CLOSE #newclient
64.         PRINT s$ + Receive$ + s$ + " successfully!"
65.     END IF
66. LOOP
67.  
68. DO
69.     keyed$ = INKEY$
70.     IF keyed$ = CHR$(27) THEN SYSTEM
71.     newclient = _OPENCONNECTION(host)
72.     IF newclient <> 0 THEN
73.         PRINT "Another computer has connected! "
74.         B = FREEFILE
75.         OPEN Logging$ FOR APPEND AS #B
76.         IP$ = _CONNECTIONADDRESS(newclient)
77.         PRINT IP$ + " has joined." ' displayed to Host only
78.         PRINT #B, IP$, TTime$ ' print info to a log file
79.         CLOSE B
80.  
81.         DO
82.             INPUT #newclient, t$
83.         LOOP UNTIL EOF(newclient) = 0
84.  
85.         '        DO
86.         '       INPUT #newclient, size&
87.         '      LOOP UNTIL EOF(newclient) = 0
88.  
89.         PRINT "Downloading " + t$ + "... To " + Receive$
90.         C = FREEFILE
91.         PRINT "--------------------------------"
92.         PRINT newclient
93.         PRINT EOF(newclient)
94.         PRINT t$
95.         PRINT size&
96.         PRINT "--------------------------------"
97.  
98.         OPEN Receive$ + t$ FOR OUTPUT AS #C
99.         filesize& = 0
100.         DO
101.             GET #newclient, , UT$
102.             filesize& = filesize& + LEN(UT$)
103.             IF LEN(t$) THEN PRINT #C, , UT$: PRINT ".";
104.             _DELAY 0.01
105.             PRINT filesize&, size&
106.             '        LOOP UNTIL filesize& = size&
107.         LOOP
108.         PRINT 'newline
109.         CLOSE #B
110.         CLOSE #newclient
111.         PRINT t$ + Receive$ + t$ + " successfully!"
112.     END IF
113. LOOP
114. GOTO 1
115.  
116. FUNCTION GetLocalIP$
117.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
118.     A = FREEFILE
119.     OPEN "IPconfig.tmp" FOR INPUT AS #A
120.     DO
121.         LINE INPUT #A, ipline$
122.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
123.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
124.             IF GetLocalIP$ = "127.0.0.1" THEN GOTO 77
125.             CLOSE #A
126.             KILL "IPconfig.tmp" 'kill the messenger?
127.             EXIT DO
128.            77
129.         END IF
130.     LOOP UNTIL EOF(1)
131.  
132. END FUNCTION
133.  

This looks like it should be a simple fix but TCP was not around when I leaned Basic code.
Thank you for your help.

Ps. I would like a snip of code to verify if a certain IP or maybe domain name can be reached before making an automated attempt in the client side.
Thanks again

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Petr on November 13, 2018, 07:02:29 am

I think, you search IF _CONNECTED (connectionhandle&)? I have a TCP / IP transmission program somewhere, but I have to find it first

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: FellippeHeitor on November 13, 2018, 11:11:01 am

I'm still to give your code a more thorough read but one thing caught my eye at a first glance: don't use PRINT and INPUT with TCP/IP. Use GET/PUT. I'll get back to you later after I've had time to analyse it further.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on November 14, 2018, 12:14:01 am

Petr How would I use  IF _CONNECTED (connectionhandle&)
Just like that or do I need to add a loop of some kind?  Thanks


FellippeHeitor GET/PUT ill have to change those into the program.... I think the print and input was in the original code snippet that I found.  Thanks

Please keep in touch with any ideas and updates, Thanks.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Petr on November 14, 2018, 10:42:02 am

Hi. I found the program, which use it:

Code: QB64: [Select]

1. 'NETWORK File transfer demo program.
2.  
3.  
4. DIM SHARED Host AS LONG, Client AS LONG
5. DIM InFile AS STRING * 128, OutFile AS STRING * 128, ok AS STRING * 2
6. CONST PACKET = 4096
7.  
8.  
9.  
10. I_am = Network("localhost")
11. InFile$ = "Z:\op_copy.avi" '             1899 megabytes file                         Both this strings are always 128 bytes long (DIM)
12. OutFile$ = "E:\copy.wav" '    copy send via network to this client place
13.  
14.  
15. SELECT CASE I_am
16.     CASE 1 'HOST   -    in this demo HOST send FILE to client
17.         _TITLE "Host"
18.         IF _FILEEXISTS(InFile$) THEN OPEN InFile$ FOR BINARY AS #1 ELSE BEEP: PRINT "File for transfer (source) not found"; InFile$: END
19.         PRINT "Sending File name and file size...("; RTRIM$(InFile$); " and"; LOF(1); LTRIM$(")")
20.         res$ = InFile$ + MKL$(LOF(1)) '                       size is set by DIM for InFile$ + 4 bytes LONG value for file size
21.         PUT #Host, , res$ '                                   send file name and file size
22.         _DELAY .005
23.         PRINT "Waiting for confirmation of the name and size ..."
24.  
25.         ok$ = Transfer$(Host, 2)
26.         IF ok$ = "OK" THEN PRINT "Name and size transferred correctly." ELSE END
27.         ok$ = ""
28.  
29.         PRINT "Uploading file..."
30.  
31.         zbyva& = LOF(1) '                               This variable in begin is the same value as uploaded file size
32.         DO WHILE zbyva& > 0 '                           Block for transport is 10 000 000 bytes, upload until all bytes are send
33.             IF zbyva& > PACKET THEN Block$ = SPACE$(PACKET) ELSE Block$ = SPACE$(zbyva&)
34.             zbyva& = zbyva& - PACKET
35.             GET #1, , Block$ '
36.             PUT #Host, , Block$
37.             IF LOF(1) > PACKET THEN DO UNTIL Transfer$(Host, 2) = "OK": LOOP '   wait for confirmation, that all bytes from 10 000 000 bytes packet comming to CLIENT.
38.         LOOP '                                           THEN is next packet send.
39.  
40.         PRINT "Waiting for confirmation FILE SIZE"
41.         message$ = Transfer$(Host&, 4) '                 It checks if the created and written file is the same size as the source file
42.         IF CVL(message$) = LOF(1) THEN PRINT "Image transferred correctly. ": END ELSE PRINT "Post:"; LOF(1); "bytes, but received"; CVL(message$); "bytes!"
43.     CASE 2 'CLIENT - in this demo receive and write file
44.         _TITLE "Client"
45.  
46.         PRINT "Receiving info about file..."
47.         file$ = Transfer$(Client, 132)
48.         FileName$ = LTRIM$(LEFT$(file$, 128)) ' maximal file name lenght is set by DIM to 128 bytes in this program
49.         FileSize& = CVL(RIGHT$(file$, 4))
50.         PRINT "File in transfer: "; RTRIM$(FileName$)
51.         PRINT "File size (bytes): "; FileSize&
52.  
53.         PRINT "Confirm file name and file size ..."
54.         ok$ = "OK"
55.         PUT #Client, , ok$
56.  
57.  
58.         'if filesize is smaller than 10 000 000 bytes, use standard way without blocks
59.         IF FileSize& < PACKET THEN
60.             Content$ = Transfer$(Client, FileSize&)
61.  
62.             OPEN RTRIM$(OutFile$) FOR OUTPUT AS #2: CLOSE #2 '     create new clear file - in this case named differently, but in real network use File_Name$, here its for localhost test in the same directory
63.             OPEN RTRIM$(OutFile$) FOR BINARY AS #2 '               write binary data to file
64.             PRINT "Writing file..."
65.             PUT #2, , Content$
66.             Writed_Size& = LOF(2)
67.             CLOSE #2
68.             confirm$ = MKL$(Writed_Size&) '                        client post WRITED SIZE as control back to Host
69.             PUT #Client&, , confirm$
70.             IF Writed_Size& = FileSize& THEN PRINT "Transfer OK!"
71.  
72.  
73.         ELSE 'if file is bigger than 10 000 000  bytes, use blocks:
74.             OPEN RTRIM$(OutFile$) FOR OUTPUT AS #2: CLOSE #2 '     create new clear file - in this case named differently, but in real network use File_Name$, here its for localhost test in the same directory
75.             OPEN RTRIM$(OutFile$) FOR BINARY AS #2 '               write binary data to file
76.             zbyva& = FileSize&
77.  
78.             IF FileSize& > 0 THEN '                                For percentage transfer calculation
79.                 IF FileSize& MOD PACKET THEN TB = 1
80.                 TotalBlocks = INT(FileSize& / PACKET) + TB
81.             END IF
82.             Ln = CSRLIN
83.             'in every loop in transmitted one 10 000 000 bytes lenght block
84.             DO WHILE zbyva& > 0
85.                 IF zbyva& > PACKET THEN Block$ = Transfer$(Client, PACKET) ELSE Block$ = Transfer$(Client, zbyva&)
86.                 zbyva& = zbyva& - PACKET
87.                 PUT #2, , Block$
88.                 ok$ = "OK"
89.                 PUT #Client, , ok$ '                                send confirmation, that this block is writed and can be send next by HOST
90.  
91.                 Block = Block + 1
92.                 Block$ = ""
93.                 perc = INT(100 * (Block / TotalBlocks))
94.                 IF oldperc <> perc THEN oldperc = perc: LOCATE Ln,: PRINT "Block "; Block; "/"; TotalBlocks; "("; perc; "%)    "
95.             LOOP
96.             _DELAY 2
97.             Writed_Size& = LOF(2)
98.             confirm$ = MKL$(Writed_Size&) '                          client post WRITED SIZE as control back to Host
99.             PUT #Client&, , confirm$
100.             IF Writed_Size& = FileSize& THEN PRINT "Transfer OK!"
101.         END IF
102. END SELECT
103. CLOSE #2, #1, #Host&, #Client&
104. END
105.  
106.  
107. FUNCTION Transfer$ (channel AS LONG, lenght)
108.     SHARED prubeh
109.     Transfer$ = ""
110.     DO
111.         GET #channel&, , T$
112.         IF LEN(T$) THEN Transfer$ = Transfer$ + T$
113.         '  IF _CONNECTED(channel&) = 0 THEN PRINT "Connection failure.": END
114.     LOOP WHILE LEN(Transfer$) < lenght
115. END FUNCTION
116.  
117. FUNCTION Network (IP AS STRING)
118.     Client& = _OPENCLIENT("TCP/IP:3455:" + LTRIM$(IP$))
119.     IF Client& THEN
120.         Network = 2 'client
121.     ELSE
122.         PRINT "No host found"
123.         _DELAY 1
124.         Client& = _OPENHOST("TCP/IP:3455")
125.         IF Client& THEN
126.             PRINT "Host created!"
127.             DO
128.                 i& = _KEYHIT
129.                 IF i& = 27 THEN EXIT FUNCTION
130.                 Host& = _OPENCONNECTION(Client&)
131.             LOOP UNTIL Host&
132.             Network = 1
133.         END IF
134.     END IF
135. END FUNCTION
136.  

Function Transfer$ show you _CONNECTED using.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on November 15, 2018, 04:02:26 am

ill try it out thanks

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on November 17, 2018, 06:54:15 am

Is that both the Client and Host?
line 10 looks like where I set either or but I am not sure what the context should be?

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Petr on November 17, 2018, 10:07:25 am

Hi. Function NETWORK in my program automatically return what current computer is. 1 for host, 2 for client. Program so as is,  is writed for both sides.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Pete on November 17, 2018, 11:21:53 pm

Quote from: Petr on November 17, 2018, 10:07:25 am

Hi. Function NETWORK in my program automatically return what current computer is. 1 for host, 2 for client. Program so as is,  is writed for both sides.

What a coincidence. My NETWORK sub designates the host and client computers by numbers 1 and 2 as well; however, I use network mapping instead of tcp/ip to network my office software. I have never tried that on Win 10 but I was able to connect with Visa, XP, and Win 7. That helped, as I did not have to update all my office computers as I bought new ones. I found it necessary to use the LOCK statement to prevent multiple users from accessing the same files at the same time.

Pete

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Craz1000 on November 18, 2018, 02:34:21 am

any way to get these file transfer as a sub for example i have been trying for hours to no avail.

Call SendFile(File$) and Call GetFile(File$)

connection is already established as #Connection on server and client programs

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Petr on November 18, 2018, 02:50:42 am

Craz1000: It works well for me. Did you run the program twice to simulate HOST and CLIENT on the same pc?

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Pete on November 18, 2018, 10:51:11 am

Maybe anti-virus software interfering? I vaguely recall having to disable ZoneAlarm or some sort of modification when I networked my office computers.

Pete

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Craz1000 on November 18, 2018, 11:55:47 am

Now that i am finally at my desk. I am trying to put together a library of TCP functions and subs to do various things to be $INCLUDEd in future programs. One of the things i want to add is a file transfer support. What I have on here was where I left off last night. I did copy the entire code that was posted and changed some things to get it to work this way, but nothing is transferred. At the point I left off I was grabbing at straws and the transfer code looks nothing like what was posted above at this point. But you can get the basic idea at what i am trying to do with this file.

Code: QB64: [Select]

1. DIM SHARED BLOCK AS STRING * 4096
2. DIM SHARED PACKET
3. PACKET = 4096
4.  
5.  
6.  
7. SUB GETFILE (FILE$)
8.     OPEN FILE$ FOR OUTPUT AS #2
9.     CLOSE #2
10.     OPEN FILE$ FOR BINARY AS #2
11.     PRINT "Writing file..."
12.  
13.     CALL SENDMSG("READY")
14.     DO
15.         IF CONNECTION THEN
16.             BLOCK$ = ""
17.             GET #CONNECTION, , BLOCK$
18.             PRINT BLOCK$
19.             IF RTRIM$(BLOCK$) <> ":EOF" THEN PUT #2, , BLOCK$
20.             CALL SENDMSG("NEXT")
21.         END IF
22.     LOOP UNTIL RTRIM$(BLOCK$) = ":EOF"
23.     CLOSE #2
24.     PRINT "TRANSFER COMPLETE"
25. END SUB
26.  
27. SUB SENDFILE (FILE$)
28.     IF _FILEEXISTS(FILE$) THEN
29.         OPEN FILE$ FOR BINARY AS #1
30.     ELSE
31.         PRINT "File for transfer (source) not found"; FILE$
32.         EXIT SUB
33.     END IF
34.  
35.     IF WAITFORREPLY$ = "READY" THEN
36.         PRINT "Uploading file..."
37.  
38.         DO
39.             GET #1, , BLOCK$
40.             PUT #CONNECTION, , BLOCK$
41.             '    PRINT BLOCK$
42.             DO
43.             LOOP UNTIL WAITFORREPLY$ = "NEXT"
44.             BLOCK$ = ""
45.         LOOP UNTIL EOF(1)
46.         CALL SENDMSG(":EOF")
47.         PRINT "TRANSFER COMPLETE"
48.         CLOSE #1
49.     END IF
50. END SUB
51.  
52. FUNCTION Transfer$ (LENGTH)
53.     Transfer$ = ""
54.     DO
55.         GET #CONNECTION, , T$
56.         Transfer$ = Transfer$ + T$
57.     LOOP WHILE LEN(Transfer$) < LENGTH
58. END FUNCTION
59.  
60.  
61. SUB SENDMSG (MSG$)
62.     MSG$ = UCASE$(MSG$)
63.     PUT #CONNECTION, , MSG$
64. END SUB
65.  
66. FUNCTION WAITFORREPLYNUM
67.     DO
68.         GET #CONNECTION, , RPL
69.     LOOP UNTIL RPL <> 0
70.     WAITFORREPLYNUM = RPL
71. END FUNCTION
72.  
73. FUNCTION WAITFORREPLYRAW$
74.     DO
75.         GET #CONNECTION, , RPL$
76.     LOOP UNTIL RPL$ <> ""
77.     WAITFORREPLYRAW$ = RPL$
78. END FUNCTION
79.  
80.  
81. FUNCTION WAITFORREPLY$
82.     T! = TIMER
83.     DO
84.         GET #CONNECTION, , RPL$
85.     LOOP UNTIL RPL$ <> "" OR TIMER > T! + 3
86.  
87.     IF TIMER > T! + 3 THEN
88.         WAITFORREPLY$ = "TIMEOUT"
89.     ELSE
90.         WAITFORREPLY$ = RTRIM$(RPL$)
91.     END IF
92. END FUNCTION
93.  

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Pete on November 18, 2018, 12:21:35 pm

I noticed you did not DIM T$.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Craz1000 on November 18, 2018, 01:25:06 pm

I got it working tried basing it on the code above again.

Code: QB64: [Select]

1.  
2.  
3.  
4. SUB GETFILE (FILE$)
5.     PACKET = 4096
6.     PRINT "Receiving info about file..."
7.     SENDMSG ("INFO")
8.     FILESIZE$ = LTRIM$(WAITFORREPLY$)
9.     FILESIZE& = VAL(FILESIZE$)
10.     PRINT "File in transfer: "; FILE$
11.     PRINT "File size (bytes): "; FILESIZE&
12.     SENDMSG ("OK")
13.  
14.     IF FILESIZE& < PACKET THEN
15.         BLOCK$ = Transfer$(FILESIZE&)
16.  
17.         OPEN FILE$ FOR OUTPUT AS #2: CLOSE #2
18.         OPEN RTRIM$(FILE$) FOR BINARY AS #2
19.         PRINT "Writing file..."
20.         PUT #2, , BLOCK$
21.         WROTE& = LOF(2)
22.         CLOSE #2
23.         IF WROTE& = FILESIZE& THEN PRINT "Transfer OK!"
24.     ELSE
25.         OPEN FILE$ FOR OUTPUT AS #2: CLOSE #2
26.         OPEN RTRIM$(FILE$) FOR BINARY AS #2
27.         zbyva& = FILESIZE&
28.  
29.         DO WHILE zbyva& > 0
30.             IF zbyva& > PACKET THEN BLOCK$ = Transfer$(PACKET) ELSE BLOCK$ = Transfer$(zbyva&)
31.             zbyva& = zbyva& - PACKET
32.             PUT #2, , BLOCK$
33.             SENDMSG ("OK")
34.             BLOCK$ = ""
35.         LOOP
36.         _DELAY 2
37.         WROTE& = LOF(2)
38.         CLOSE #2
39.         IF WROTE& = FILESIZE& THEN PRINT "Transfer OK!"
40.     END IF
41. END SUB
42.  
43. SUB SENDFILE (FILE$)
44.     PACKET = 4096
45.     IF _FILEEXISTS(FILE$) THEN OPEN FILE$ FOR BINARY AS #1
46.     PRINT "Sending File name and file size...("; FILE$; " and"; LOF(1); ")"
47.     IF WAITFORREPLY$ = "INFO" THEN SENDMSG STR$((LOF(1)))
48.  
49.     _DELAY .005
50.  
51.     PRINT "Waiting for confirmation of the name and size ..."
52.  
53.     IF WAITFORREPLY$ = "OK" THEN
54.         PRINT "Uploading file..."
55.  
56.         zbyva& = LOF(1)
57.         DO WHILE zbyva& > 0
58.             IF zbyva& > PACKET THEN Block$ = SPACE$(PACKET) ELSE Block$ = SPACE$(zbyva&)
59.             zbyva& = zbyva& - PACKET
60.             GET #1, , Block$ '
61.             PUT #CONNECTION, , Block$
62.             IF LOF(1) > PACKET THEN DO UNTIL WAITFORREPLY$ = "OK": LOOP
63.         LOOP
64.     END IF
65.     CLOSE #1
66. END SUB
67.  
68.  
69. FUNCTION Transfer$ (LENGTH&)
70.     Transfer$ = ""
71.     DO
72.         GET #CONNECTION, , T$
73.         IF LEN(T$) THEN Transfer$ = Transfer$ + T$
74.         '  IF _CONNECTED(channel&) = 0 THEN PRINT "Connection failure.": END
75.     LOOP WHILE LEN(Transfer$) < LENGTH&
76. END FUNCTION
77.  
78.  
79. SUB SENDMSG (MSG$)
80.     MSG$ = UCASE$(MSG$)
81.     PUT #CONNECTION, , MSG$
82. END SUB
83.  
84.  
85. FUNCTION WAITFORREPLY$
86.     T! = TIMER
87.     DO
88.         GET #CONNECTION, , RPL$
89.     LOOP UNTIL RPL$ <> "" OR TIMER > T! + 3
90.  
91.     IF TIMER > T! + 3 THEN
92.         WAITFORREPLY$ = "TIMEOUT"
93.     ELSE
94.         WAITFORREPLY$ = RTRIM$(RPL$)
95.     END IF
96. END FUNCTION
97.  
98.  

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Petr on November 19, 2018, 11:12:11 am

I would try it, but the whole program is needed, not just a part of it. I will try to write a new program that will differ from the current one by adding a control section for network traffic. It often happens in the network that some data will be lost, so it is necessary to count on it. This is the difference between LOCALHOST mode and real network mode.
The future program will work as follows:


1) HOST sends the file name of the uploaded file, for example, the file name has 20 characters.
2) The HOST waits for the CLIENT response to get 20 characters. But he is watching the time. If the answer does not arrive, for example, in a second, HOST sends the data again until the client confirms the correct size, after time limit CLIENT reset all incoming datas to zero and wait for new transfer.
3) HOST will send the filename (whether it is in the form of ASC numbers or a string directly, CLIENT waits until it has 20 values, then CLIENT sends the received string back to the guest and waits for confirmation. If this is not done correctly  in the specified time, CLIENT resets the string to empty and HOST sends it again and waits for confirmation until this is not correctly transferred, and then proceeds:
4) Send the data SIZE for the transfer
5) Waiting for size confirmation if no match, resetting value and sending again
6) a packet and a predetermined size are sent.
7) if it does not arrive or does not reach the full size in tim limit for one packet, and the total size of the received data is less than the data value sent in point 4, this packet is reset and sent again.

It was because I was writing a game with LAN support. It went 5 times, but then, sometimes it stuck, and it ended with endless waiting for data that, although sent, was lost somewhere along the way. The error was that I did not realize this option at that time, and did not watch the time and did not send the specific data again.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on December 02, 2018, 10:53:32 am

Ok I see this works on the LOCALHOST now how would I break this up like my example so that I could run this from 2 (or more) computers to transfer a file across a network.

Ill try to break this up.

I am trying to put this in to a program.

The receiving end just needs to be a listener.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on December 10, 2018, 10:00:24 pm

With lots of help from FellippeHeitor and his rewrite of my transfer code  I was able to send a file across a network between 2 computers (the goal) now I am adding fluff, so some automation and a few menu choices and I am stuck with the loops.
The HOST side is pretty well set mostly but the client side is where I am having the hang up.
You need both sides.

Host.bas

Code: QB64: [Select]

1. 'host - waits for connection and receives file
2.  
3. endMarker$ = CHR$(26) + "<END>" 'CHR$(26) + "<END>" is arbitraty. You can choose another ending marker.
4. port = 1234
5. host = _OPENHOST("TCP/IP:" + STR$(port))
6. IF host = 0 THEN
7.     PRINT "Opening port "; port; " failed."
8.     END
9. END IF
10. 1
11. COLOR 15, 6: CLS
12. LOCATE 6, 1: PRINT "Host started. Waiting for a client on port "; port; "..."
13. LOCATE 13, 1: PRINT "Thanks for the help from FellippeHeitor who contributed the majority of the file transfer code"
14. LOCATE 25, 1: PRINT "Press the <esc> to stop"
15.  
16. DO
17.     LOCATE 4, 15: PRINT TIME$; " "; DATE$
18.     IF INKEY$ = CHR$(27) THEN 999
19.     client = _OPENCONNECTION(host)
20.     IF client THEN
21.         'a client connected; get data until EOF() then close
22.         LOCATE 6, 1: COLOR 15, 8: PRINT "waiting for data... ";
23.         receivedFile$ = ""
24.         DO
25.             GET client, , incoming$
26.             receivedFile$ = receivedFile$ + incoming$
27.         LOOP UNTIL INSTR(receivedFile$, endMarker$) > 0
28.         CLOSE client
29.         client = 0
30.         fileName$ = LEFT$(receivedFile$, INSTR(receivedFile$, "<CONTENTS>") - 1)
31.         PRINT fileName$
32.         receivedFile$ = LEFT$(receivedFile$, INSTR(receivedFile$, endMarker$) - 1)
33.         LOCATE 7, 1: COLOR 15, 8: PRINT LEN(receivedFile$); " bytes received."
34.         'IF fileName$ = "" THEN INPUT "File name to save: ", fileName$
35.  
36.         IF LEN(fileName$) THEN
37.             fileHandle = FREEFILE
38.             OPEN fileName$ FOR BINARY AS #fileHandle
39.             PUT #fileHandle, 1, receivedFile$
40.             CLOSE #fileHandle
41.             LOCATE 8, 1: COLOR 15, 8: PRINT "Saved as "; fileName$; TIME$; DATE$
42.         ELSE
43.             LOCATE 8, 1: COLOR 15, 8: PRINT "canceled; received data discarded."; TIME$; DATE$
44.         END IF
45.         LOCATE 5, 1: COLOR 15, 8: PRINT "Waiting for a new client...": COLOR 15, 6: GOTO 1
46.     END IF
47.     _LIMIT 30
48. LOOP UNTIL _EXIT
49. 999
50. LOCATE 10, 1: COLOR 7, 1: PRINT "closing connections..."
51. CLOSE
52. SYSTEM
53.  

Client.bas

Code: QB64: [Select]

1. 1
2. 'host - waits for connection and receives file
3. COLOR 6, 1: CLS
4. endMarker$ = CHR$(26) + "<END>" 'CHR$(26) + "<END>" is arbitraty. You can choose another ending marker.
5. port = 1234
6. PRINT "Press (L) for localhost"
7. PRINT "Press (I) to enter Host IP"
8. DO WHILE INKEY$ = ""
9.     Choice$ = UCASE$(INKEY$)
10.     IF Choice$ <> "" THEN EXIT DO
11.     T = T + 1
12.     IF T = 400000 THEN Choice$ = "A": EXIT DO
13. LOOP
14. IF Choice$ = "A" THEN address$ = "192.168.3.208": GOTO 2
15. IF Choice$ = "L" THEN address$ = "localhost": GOTO 2
16. IF Choice$ = "I" THEN INPUT "What is the HOST IP ", address$: GOTO 2
17. GOTO 1
18. 2
19. COLOR 6, 1: CLS
20. PRINT "Looking for host "; address$; ":"; port
21. LOCATE 18, 1: PRINT "Thanks for the help from FellippeHeitor who contributed the majority of the file transfer code"
22. host = _OPENCLIENT("TCP/IP:" + STR$(port) + ":" + address$)
23. IF host = 0 THEN
24.     PRINT "No host found at "; address$; " on port "; port;
25.     END
26. END IF
27.  
28. LOCATE 2, 1: PRINT "Host found."
29. LOCATE 5, 1
30. PRINT "1 Transfer Mileage.log"
31. PRINT "2 Transfer Receipt.log"
32. 'PRINT "3"
33. PRINT "9 Transfer Any File"
34. PRINT "<esc> to end"
35. 9
36. DO
37.     LOCATE 3, 15: PRINT TIME$; " "; DATE$
38.     Choice$ = INKEY$
39.     IF Choice$ <> "" THEN GOTO 10
40. LOOP
41.  
42. 10
43. IF Choice$ = "1" THEN fileName$ = "Mileage.log": GOTO 11
44. IF Choice$ = "2" THEN fileName$ = "Receipt.log": GOTO 11
45. 'if Choice$="3"  : GOTO 11
46. IF Choice$ = "9" THEN LOCATE 10, 1: INPUT "Name of File to send: ", fileName$: GOTO 11
47. IF Choice$ = CHR$(27) GOTO 54
48. GOTO 9
49.  
50. 11
51. LOCATE 12, 1: COLOR 15, 8: PRINT INKEY$
52. PRINT "File to send "; fileName$
53.  
54. IF _FILEEXISTS(fileName$) = 0 THEN
55.     LOCATE 12, 1:
56.     PRINT "File not found: "; fileName$
57.     PRINT "closing connections...": CLOSE
58.     PRINT "Press any key to continue to menu"
59.     DO WHILE INKEY$ <> "": LOOP 'Pause
60.     GOTO 1
61.     'END
62. END IF
63.  
64. 'read file into memory:
65. fileHandle = FREEFILE
66. OPEN fileName$ FOR BINARY AS #fileHandle
67. fileContents$ = SPACE$(LOF(fileHandle))
68. GET #fileHandle, 1, fileContents$
69. CLOSE #fileHandle
70.  
71. 'send file:
72. fileContents$ = fileName$ + "<CONTENTS>" + fileContents$ + endMarker$
73. 'fileContents$ = fileContents$ + endMarker$
74. PUT #host, , fileContents$
75. LOCATE 12, 1:
76. PRINT LEN(fileContents$) - LEN(endMarker$); " bytes sent"
77. PRINT "Tranfer complete,"
78. PRINT "closing connections...": CLOSE
79. PRINT "Press any key to continue to menu"
80. DO WHILE INKEY$ <> "": LOOP 'Pause
81. GOTO 1
82.  
83. 54
84. LOCATE 12, 1:
85. PRINT "closing connections..."
86. CLOSE
87. SYSTEM
88.  

I am trying to do loop instead of input this way I can put in a revolving clock while it waits for input or will fail/timeout to a defined selection.
Thanks

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on January 10, 2019, 10:10:11 pm

Ok so i have beat up this code a lot.
I have 2 programs that are to run on different computers on a lan.

Thispart resides on my computer in my truck and seems to work.
Where the issue is in the transfer of the files.

Code: QB64: [Select]

1. 'COLOR Foreground , Background
2. 'Path$ = "C:\Users\Chris\Downloads\Files"
3. 'Receive$ = Path$ + TTime$
4. 'LOCATE 11, 27: PRINT Receive$
5. 222
6. COLOR 1, 7
7. CLS
8. position = 3
9. DO UNTIL choice$ <> ""
10.     TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2)
11.     LOCATE 3, 15: PRINT "OTS Mileage Log": LOCATE 3, 40: PRINT TTime$ ' only 23 lines on screen 80 wide
12.  
13.     LOCATE 4 + position, 1: PRINT "1 Gas Mileage"
14.     LOCATE 5 + position, 1: PRINT "2 Trip Log"
15.     LOCATE 10 + position, 1: PRINT "0 Upload"
16.     LOCATE 23, 1: PRINT "ESC to exit" ' Lock in here no lower
17.     choice$ = UCASE$(INKEY$) 'change any user key press to uppercase
18.  
19. LOOP
20.  
21. IF choice$ = "1" THEN CALL Mileagelog
22. IF choice$ = "2" THEN CALL Triplog
23. IF choice$ = "0" THEN CALL Uploader
24. IF choice$ = CHR$(27) THEN SYSTEM
25. choice$ = ""
26. GOTO 222
27.  
28. SUB Mileagelog
29.     CLS
30.     choice$ = ""
31.     COLOR 15, 4: CLS
32.     LOCATE 1, 15: PRINT "OTS Mileage Log"
33.  
34.     LOCATE 2, 1: PRINT " 1 Kroger"
35.     LOCATE 3, 1: PRINT " 2 7 Eleven"
36.     LOCATE 4, 1: PRINT " 3 Mobile"
37.     LOCATE 5, 1: PRINT " 4 Exxon"
38.     LOCATE 6, 1: PRINT " 5 Shell"
39.     LOCATE 7, 1: PRINT " 6 Costco"
40.     LOCATE 8, 1: PRINT " 7 Sams"
41.     LOCATE 9, 1: PRINT " 8 Tom Thumb"
42.     LOCATE 10, 1: PRINT " 0 Other"
43.     LOCATE 20, 1: PRINT "ESC to exit"
44.  
45.     10
46.     DO
47.  
48.         LOCATE 12, 1: PRINT "Choose a Station above: "; 'semicolon saves position for user entry
49.  
50.         DO: keypress$ = UCASE$(INKEY$) 'change any user key press to uppercase
51.  
52.         LOOP UNTIL keypress$ <> ""
53.         COLOR 15, 1: PRINT keypress$
54.         Station$ = keypress$
55.         GOTO 11
56.  
57.     LOOP
58.  
59.     11
60.     IF Station$ = "1" THEN Station$ = "Kroger": GOTO 12
61.     IF Station$ = "2" THEN Station$ = "7 Eleven": GOTO 12
62.     IF Station$ = "3" THEN Station$ = "Mobile": GOTO 12
63.     IF Station$ = "4" THEN Station$ = "Exxon": GOTO 12
64.     IF Station$ = "5" THEN Station$ = "Shell": GOTO 12
65.     IF Station$ = "6" THEN Station$ = "Costco": GOTO 12
66.     IF Station$ = "7" THEN Station$ = "Sams": GOTO 12
67.     IF Station$ = "8" THEN Station$ = "Tom Thumb": GOTO 12
68.     IF Station$ = "0" THEN Station$ = "Other": GOTO 12
69.     IF Station$ = CHR$(27) THEN GOTO 31
70.  
71.     GOTO 10
72.  
73.     12
74.     IF keypress$ = "0" THEN LOCATE 2, 20: INPUT ; "Station ?", Station$
75.  
76.     200
77.     LOCATE 2, 20: PRINT "Station ", Station$
78.     LOCATE 3, 20: PRINT "Location"
79.     LOCATE 4, 20: PRINT "Pump"
80.     LOCATE 5, 20: PRINT "Price"
81.     LOCATE 6, 20: PRINT "Cost"
82.     LOCATE 7, 20: PRINT "Discount"
83.     LOCATE 8, 20: PRINT "Gallons"
84.     LOCATE 9, 20: PRINT "Mileage"
85.     LOCATE 10, 20: PRINT "Trip"
86.     LOCATE 11, 20: PRINT "Hours"
87.     LOCATE 3, 20: INPUT ; "Location? ", Location$
88.     LOCATE 4, 20: INPUT ; "Pump? ", Pump$
89.     LOCATE 5, 20: INPUT ; "Price? ", Price$
90.     LOCATE 6, 20: INPUT ; "Cost? ", Cost$
91.     LOCATE 7, 20: INPUT ; "Discount? ", Discount$
92.     LOCATE 8, 20: INPUT ; "Gallons? ", Gallons$
93.     LOCATE 9, 20: INPUT ; "Mileage? ", Mileage$
94.     LOCATE 10, 20: INPUT ; "Trip? ", Trip$
95.     LOCATE 11, 20: INPUT ; "Hours? ", Hours$
96.     LOCATE 12, 30: INPUT ; "Do you need to enter the date and time ? (N/y)", choice$
97.     LOCATE 12, 30: COLOR 7, 0: PRINT ; "                                              ": COLOR 15, 1
98.     IF LCASE$(choice$) = "y" THEN LOCATE 12, 20: INPUT ; "Time? ", TM$: LOCATE 13, 20: INPUT ; "Date? ", DT$ ELSE TM$ = TIME$: DT$ = DATE$
99.     IF TM$ = "" THEN TM$ = "Not Entered": IF DT$ = "" THEN DT$ = "Not Entered"
100.  
101.     300
102.     LOCATE 15, 1: PRINT Station$, Location$, Pump$, Price$, Discount$, Gallons$, Mileage$, Trip$, Hours$, DT$, TM$
103.     OPEN "mileage.csv" FOR APPEND AS #1
104.     WRITE #1, Station$, Location$, Pump$, Price$, Discount$, Gallons$, Mileage$, Trip$, Hours$, DT$, TM$
105.     CLOSE #1
106.    31
107. END SUB
108.  
109. FUNCTION GetLocalIP$
110.     choice$ = ""
111.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
112.     A = FREEFILE
113.     OPEN "IPconfig.tmp" FOR INPUT AS #A
114.     DO
115.         LINE INPUT #A, ipline$
116.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
117.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
118.             IF GetLocalIP$ = "127.0.0.1" THEN GOTO 77
119.             CLOSE #A
120.             KILL "IPconfig.tmp" 'kill the messenger?
121.             EXIT DO
122.            77
123.         END IF
124.     LOOP UNTIL EOF(1)
125.     CLOSE #A
126.     KILL "IPconfig.tmp" 'kill the messenger?
127. END FUNCTION
128.  
129. SUB Triplog
130.     COLOR 15, 5
131.     CLS
132.     choice$ = ""
133.    1000
134.     COLOR 7, 0: CLS
135.     LOCATE 1, 15: PRINT "OTS Trip Log" ' only 23 lines on screen 80 wide
136.  
137.     1200
138.     LOCATE 3, 20: PRINT "Work Order Number"
139.     LOCATE 4, 20: PRINT "Start Mileage"
140.     LOCATE 5, 20: PRINT "End Mileage"
141.     LOCATE 6, 20: PRINT "Client"
142.     LOCATE 3, 20: INPUT ; "Work Order Number? ", WO$
143.     LOCATE 4, 20: INPUT ; "Start Mileage ", SM$
144.     LOCATE 5, 20: INPUT ; "End Mileage? ", EM$
145.     LOCATE 6, 20: INPUT ; "Client? ", Client$
146.  
147.     TM$ = TIME$: DT$ = DATE$
148.  
149.     1300
150.     OPEN "TripLog.csv" FOR APPEND AS #1
151.     LOCATE 15, 1: PRINT WO$, SM$, EM$, Client$, DT$, TM$
152.     WRITE #1, WO$, SM$, EM$, Client$, DT$, TM$
153.     CLOSE #1
154.  
155. END SUB
156.  
157. SUB Uploader
158.    1
159.     choice$ = ""
160.     t = 0
161.     'host - waits for connection and receives file
162.     COLOR 15, 1: CLS
163.     endMarker$ = CHR$(26) + "<END>" 'CHR$(26) + "<END>" is arbitraty. You can choose another ending marker.
164.     address$ = "192.168.3.102": port = 1234
165.     LOCATE 8
166.     PRINT "Auto Host " + address$; ":"; port; "(Default)"
167.     PRINT "Press (L) for localhost"
168.     PRINT "Press (I) to enter Host IP"
169.     LOCATE 20, 1: PRINT "ESC to exit"
170.  
171.     DO WHILE INKEY$ = ""
172.         choice$ = UCASE$(INKEY$)
173.         IF choice$ <> "" THEN EXIT DO
174.         t = t + 1
175.         IF t = 600000 THEN choice$ = "A": EXIT DO
176.     LOOP
177.     IF choice$ = "A" THEN GOTO 2
178.     IF choice$ = "L" THEN address$ = "localhost": port = 1234: GOTO 2
179.     IF choice$ = "I" THEN INPUT "What is the HOST IP ", address$
180.     IF choice$ = "I" THEN INPUT "What is the PORT # ", port: GOTO 2
181.     IF choice$ = CHR$(27) GOTO 54
182.     GOTO 1
183.    2
184.     choice$ = ""
185.     COLOR 12, 1: CLS
186.     PRINT "Sending to host "; address$; ":"; port
187.     LOCATE 18, 1: PRINT "Thanks for the help from FellippeHeitor who contributed the majority of the file transfer code"
188.     host = _OPENCLIENT("TCP/IP:" + STR$(port) + ":" + address$)
189.     IF host = 0 THEN
190.         PRINT "No host found at "; address$; " on port "; port;
191.         END
192.     END IF
193.  
194.     LOCATE 2, 1: PRINT "Host found."
195.     LOCATE 5, 1
196.     PRINT "1 Transfer Mileage.csv"
197.     PRINT "2 Transfer Triplog.csv"
198.     'PRINT "3"
199.     PRINT "9 Transfer Any File"
200.     PRINT "<esc> to end"
201.  
202.     9
203.     t = 0
204.     PRINT choice$
205.     DO WHILE INKEY$ = ""
206.         choice$ = UCASE$(INKEY$)
207.         t = t + 1
208.         'IF t = 400000 THEN choice$ = "3": EXIT DO
209.         IF choice$ <> "" THEN EXIT DO
210.         LOCATE 3, 15: PRINT TIME$; " "; DATE$
211.     LOOP
212.  
213.     PRINT t; choice$
214.     IF choice$ = "1" THEN fileName$ = "Mileage.csv": GOTO 11
215.     IF choice$ = "2" THEN fileName$ = "Triplog.csv": GOTO 11
216.     'if Choice$="3"  : GOTO 11 '  send all
217.     IF choice$ = "9" THEN LOCATE 10, 1: INPUT "Name of File to send: ", fileName$: GOTO 11
218.     IF choice$ = CHR$(27) GOTO 54
219.     choice$ = ""
220.     GOTO 9
221.  
222.     11
223.     choice$ = ""
224.     LOCATE 12, 1: COLOR 15, 8: PRINT INKEY$
225.     PRINT "File to send "; fileName$
226.  
227.     IF _FILEEXISTS(fileName$) = 0 THEN
228.         LOCATE 12, 1:
229.         PRINT "File not found: "; fileName$
230.         PRINT "closing connections...": CLOSE
231.         PRINT "Press any key to continue to menu"
232.         DO WHILE INKEY$ <> "": LOOP 'Pause
233.         GOTO 1
234.         'END
235.     END IF
236.  
237.     'read file into memory:
238.     fileHandle = FREEFILE
239.     OPEN fileName$ FOR BINARY AS #fileHandle
240.     fileContents$ = SPACE$(LOF(fileHandle))
241.     GET #fileHandle, 1, fileContents$
242.     CLOSE #fileHandle
243.  
244.     'send file:
245.     fileContents$ = fileName$ + "<CONTENTS>" + fileContents$ + endMarker$
246.     'fileContents$ = fileContents$ + endMarker$
247.     PUT #host, , fileContents$
248.     LOCATE 12, 1:
249.     PRINT LEN(fileContents$) - LEN(endMarker$); " bytes sent"
250.     PRINT "Transfer complete,"
251.     PRINT "closing connections...": CLOSE
252.     PRINT "Press any key to continue to menu"
253.     DO WHILE INKEY$ <> "": LOOP 'Pause
254.     GOTO 1
255.  
256.     54
257.     LOCATE 12, 1:
258.     PRINT "closing connections..."
259.     CLOSE
260.  
261. END SUB
262.  
263.  

This side waits for the transfer and when done is supposed to recycle and wait for another file to receive without having to be restarted.
It gets to waiting for file and hangs up.???
This part is supposed to run on a computer on my desk in my room standalone without being touched..

Code: QB64: [Select]

1. 'host - waits for connection and receives file
2.  
3. endMarker$ = CHR$(26) + "<END>" 'CHR$(26) + "<END>" is arbitrary. You can choose another ending marker.
4. port = 1234
5. host = _OPENHOST("TCP/IP:" + STR$(port))
6. IF host = 0 THEN
7.     PRINT "Opening port "; port; " failed."
8.     END
9. END IF
10. 1
11. COLOR 15, 6: CLS
12. LOCATE 6, 1: PRINT "Host started. Waiting for a client on port "; port; "..."
13. LOCATE 13, 1: PRINT "Thanks for the help from FellippeHeitor who contributed the majority of the file transfer code"
14. LOCATE 25, 1: PRINT "Press the <esc> to stop"
15.  
16. DO
17.     LOCATE 4, 15: PRINT TIME$; " "; DATE$
18.     IF INKEY$ = CHR$(27) THEN 999
19.     client = _OPENCONNECTION(host)
20.     IF client THEN
21.         'a client connected; get data until EOF() then close
22.         LOCATE 6, 1: COLOR 15, 8: PRINT "waiting for data... ";
23.         receivedFile$ = ""
24.         DO
25.             GET client, , incoming$
26.             receivedFile$ = receivedFile$ + incoming$
27.         LOOP UNTIL INSTR(receivedFile$, endMarker$) > 0
28.         CLOSE client
29.         client = 0
30.         fileName$ = LEFT$(receivedFile$, INSTR(receivedFile$, "<CONTENTS>") - 1)
31.         PRINT fileName$
32.         receivedFile$ = LEFT$(receivedFile$, INSTR(receivedFile$, endMarker$) - 1)
33.         LOCATE 7, 1: COLOR 15, 8: PRINT LEN(receivedFile$); " bytes received."
34.         'IF fileName$ = "" THEN INPUT "File name to save: ", fileName$
35.  
36.         IF LEN(fileName$) THEN
37.             fileHandle = FREEFILE
38.             OPEN fileName$ FOR BINARY AS #fileHandle
39.             PUT #fileHandle, 1, receivedFile$
40.             CLOSE #fileHandle
41.             LOCATE 8, 1: COLOR 15, 8: PRINT "Saved as "; fileName$; TIME$; DATE$
42.         ELSE
43.             LOCATE 8, 1: COLOR 15, 8: PRINT "canceled; received data discarded."; TIME$; DATE$
44.         END IF
45.         LOCATE 5, 1: COLOR 15, 8: PRINT "Waiting for a new client...": COLOR 15, 6: GOTO 1
46.     END IF
47.     _LIMIT 30
48. LOOP UNTIL _EXIT
49. 999
50. LOCATE 10, 1: COLOR 7, 1: PRINT "closing connections..."
51. CLOSE
52. SYSTEM
53.  
54.  

This is supposed to run on 2 seperate systems.

Title: Re: Help with a Simple file transfer from a client to the host to send 2 text files.
Post by: Chris80194 on January 12, 2019, 12:46:21 am

Coder Hunter helped point a few things with the transfer so I updated the code
Logger.bas

Code: QB64: [Select]

1. 'COLOR Foreground , Background
2. 'Path$ = "C:\Users\Chris\Downloads\Files"
3. 'Receive$ = Path$ + TTime$
4. 'LOCATE 11, 27: PRINT Receive$
5. 222
6. COLOR 1, 7
7. CLS
8. position = 3
9. DO UNTIL choice$ <> ""
10.     TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2)
11.     LOCATE 3, 15: PRINT "OTS Mileage Log": LOCATE 3, 40: PRINT TTime$ ' only 23 lines on screen 80 wide
12.  
13.     LOCATE 4 + position, 1: PRINT "1 Gas Mileage"
14.     LOCATE 5 + position, 1: PRINT "2 Trip Log"
15.     LOCATE 10 + position, 1: PRINT "0 Upload"
16.     LOCATE 11 + position, 1: PRINT "P Printer Select"
17.     LOCATE 23, 1: PRINT "ESC to exit" ' Lock in here no lower
18.     choice$ = UCASE$(INKEY$) 'change any user key press to uppercase
19.  
20. LOOP
21.  
22. IF choice$ = "1" THEN CALL Mileagelog
23. IF choice$ = "2" THEN CALL Triplog
24. IF choice$ = "0" THEN CALL Uploader
25. IF choice$ = "P" THEN CALL Select_Printer
26. IF choice$ = CHR$(27) THEN SYSTEM
27. choice$ = ""
28. GOTO 222
29.  
30. SUB Mileagelog
31.     CLS
32.     choice$ = ""
33.     COLOR 15, 4: CLS
34.     LOCATE 1, 15: PRINT "OTS Mileage Log"
35.  
36.     LOCATE 2, 1: PRINT " 1 Kroger"
37.     LOCATE 3, 1: PRINT " 2 7 Eleven"
38.     LOCATE 4, 1: PRINT " 3 Mobile"
39.     LOCATE 5, 1: PRINT " 4 Exxon"
40.     LOCATE 6, 1: PRINT " 5 Shell"
41.     LOCATE 7, 1: PRINT " 6 Costco"
42.     LOCATE 8, 1: PRINT " 7 Sams"
43.     LOCATE 9, 1: PRINT " 8 Tom Thumb"
44.     LOCATE 10, 1: PRINT " 0 Other"
45.     LOCATE 20, 1: PRINT "ESC to exit"
46.  
47.     10
48.     DO
49.  
50.         LOCATE 12, 1: PRINT "Choose a Station above: "; 'semicolon saves position for user entry
51.  
52.         DO: keypress$ = UCASE$(INKEY$) 'change any user key press to uppercase
53.  
54.         LOOP UNTIL keypress$ <> ""
55.         COLOR 15, 1: PRINT keypress$
56.         Station$ = keypress$
57.         GOTO 11
58.  
59.     LOOP
60.  
61.     11
62.     IF Station$ = "1" THEN Station$ = "Kroger": GOTO 12
63.     IF Station$ = "2" THEN Station$ = "7 Eleven": GOTO 12
64.     IF Station$ = "3" THEN Station$ = "Mobile": GOTO 12
65.     IF Station$ = "4" THEN Station$ = "Exxon": GOTO 12
66.     IF Station$ = "5" THEN Station$ = "Shell": GOTO 12
67.     IF Station$ = "6" THEN Station$ = "Costco": GOTO 12
68.     IF Station$ = "7" THEN Station$ = "Sams": GOTO 12
69.     IF Station$ = "8" THEN Station$ = "Tom Thumb": GOTO 12
70.     IF Station$ = "0" THEN Station$ = "Other": GOTO 12
71.     IF Station$ = CHR$(27) THEN GOTO 31
72.  
73.     GOTO 10
74.  
75.     12
76.     IF keypress$ = "0" THEN LOCATE 2, 20: INPUT ; "Station ?", Station$
77.  
78.     200
79.     LOCATE 2, 20: PRINT "Station ", Station$
80.     LOCATE 3, 20: PRINT "Location"
81.     LOCATE 4, 20: PRINT "Pump"
82.     LOCATE 5, 20: PRINT "Price"
83.     LOCATE 6, 20: PRINT "Cost"
84.     LOCATE 7, 20: PRINT "Discount"
85.     LOCATE 8, 20: PRINT "Gallons"
86.     LOCATE 9, 20: PRINT "Mileage"
87.     LOCATE 10, 20: PRINT "Trip"
88.     LOCATE 11, 20: PRINT "Hours"
89.     LOCATE 3, 20: INPUT ; "Location? ", Location$
90.     LOCATE 4, 20: INPUT ; "Pump? ", Pump$
91.     LOCATE 5, 20: INPUT ; "Price? ", Price$
92.     LOCATE 6, 20: INPUT ; "Cost? ", Cost$
93.     LOCATE 7, 20: INPUT ; "Discount? ", Discount$
94.     LOCATE 8, 20: INPUT ; "Gallons? ", Gallons$
95.     LOCATE 9, 20: INPUT ; "Mileage? ", Mileage$
96.     LOCATE 10, 20: INPUT ; "Trip? ", Trip$
97.     LOCATE 11, 20: INPUT ; "Hours? ", Hours$
98.     LOCATE 12, 30: INPUT ; "Do you need to enter the date and time ? (N/y)", choice$
99.     LOCATE 12, 30: COLOR 7, 0: PRINT ; "                                              ": COLOR 15, 1
100.     IF LCASE$(choice$) = "y" THEN LOCATE 12, 20: INPUT ; "Time? ", TM$: LOCATE 13, 20: INPUT ; "Date? ", DT$ ELSE TM$ = TIME$: DT$ = DATE$
101.     IF TM$ = "" THEN TM$ = "Not Entered": IF DT$ = "" THEN DT$ = "Not Entered"
102.  
103.     300
104.     LOCATE 15, 1: PRINT Station$, Location$, Pump$, Price$, Discount$, Gallons$, Mileage$, Trip$, Hours$, DT$, TM$
105.     OPEN "mileage.csv" FOR APPEND AS #1
106.     WRITE #1, Station$, Location$, Pump$, Price$, Discount$, Gallons$, Mileage$, Trip$, Hours$, DT$, TM$
107.     CLOSE #1
108.    31
109. END SUB
110.  
111. FUNCTION GetLocalIP$
112.     choice$ = ""
113.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
114.     A = FREEFILE
115.     OPEN "IPconfig.tmp" FOR INPUT AS #A
116.     DO
117.         LINE INPUT #A, ipline$
118.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
119.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
120.             IF GetLocalIP$ = "127.0.0.1" THEN GOTO 77
121.             CLOSE #A
122.             KILL "IPconfig.tmp" 'kill the messenger?
123.             EXIT DO
124.            77
125.         END IF
126.     LOOP UNTIL EOF(1)
127.     CLOSE #A
128.     KILL "IPconfig.tmp" 'kill the messenger?
129. END FUNCTION
130.  
131. SUB Triplog
132.     COLOR 15, 5
133.     CLS
134.     choice$ = ""
135.    1000
136.     COLOR 7, 0: CLS
137.     LOCATE 1, 15: PRINT "OTS Trip Log" ' only 23 lines on screen 80 wide
138.  
139.     1200
140.     LOCATE 3, 20: PRINT "Work Order Number"
141.     LOCATE 4, 20: PRINT "Start Mileage"
142.     LOCATE 5, 20: PRINT "End Mileage"
143.     LOCATE 6, 20: PRINT "Client"
144.     LOCATE 3, 20: INPUT ; "Work Order Number? ", WO$
145.     LOCATE 4, 20: INPUT ; "Start Mileage ", SM$
146.     LOCATE 5, 20: INPUT ; "End Mileage? ", EM$
147.     LOCATE 6, 20: INPUT ; "Client? ", Client$
148.  
149.     TM$ = TIME$: DT$ = DATE$
150.  
151.     1300
152.     OPEN "TripLog.csv" FOR APPEND AS #1
153.     LOCATE 15, 1: PRINT WO$, SM$, EM$, Client$, DT$, TM$
154.     WRITE #1, WO$, SM$, EM$, Client$, DT$, TM$
155.     CLOSE #1
156.  
157. END SUB
158.  
159. SUB Uploader
160.    1
161.     choice$ = ""
162.     t = 0
163.     'host - waits for connection and receives file
164.     COLOR 15, 1: CLS
165.     endMarker$ = CHR$(26) + "<END>" 'CHR$(26) + "<END>" is arbitraty. You can choose another ending marker.
166.     address$ = "192.168.3.102": port = 1234
167.     LOCATE 8
168.     PRINT "Auto Host " + address$; ":"; port; "(Default)"
169.     PRINT "Press (L) for localhost"
170.     PRINT "Press (I) to enter Host IP"
171.     LOCATE 20, 1: PRINT "ESC to exit"
172.  
173.     DO WHILE INKEY$ = ""
174.         choice$ = UCASE$(INKEY$)
175.         IF choice$ <> "" THEN EXIT DO
176.         t = t + 1
177.         IF t = 600000 THEN choice$ = "A": EXIT DO
178.     LOOP
179.     IF choice$ = "A" THEN GOTO 2
180.     IF choice$ = "L" THEN address$ = "localhost": port = 1234: GOTO 2
181.     IF choice$ = "I" THEN INPUT "What is the HOST IP ", address$
182.     IF choice$ = "I" THEN INPUT "What is the PORT # ", port: GOTO 2
183.     IF choice$ = CHR$(27) GOTO 54
184.     GOTO 1
185.    2
186.     choice$ = ""
187.     COLOR 15, 1: CLS
188.     LOCATE 9,
189.     PRINT "Host to be sent to "; address$; ":"; port
190.     PRINT "1 Transfer Mileage.csv"
191.     PRINT "2 Transfer Triplog.csv"
192.     'PRINT "3"
193.     PRINT "9 Transfer Any File"
194.     PRINT "<esc> to end"
195.  
196.     LOCATE 18, 1: PRINT "Thanks for the help from FellippeHeitor who contributed the majority of the file transfer code"
197.     LOCATE 19, 1: PRINT "Thanks, also for the help from Coder_Hunter who contributed tips to the file transfer code"
198.  
199.     9
200.     t = 0
201.     DO WHILE INKEY$ = ""
202.         choice$ = UCASE$(INKEY$)
203.         t = t + 1
204.         'IF t = 400000 THEN choice$ = "3": EXIT DO
205.         IF choice$ <> "" THEN EXIT DO
206.         LOCATE 3, 15: PRINT TIME$; " "; DATE$
207.     LOOP
208.  
209.     IF choice$ = "1" THEN fileName$ = "Mileage.csv": GOTO 11
210.     IF choice$ = "2" THEN fileName$ = "Triplog.csv": GOTO 11
211.     'if Choice$="3"  : GOTO 11 '  send all
212.     IF choice$ = "9" THEN LOCATE 6, 1: INPUT "Name of File to send: ", fileName$: GOTO 11
213.     IF choice$ = CHR$(27) GOTO 54
214.     choice$ = ""
215.     GOTO 9
216.  
217.     11
218.     choice$ = ""
219.  
220.     LOCATE 12, 1: COLOR 15, 8: CLS
221.     PRINT "File to send "; fileName$
222.  
223.     IF _FILEEXISTS(fileName$) = 0 THEN
224.         LOCATE 13, 1
225.         PRINT "File not found: "; fileName$
226.         PRINT "closing connections...": CLOSE
227.         PRINT "Press any key to continue to menu"
228.         choice$ = ""
229.         DO WHILE INKEY$ = ""
230.             choice$ = UCASE$(INKEY$)
231.             t = t + 1
232.             IF t = 400000 THEN choice$ = "3": EXIT DO
233.             IF choice$ <> "" THEN EXIT DO
234.             LOCATE 3, 15: PRINT TIME$; " "; DATE$
235.         LOOP
236.         GOTO 1
237.     END IF
238.     CLS
239.     host = _OPENCLIENT("TCP/IP:" + STR$(port) + ":" + address$)
240.     IF host = 0 THEN
241.         LOCATE 6, 1: PRINT "No host found at "; address$; " on port "; port;
242.         END
243.     END IF
244.  
245.     LOCATE 6, 1: PRINT "Host found at "; address$; " on port "; port;
246.  
247.     'read file into memory:
248.     fileHandle = FREEFILE
249.     OPEN fileName$ FOR BINARY AS #fileHandle
250.     fileContents$ = SPACE$(LOF(fileHandle))
251.     GET #fileHandle, 1, fileContents$
252.     CLOSE #fileHandle
253.  
254.     'send file:
255.     fileContents$ = fileName$ + "<CONTENTS>" + fileContents$ + endMarker$
256.     'fileContents$ = fileContents$ + endMarker$
257.     PUT #host, , fileContents$
258.     LOCATE 13, 1
259.     PRINT fileName$ + ", Transfered"
260.     PRINT LEN(fileContents$) - LEN(endMarker$); " bytes sent"
261.     PRINT "Tranfer complete,"
262.     PRINT "closing connections...": CLOSE
263.     PRINT "Press any key to continue to menu"
264.     choice$ = ""
265.     DO WHILE INKEY$ = ""
266.         choice$ = UCASE$(INKEY$)
267.         t = t + 1
268.         IF t = 400000 THEN choice$ = "3": EXIT DO
269.         IF choice$ <> "" THEN EXIT DO
270.         LOCATE 3, 15: PRINT TIME$; " "; DATE$
271.     LOOP
272.     GOTO 1
273.  
274.     54
275.     LOCATE 17, 1:
276.     PRINT "closing connections..."
277.     CLOSE
278.  
279. END SUB
280.  
281. SUB Select_Printer
282.     CLS
283.     COLOR 15, 0
284.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
285.     DIM impresora(50) AS STRING
286.     OPEN "I", 10, "impresora.txt"
287.     n% = 0
288.     LINE INPUT #10, dato$
289.     DO
290.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
291.         IF EOF(10) THEN EXIT DO
292.         n% = n% + 1
293.         DO
294.             a% = INSTR(dato$, CHR$(0))
295.             IF a% = 0 THEN EXIT DO
296.             IF a% = 1 THEN
297.                 dato$ = MID$(dato$, a% + 1)
298.             ELSEIF a% = LEN(dato$) THEN
299.                 dato$ = LEFT$(dato$, a% - 1)
300.             ELSE
301.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
302.             END IF
303.         LOOP
304.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
305.         IF a% <> 0 THEN
306.             MID$(dato$, a%, 5) = SPACE$(5)
307.             dato$ = LTRIM$(RTRIM$(dato$))
308.         END IF
309.         IF b% <> 0 THEN
310.             MID$(dato$, b%, 5) = SPACE$(4)
311.             dato$ = LTRIM$(RTRIM$(dato$))
312.             loca% = n%
313.         END IF
314.         impresora(n%) = dato$
315.         impresora(0) = LTRIM$(STR$(n%))
316.     LOOP
317.     COLOR 7, 0
318.     CLS
319.     COLOR 1, 7
320.     LOCATE 8, 20: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
321.     LOCATE 9, 20: PRINT "º                                        º"
322.     LOCATE 10, 20: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
323.     LOCATE 11, 20: PRINT "º                                        º"
324.     LOCATE 12, 20: PRINT "º                                        º"
325.     LOCATE 13, 20: PRINT "º                                        º"
326.     LOCATE 14, 20: PRINT "º                                        º"
327.     LOCATE 15, 20: PRINT "º                                        º"
328.     LOCATE 16, 20: PRINT "ÈÍÍÍÍÍÍÍ<Esc>ÍÍÍÍ<"; CHR$(24); ">Í<"; CHR$(25); ">ÍÍÍÍ<"; CHR$(17); CHR$(217); ">ÍÍÍÍÍÍÍÍͼ"
329.     COLOR 15, 1
330.     LOCATE 9, 21: PRINT "            SELECT PRINTER              ";
331.     COLOR 1, 7
332.     max% = VAL(impresora(0))
333.     GOSUB impridatos
334.     DO
335.         x$ = "": WHILE x$ = "": x$ = INKEY$: WEND
336.         x$ = UCASE$(x$)
337.         x% = ASC(RIGHT$(x$, 1))
338.         SELECT CASE x%
339.             CASE IS = 27
340.                 a$ = "@"
341.                 EXIT DO
342.             CASE IS = 13
343.                 a$ = impresora(loca%)
344.                 EXIT DO
345.             CASE IS = 72: '--Subir
346.                 IF loca% > 1 THEN
347.                     loca% = loca% - 1
348.                     GOSUB impridatos
349.                 END IF
350.             CASE IS = 80: '--Bajar
351.                 IF loca% < max% THEN
352.                     loca% = loca% + 1
353.                     GOSUB impridatos
354.                 END IF
355.         END SELECT
356.     LOOP
357.     COLOR 7, 0
358.     CLS
359.     IF a$ <> "@" THEN
360.         SHELL _HIDE "cmd/c wmic printer where name='" + a$ + "' call setdefaultprinter"
361.         PRINT "Selected printer: "; a$
362.     ELSE
363.         PRINT "The printer has not been modified"
364.     END IF
365.     END
366.  
367.     impridatos:
368.     y% = 1
369.     FOR n% = loca% - 2 TO loca% + 2
370.         IF n% < 1 OR n% > max% THEN
371.             COLOR 1, 7: LOCATE y% + 10, 21: PRINT "                                        "
372.         ELSE
373.             IF n% = loca% THEN COLOR 15, 4 ELSE COLOR 1, 7
374.             LOCATE y% + 10, 21: PRINT "                                        "
375.             LOCATE y% + 10, 21: PRINT LEFT$(impresora(n%), 40)
376.         END IF
377.         y% = y% + 1
378.     NEXT
379.     RETURN
380.  
381. END SUB
382.  
383.  

Host.bas is the auto capture end that runs on another system with out much attention.

Code: QB64: [Select]

1. 'host - waits for connection and receives file
2.  
3. endMarker$ = CHR$(26) + "<END>" 'CHR$(26) + "<END>" is arbitraty. You can choose another ending marker.
4. port = 1234
5. host = _OPENHOST("TCP/IP:" + STR$(port))
6. IF host = 0 THEN
7.     PRINT "Opening port "; port; " failed."
8.     END
9. END IF
10. 1
11. COLOR 15, 6: CLS
12. LOCATE 6, 1: PRINT "Host started. Waiting for a client on port "; port; "..."
13. LOCATE 13, 1: PRINT "Thanks for the help from FellippeHeitor who contributed the majority of the file transfer code"
14. LOCATE 13, 1: PRINT "Thanks also for the help from Coder_Hunter who has helped iwht bits of the transfer code section also"
15. LOCATE 25, 1: PRINT "Press the <esc> to stop"
16.  
17. DO
18.     LOCATE 4, 15: PRINT TIME$; " "; DATE$
19.     IF INKEY$ = CHR$(27) THEN EXIT DO
20.     client = _OPENCONNECTION(host)
21.     IF client THEN
22.         'a client connected; get data until EOF() then close
23.         LOCATE 6, 1: COLOR 15, 8: PRINT "waiting for data... ";
24.         receivedFile$ = ""
25.         DO
26.             IF INKEY$ = CHR$(27) THEN EXIT DO
27.             countloop = countloop + 1: IF countloop = 10000 THEN PRINT "Exiting due to excessive loops": EXIT DO
28.             GET client, , incoming$
29.             receivedFile$ = receivedFile$ + incoming$
30.             'LOOP UNTIL INSTR(incoming$, endMarker$) > 0
31.         LOOP UNTIL RIGHT$(incoming$, 6) = endMarker$
32.         CLOSE client
33.         client = 0
34.         fileName$ = LEFT$(receivedFile$, INSTR(receivedFile$, "<CONTENTS>") - 1)
35.         PRINT fileName$
36.         receivedFile$ = LEFT$(receivedFile$, INSTR(receivedFile$, endMarker$) - 1)
37.         LOCATE 7, 1: COLOR 15, 8: PRINT LEN(receivedFile$); " bytes received."
38.         'IF fileName$ = "" THEN INPUT "File name to save: ", fileName$
39.  
40.         IF LEN(fileName$) THEN
41.             fileHandle = FREEFILE
42.             OPEN fileName$ FOR BINARY AS #fileHandle
43.             PUT #fileHandle, 1, receivedFile$
44.             CLOSE #fileHandle
45.             LOCATE 8, 1: COLOR 15, 8: PRINT "Saved as "; fileName$; TIME$; DATE$
46.         ELSE
47.             LOCATE 8, 1: COLOR 15, 8: PRINT "canceled; received data discarded."; TIME$; DATE$
48.         END IF
49.         LOCATE 5, 1: COLOR 15, 8: PRINT "Waiting for a new client...": COLOR 15, 6: GOTO 1
50.     END IF
51.     _LIMIT 30
52. LOOP UNTIL _EXIT
53. 999
54. LOCATE 10, 1: COLOR 7, 1: PRINT "closing connections..."
55. CLOSE
56. SYSTEM
57.  

Seems to have fixed the transfer and added a few default loops to break a long pause.

Logger still seems to have issues with keypress choices for file selection.
Selecting might work on the first press or after 3 or 4.
It is getting better,
The next piece will combine the new file with a master file.

Text Only | Text with Attachments