You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.5 KiB
55 lines
1.5 KiB
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports System.Text
|
|
Imports Microsoft.VisualBasic.ComputingServices.FileSystem.Protocols
|
|
Imports Microsoft.VisualBasic.FileIO
|
|
Imports Microsoft.VisualBasic.Net
|
|
Imports Microsoft.VisualBasic.Net.Protocols
|
|
|
|
Namespace FileSystem.IO
|
|
|
|
''' <summary>
|
|
''' <see cref="System.IO.FileStream"/><see cref="System.IO.StreamWriter"/>
|
|
''' </summary>
|
|
Public MustInherit Class BaseStream : Inherits Stream
|
|
Implements IDisposable
|
|
|
|
Dim _FileSystem As IPEndPoint
|
|
|
|
''' <summary>
|
|
''' 远端机器上面的文件系统的访问入口点
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
Public Property FileSystem As IPEndPoint
|
|
Get
|
|
Return _FileSystem
|
|
End Get
|
|
Protected Set(value As IPEndPoint)
|
|
_FileSystem = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
Sub New(remote As FileSystem)
|
|
FileSystem = remote.Portal
|
|
End Sub
|
|
|
|
Sub New(remote As IPEndPoint)
|
|
FileSystem = remote
|
|
End Sub
|
|
|
|
Sub New(remote As String, port As Integer)
|
|
Call Me.New(New IPEndPoint(remote, port))
|
|
End Sub
|
|
|
|
Sub New(remote As System.Net.IPEndPoint)
|
|
Call Me.New(New IPEndPoint(remote))
|
|
End Sub
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return FileSystem.ToString
|
|
End Function
|
|
End Class
|
|
End Namespace |