Help with a Simple file transfer from a client to the host to send 2 text files.

[Petr]

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.

[Chris80194]

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.

[Chris80194]

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

[Chris80194]

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.

[Chris80194]

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.