使用RAPI2
将文件从PC发送到远程设备。
当使用没有Threads
的行时,它工作正常:
RemoteFile.CopyFileToDevice(PdtRemoteDevice, "C:sample.txt", "testsample.txt", True)
但是当我尝试将该行放在Thread
内时,它会返回设备未连接的错误。
如何使用 RAPI2
的CopyFileToDevice
使用线程?
不使用Thread
会使应用程序看起来像挂起。因此,我认为用户不会欣赏一个会说没有响应的应用程序。
我的代码:
Imports System.Devices
Imports System.Devices.RemoteDeviceManager
Public Class FormHome
Dim PdtRemoteDevice As RemoteDevice
Dim Devicemanager As New RemoteDeviceManager
Private Sub ButtonHomeCopyToDevice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHomeCopyToDevice.Click
PdtRemoteDevice = Devicemanager.Devices.FirstConnectedDevice
If PdtRemoteDevice Is Nothing Then
MessageBox.Show("No Device Connected, Please Try Again")
Exit Sub
Else
Dim Th As Thread
Th = New Thread(AddressOf UploadDatabase)
Th.IsBackground = True
Th.Start()
End If
End Sub
Private Sub UploadDatabase()
Using PdtRemoteDevice = Devicemanager.Devices.FirstConnectedDevice
If Not (PdtRemoteDevice Is Nothing) Then
RemoteFile.CopyFileToDevice(PdtRemoteDevice, "C:sample.txt", "testsample.txt", True)
End If
End Using
End Sub
End Class
试试这个,让我知道它是否有效:
Private Sub UploadDatabase()
Using rdm As New RemoteDeviceManager
Using d As RemoteDevice = rdm.Devices.FirstConnectedDevice
If Not (d Is Nothing) Then
RemoteFile.CopyFileToDevice( _
d, "C:sample.txt", "testsample.txt", True)
End If
End Using
End Using
End Sub
创建一个表单,添加 RAPI2 库作为引用,然后添加两个按钮和以下代码:
Imports System.Devices
Imports System.Devices.RemoteDeviceManager
Imports System.Devices.RemoteDevice
Imports System.Devices.RemoteFile
Public Class Form1
Dim dev As RemoteDevice
Dim mgr As New System.Devices.RemoteDeviceManager
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
dev = mgr.Devices.FirstConnectedDevice
If dev Is Nothing Then
MsgBox("No device connected")
Else
MsgBox("Connected to: " & dev.Name)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim RAPIfile As RemoteFile
dev = mgr.Devices.FirstConnectedDevice
Try
RAPIfile.CopyFileToDevice(dev, "C:temptest1.txt", "ApplicationInventorytest1.txt", True)
Catch
MsgBox("error")
End Try
RAPIfile = Nothing
End Sub
End Class