Vb.net 使用线程将文件从PC移动到远程设备

使用

RAPI2

将文件从PC发送到远程设备

使用不带

线程的行时，它可以正常工作：

RemoteFile.CopyFileToDevice(PdtRemoteDevice, "C:\sample.txt", "\test\sample.txt", True)

但是，当我尝试将该行放在
线程中时，它返回一个错误，即设备未连接

如何使用线程使用
RAPI2
的
CopyFileToDevice

不使用
线程
将使应用程序看起来像挂起了一样。所以，我不认为用户会喜欢一个会说没有响应的应用程序

我的代码：

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", "\test\sample.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", "\test\sample.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:\temp\test1.txt", "\Application\Inventory\test1.txt", True)
        Catch
            MsgBox("error")
        End Try

        RAPIfile = Nothing

    End Sub

End Class

您需要发布与此问题相关的其余代码。我们应该有一组最小但完整的代码可以使用。错误作为新的RemoteDeviceManager返回到
rdm。它说，
InvalidCastException没有被用户代码处理。它还说
指定的强制转换无效。
@jaa2013-我无法测试代码，但您应该自己调试。我要做的是实例化新线程中的所有对象，而不是引入任何跨线程问题。