Dag allemaal,
ik ben een programma aan het maken om gegevens te kopiëren naar een mobile device. Zonder threading werkt dit perfect via RAPI2, maar vermits ik vrij grote files kopieer lijkt het soms of mijn programma 'freezed'
De belangrijkste lijnen code, dit is een vb van gewoon een create directory:
zoals gezegd werkt dit op zich wel, al leek het mij (met mijn beperkte kennis) beter om threading toe te passen, zodat ik bv een progress bar kan laten lopen zolang de verwerking bezig is..
Mijn idee was:
Bij het uitvoeren van dit programma krijg ik de melding: Interface not registred, vermits hij volgens mij in de thread geen verbinding heeft met dit remotedevice..
Iemand die me een duwtje in de rug kan geven voor een oplossing? Moet daarom niet met threading, zolang de gebruiker maar niet de indruk heeft dat het programma vast loopt
Alvast bedankt!
ik ben een programma aan het maken om gegevens te kopiëren naar een mobile device. Zonder threading werkt dit perfect via RAPI2, maar vermits ik vrij grote files kopieer lijkt het soms of mijn programma 'freezed'
De belangrijkste lijnen code, dit is een vb van gewoon een create directory:
code:
10
11
12
13
| Public dev As RemoteDevice Public mgr As New RemoteDeviceManager dev = mgr.Devices.FirstConnectedDevice createDirectoryOnDevice("\Application\Testing") |
code:
10
11
12
13
14
15
16
17
| Private Sub createDirectoryOnDevice(ByVal dir As String) If Not RemoteDirectory.Exists(dev, dir) Then RemoteDirectory.CreateDirectory(dev, dir) lvStatus.Items.Add(dir.Substring(dir.LastIndexOf("\") + 1) + " directory created") Else lvStatus.Items.Add(dir.Substring(dir.LastIndexOf("\") + 1) + " directory already exists") End If End Sub |
zoals gezegd werkt dit op zich wel, al leek het mij (met mijn beperkte kennis) beter om threading toe te passen, zodat ik bv een progress bar kan laten lopen zolang de verwerking bezig is..
Mijn idee was:
code:
10
11
12
13
14
| Dim obj(1) As Object obj(0) = dev obj(1) = "\Application\Testing" Dim createdir As New Thread(AddressOf createDirectoryOnDevice) createdir.Start(obj) |
code:
10
11
12
13
14
15
16
17
18
19
20
| Private Sub createDirectoryOnDevice(ByVal objdir As Object) Dim device As RemoteDevice = objdir(0) Dim dir As String = objdir(1) If Not RemoteDirectory.Exists(device, dir) Then RemoteDirectory.CreateDirectory(device, dir) lvStatus.Items.Add(dir.Substring(dir.LastIndexOf("\") + 1) + " directory created") Else lvStatus.Items.Add(dir.Substring(dir.LastIndexOf("\") + 1) + " directory already exists") End If End Sub |
Bij het uitvoeren van dit programma krijg ik de melding: Interface not registred, vermits hij volgens mij in de thread geen verbinding heeft met dit remotedevice..
Iemand die me een duwtje in de rug kan geven voor een oplossing? Moet daarom niet met threading, zolang de gebruiker maar niet de indruk heeft dat het programma vast loopt
Alvast bedankt!