Sub Globals
End Sub
Sub App_Start
Form1.Show
rapi.New1
rapi.Connect
End Sub
Sub Rapi_Connected
Msgbox("connected")
If rapi.DeviceFileExists("\My Documents\a.exe") = true Then
Msgbox("file exists")
rapi.CopyFileFromDevice1("\My Documents\a.exe",AppPath)
End If
End Sub
It is not possible with the RAPI library.
You can use the Network library to send the file.
You could try running the transfer on a thread using my Threading library. If you are not familiar with threading read the help carefully to avoid coding in problems for yourself.Is there something I can do with RAPI Library to make it not lock the application
There shouldn't be any problem as you have a two-way communucation channel between the client and server. You just need to write the code for both the server and client to implement this.or something I can do with the Network Library to make the transfer bi-directional?
Can the server send data back in the same way?
Sub App_Start
'...
Server.New1(50000)
Server.Start
Client.New1
TimerWFC.Enabled=True
'...
End Sub
Sub TimerWFC_Tick
If Server.Pending=True Then
Client.Value=Server.Accept
Stream.New1(Client.GetStream,False)
TimerWFC.Enabled=False
TimerWFD.Enabled=True
End If
End Sub
Sub TimerWFD_Tick
If Client.DataAvailable=True Then
Variable=Stream.ReadString
End If
End Sub
...
Stream.WriteString("ASCII Text")
...
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?