Real time LAN file swapping buffer between JB apps

[Enzo]

Having major problems

tinypng.com/web/output/bc5kp62bryyw31cz9tu7ytzgvgm3rfq9/Screenshot%20from%202021-05-30%2023-22-45.png

Doesnt seem to register a file I've called out

global command, clientcount, pid
global file$, Default$, pid$, closed$, looping, footer$, header$, closed$, space$, upload$, closefile$, filen$, fileaname$, path$ 'open$ would be null / i.e. reset
set = 3
Default$ = DefaultDir$+"\folder\"
link$ = "null"
fileextension$ = "txt"
est$ ="."+fileextension$
filen$ = link$
clientsamount$ = str$(set)
clientcount = set
footer$ = "AB"
dataloading = time$("ms")
dim pid$(10)
pid$(1) = "A"
pid$(2) =  "B"
pid$(3) =  "C"
header$ = est$
closed$ = "closed"
space$ = " "
print "loading test null pagefile list"
for looping = 1 to set
string$=pid$(ooping)
open Default$+string$+footer$+est$ for output as #handle
print #handle, "data"
close #handle
string$=pid$(looping)
open Default$ + string$+est$ for output as #handle
print #handle, "data"
close #handle
next looping
print "done."
print "prefetch"

[reset]
if fileExists(Default$, link$+est$) then
print "Server file found,"
print ""
print "..."
print "test start server clients"
else
open link$+est$ for output as #main
print #main, clientsamount$
close #main
end if

[MAINserver]

dim arrayinfo$(10) 'max clients
'setup constants


print "done."
print "startingservernow"
print "."
print ".."
print "done,"
dataload = time$("ms")
print "started in;";dataload-dataloading
print "-------------------"
timer 1000, [serverloop]
wait
[serverloop] 'get current player count
timer 0
startloop = time$("ms")
if fileExists(Default$, link$+header$) then 'if fileclientcount > 0 (exists) then
command$ = renamefileclosed$(Default$, pid$, closed$, header$, filen$, closefile$, link$, filename$) 'rename to not allow anyone else to open
if reloop = 1 then
reloop = 0
goto [serverloop]
end if
rename = time$("ms")
clientcount$=openfileclient$(Default$,pid$, header$, filen$)  'open and read client count for current loop

command$ = renamefileopen$(Default$, pid$,closed$, header$, filen$, closefile$, filename$) 'once file is closed rename back to allow to be opened
print time$("ms") -rename;"rename file loop in ms"
else
goto [serverloop]
end if

[looppid] 'download clients upload
startpid = time$("ms")

for pid = 1 to clientcount 'loop all saved pid files
startpid2 = time$("ms")
pid$ =pid$(pid)
if fileExists(Default$, pid$+header$) then 'if fileclientcount > 0 (exists) then   / else reloop if file is being edited
command$ = renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$, filename$) 'rename to not allow anyone else to open
if reloop = 1 then
reloop = 0
start = pid
goto [loopid]
end if
  array$ = openfile$(pid,header$) 'open each pid load into array
arrayinfo$(pid) = array$
command$ = renamefileopen$(Default$, pid$,closed$, header$, file$, closefile$, filename$) 'once file is closed rename back to allow to be opened
'if reloop = 2 then
'null=null
'notice "err2"
'reloop = 0
'end if
else
goto [looppid] 'reloop if file is being edited
end if
if pid = set then
print "LOOP"
END IF
next pid
[uploadforclientdownload]
startpid2 = time$("ms")
for pid = 1 to clientcount 'now loop all pid
pid$ = pid$(pid)
print time$("ms")-startpid2
if fileExists(Default$, pid$+header$) then 'if fileclientcount > 0 (exists) then  /  else reloop if files are being read
command$= renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$, filename$) 'rename to not allow anyone else to open
open str$(pid)+footer$+header$ for output as #2pid
for pid2 = 1 to clientcount
 upload$ =arrayinfo$(pid)
 print #2pid, str$(pid)+space$+upload$
next pid2
close #2pid
command$ = renamefileopen$(Default$, pid$, closed$, header$, file$, closefile$, filename$) 'once file is closed rename back to allow to be opened
else
goto [uploadforclientdownload] 'reloop if file is being read to not skip protocol
end if
print time$("ms")-startpid2;" file loaded"
if pid = set then
print "LOOOP"
END IF
next pid

print time$("ms") - startpid; " looped all files in total of in ms"
print time$("ms")-startloop;" server loop entirely of 17 ms pause and latter d/u w/r status in ms"; startloop- startpid ;" / ";startpid2-time$("ms")
startpid= 0
startpid= 0
startpid= 0
startloop= 0


timer 20, [serverloop]


print "LOOP"
wait

'/------------Functions
'-----------------------------------------------------------------------------------------

function openfile$(pid, header$)
pid$=pid$(pid)+header$
   open pid$ for input as #pid
   input #pid, info$
   close #pid
   openfile = val(info$)
   info$ = ""
end function

function openfileclient$(Default$, pid$, header$, filen$)
filen$=Default$+pid$
  'pen filen$ for input as #clientcount
'   input #clientcount, count$
  ' close #clientcount
   openfile = val(count$)
  openfile =3
end function

function renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$, link$, filename$)
file$ = Default$ + pid$ + filen$ + header$
closefile$ = pid$ + closed$ + header$

closefile$ =""
files$=""
file$=""
fileb$=""
end function

function renamefileopen$(Default$, pid$, closed$, header$,file$,closefile$, filename$)
'Default$  pid$ .txt
file$ = Default$ + pid$+ filen$+closed$+ header$
closefile$ = pid$ + header$

closefile$ =""
files$=""
file$=""
fileb$=""
end function

function fileExists(Default$, filename$)
 dim info$(0, 0)
 files Default$, filename$, info$()
 fileExists = val(info$(0, 0)) 'non zero is true
 if fileExists > 0 then
 print "null"
 else
 print "non-null error"
end if
end function

[Rod]

I have not been able to run the code or set up the directory structures and files you use. But since the file clearly exists I think you will find it is the OS that is blocking access. Either because you dont have permission to accesss the file area or more likely that the file is held open for writting by another thread or application. I see you have the file open in a text editor app bottom right of the image.

You can open the file multiple times to read it but only one app can write to a file at any time. So your software needs to be ready for the the file to be locked and unavailable. Onerror should trap the event and you will need to try again later.

Explore err$ the system variable filled when an error occurs, or check the error.log to see why the system denied access.

[Enzo]

EDITED: Error was in file name not completed?

[Enzo]

Another thing you said file can be read multiple times, but only one program can write at a time; is this true for JB apps?

Also,

NAME a$ AS b$

NAME StringExpr1 AS StringExpr2

Description:

This command renames the file specified in the string expression StringExpr1 to StringExpr2. StringExpr1 can represent any valid filename that is not a read-only file, and StringExpr2 can be any valid filename as long as it doesn't specify a file that already exists.

Usage:

'rename the old file as a backup
name rootFileName$ + ".fre" as rootFileName$ + ".bak"
'open a new file and write data
open rootFileName$ + ".fre" for output as #disk

Says function NAME can in fact rename a file as long as filename doesn't already exist and for my function use I would rename another file to look for the buffer area allowing file to be opened, renaming it back after, when its designated paired-info-file is closed. Preventing against any errors, thoughts on this rather then keeping one file and naming it differently? In theory it allows for double maybe twice over that for errors, but gives prevention against opening the same file and erroring out the application(s), trying to make this bug proof until a long run is done and on error goto can be used for further prevention like retrying loops in correct order, that might just give lag instead of erroring out all applications involved.

Another threading option is to have multiple files for each user and toggle through them in a scan seek parse as such. With a different file for each part of the main loop (1000ms) of client, should be able to space out enough time that it follows latter logic by a rename when not in use or ready to be used, say 4 toggle files per user, and look for a extension that .open or .closed will go in order from 1-3. One file per loop 250ms loops.

Basically the server exchanges data into a output file from input by client renames file to .closed while, from output client to server input then output as renamed as .open.

[Rod]

You will need to experiment but you may find that the original problem persists. The file you are copying with name may be llocked.

[Enzo]

Neither client nor server will be accessing the same file name only writing too; , .

[Enzo]

global command, clientcount, pid
global file$, Default$, pid$, closed$, looping, footer$, header$, closed$, space$, upload$, closefile$, link$, fileaname$, path$ 'open$ would be null / i.e. reset
set = 2
Default$ = DefaultDir$+"\folder\"
link$ = "null"
fileextension$ = "txt"
est$ ="."+fileextension$

clientsamount$ = str$(set)
clientcount = set
footer$ = "AB"
string$ = link$+est$
dataloading = time$("ms")
dim pid$(10)
pid$(1) = "1"
pid$(2) =  "2"
pid$(3) =  "3"
header$ = est$
closed$ = "closed"
space$ = " "
print "loading test null pagefile list"
for looping = 1 to set
string$=pid$(looping)
print Default$+string$+footer$+est$
open Default$+string$+footer$+est$ for output as #handle
print #handle, "data"
close #handle
string$=pid$(looping)
open Default$ + string$+est$ for output as #handle
print #handle, "data"
close #handle
next looping
print "done."
print "prefetch"

[reset]
if fileExists(Default$, link$) then
print "Server file found,"
print ""
print "..."
print "test start server clients"
else
open link$ for output as #main
print #main, clientsamount$
close #main
end if

[MAINserver]

dim arrayinfo$(10) 'max clients
'setup constants


print "done."
print "startingservernow"
print "."
print ".."
print "done,"
dataload = time$("ms")
print "started in;";dataload-dataloading
print "-------------------"
timer 1000, [serverloop]
wait
[serverloop] 'get current player count
timer 0
startloop = time$("ms")
if fileExists(Default$, "null"+est$) then 'if fileclientcount > 0 (exists) then
command$ = renamefileclosed$(Default$, pid$, closed$, header$, link$, closefile$, link$, filename$) 'rename to not allow anyone else to open
if reloop = 1 then
reloop = 0
goto [serverloop]
end if
rename = time$("ms")
clientcount$=openfileclient$(Default$,pid$, header$, link$)  'open and read client count for current loop

command$ = renamefileopen$(Default$, pid$,closed$, header$, link$, closefile$, filename$) 'once file is closed rename back to allow to be opened
print time$("ms") -rename;"rename file loop in ms"
else
goto [serverloop]
end if

[looppid] 'download clients upload
startpid = time$("ms")

for pid = 1 to clientcount 'loop all saved pid files
startpid2 = time$("ms")
pid$ =pid$(pid)
if fileExists(Default$, pid$+est$) then 'if fileclientcount > 0 (exists) then   / else reloop if file is being edited
command$ = renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$, filename$) 'rename to not allow anyone else to open
if reloop = 1 then
reloop = 0
start = pid
goto [loopid]
end if
  'array$ = openfile$(pid,header$) 'open each pid load into array
      open pid$+footer$+est$ for input as #pid
   input #pid, info$
   close #pid
   array$ = info$
   info$ = ""
arrayinfo$(pid) = array$
command$ = renamefileopen$(Default$, pid$,closed$, header$, file$, closefile$, filename$) 'once file is closed rename back to allow to be opened
'if reloop = 2 then
'null=null
'notice "err2"
'reloop = 0
'end if
else
goto [looppid] 'reloop if file is being edited
end if
if pid = set then
print "LOOP"
END IF
next pid
[uploadforclientdownload]
startpid2 = time$("ms")
for pid = 1 to clientcount 'now loop all pid
pid$ = pid$(pid)
print time$("ms")-startpid2
if fileExists(Default$, pid$+est$) then 'if fileclientcount > 0 (exists) then  /  else reloop if files are being read
command$= renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$, filename$) 'rename to not allow anyone else to open
open str$(pid)+footer$+header$ for output as #2pid
for pid2 = 1 to clientcount
 upload$ =arrayinfo$(pid)
 print #2pid, str$(pid)+space$+upload$
next pid2
close #2pid
command$ = renamefileopen$(Default$, pid$, closed$, header$, file$, closefile$, filename$) 'once file is closed rename back to allow to be opened
else
goto [uploadforclientdownload] 'reloop if file is being read to not skip protocol
end if
print time$("ms")-startpid2;" file loaded"
if pid = set then
print "LOOOP"
END IF
next pid

print time$("ms") - startpid; " looped all files in total of in ms"
print time$("ms")-startloop;" server loop entirely of 17 ms pause and latter d/u w/r status in ms"; startloop- startpid ;" / ";startpid2-time$("ms")
startpid= 0
startpid= 0
startpid= 0
startloop= 0


timer 20, [serverloop]


print "LOOP"
wait

'/------------Functions
'-----------------------------------------------------------------------------------------

function openfile$(pid, header$)
'pid$=pid$(pid)+header$
   open pid$ for input as #pid
   input #pid, info$
   close #pid
   openfile = val(info$)
   info$ = ""
end function

function openfileclient$(Default$, pid$, header$, link$)
link$=Default$+pid$
  'pen link$ for input as #clientcount
'   input #clientcount, count$
  ' close #clientcount
   openfile = val(count$)
  openfile =3
end function

function renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$, link$, lfilename$)
file$ = Default$ + pid$ + link$ + header$
closefile$ = pid$ + closed$ + header$

closefile$ =""
files$=""
file$=""
fileb$=""
end function

function renamefileopen$(Default$, pid$, closed$, header$,file$,closefile$, filename$)
'Default$  pid$ .txt
file$ = Default$ + pid$+ link$+closed$+ header$
closefile$ = pid$ + header$

closefile$ =""
files$=""
file$=""
fileb$=""
end function

function fileExists(Default$, filename$)
 dim info$(0, 0)
 files Default$, filename$, info$()
 fileExists = val(info$(0, 0)) 'non zero is true
 if fileExists > 0 then
 print "null"
 else
 print "non-null error"
end if
filename$ = ""
end function

What I have so far, no file writing yet, seems whenever I lose a code it takes longer to reproduce