利用remoting实现文件传输

因为工作需要写了一个文件传输的东东
使用了System.Runtime.Remoting
客户端接口类：
Namespace Nail.Net.Remoting.Trans
      Public Interface iTransFile
     Function SendFile(ByVal FileName As String, ByVal bytes() As Byte, ByVal ClientCrc As Integer) As Integer
     Function CompareFile(ByVal FileName As String, ByVal ClientCrc As Integer) As Boolean
     Function GetFileDet(ByVal FileName As String) As Integer
     Function GetFileInfo(ByVal FileName As String) As Byte()
     Function GetFileInfo(ByVal FileName As String, ByVal Length As Integer) As Byte()
     Function GetFileInfo(ByVal FileName As String, ByVal Point As Integer, ByVal Length As Integer) As Byte()
     Property ServerTransSaveFilePath() As String
     Property ServerTempFilePath() As String
      End Interface
End Namespace
客户端类：（文件传输的实现在此）（包含1个窗体 后面窗体代码我会贴出来）（请添加引用System.Runtime.Remoting .net默认是不引用的 服务器端类同样）
Imports System.Runtime
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.IO
Imports System.Threading
Namespace Nail.Net.Remoting.Client
      Public Class FileTransClient
     Private TransTempSize As Integer