NSDSocket_File メンバ

ファイル送受信用クラス。


●コンストラクタ

名前 説明
NSDSocket_File NSDSocket_Fileを初期化します。

●プロパティの一覧

名前 説明
ServerCurrentFolder サーバーのカレントフォルダーを返します。
ErrNo エラー番号を返します。

●メソッドの一覧

名前 引数 戻り値 説明
Dispose なし なし リソースの解放を行います。
※終了時に必ず呼び出します。
GetServerFileInfo ( NSDReceive , String , EventHandler ) Boolean型 サーバーのファイル情報を取得します。
( NSDReceive , String , EventHandler , EventHandler ) Boolean型 サーバーのファイル情報を取得します。
IsGetFInfo ( NSDReceive ) Boolean型 ファイル情報の取得中かを返します。
GetServerCurrentFolder ( NSDReceive , EventHandler ) Boolean型 サーバーのカレントフォルダーを取得します。
( NSDReceive , String ) Boolean型 サーバーのカレントフォルダーを取得します。
IsGetServerCurrentFolder ( NSDReceive ) Boolean型 カレントフォルダーの取得中かを返します。
DeleteFile ( NSDReceive , String ) Boolean型 ファイルを削除します。
UploadFile ( NSDReceive , String , EventHandler ) Boolean型 ファイルをサーバーにアップロードします。
( NSDReceive , String , EventHandler , EventHandler ) Boolean型 ファイルをサーバーにアップロードします。
StopUploadFile なし なし ファイルのアップロードを中止します。
IsUpload ( NSDReceive ) Boolean型 アップロード中かを返します。
DownloadFile ( NSDReceive , String , String , EventHandler ) Boolean型 サーバーからファイルをダウンロードします。
( NSDReceive , String , String , EventHandler , EventHandler ) Boolean型 サーバーからファイルをダウンロードします。
( NSDReceive , String , String , EventHandler , EventHandler , EventHandler ) Boolean型 サーバーからファイルをダウンロードします。
StopDownloadFile なし なし ファイルのダウンロードを中止します。
IsDownload ( NSDReceive ) なし ダウンロード中かを返します。
GetEndMsg ( NSDSOCKET_ERR ) String 終了メッセージを返します。
IsRun ( NSDReceive ) Boolean型 実行中かを返します。
( NSDReceive , NSD_FILE_MODE ) Boolean型 実行中かを返します。

●イベントの一覧

名前 引数 戻り値 説明
Run_GetFInfo ( Object, NSDSocketFileFolderListEventArgs ) なし データ受信後ファイルまたはフォルダーの取得毎に発生します。
End_GetFInfo ( Object, NSDSocketFileFolderListEventArgs ) なし ファイル情報の取得終了時に発生します。
End_GetCurrentFolder ( Object, NSDSocketCurrentFolderEventArgs ) なし カレントフォルダーの取得終了時に発生します。
Run_UploadFile ( Object, NSDSocketFileEventArgs ) なし アップロードデータの送信中に発生します。
End_UploadFile ( Object, NSDSocketFileEventArgs ) なし アップロード終了時に発生します。
Start_DownloadFile ( Object, NSDSocketFileEventArgs ) なし ダウンロード開始時に発生します。
Run_DownloadFile ( Object, NSDSocketFileEventArgs ) なし ダウンロード中に発生します。
End_DownloadFile ( Object, NSDSocketFileEventArgs ) なし ダウンロード終了時に発生します。

●データ用クラスの一覧

名前:NSDSocketFileInfo

構文:

Public Class NSDSocketFileInfo
    Public Attributes As FileAttribute = FileAttribute.Normal
    Public Length As UInt64 = 0
    Public CreationTime As DateTime = Nothing
    Public CreationTimeUtc As DateTime = Nothing
    Public LastWriteTime As DateTime = Nothing
    Public LastWriteTimeUtc As DateTime = Nothing
    Public Name As String = Nothing
End Class

内容:ファイル、フォルダー情報。

名前 説明
Attributes FileAttribute 属性。(既定値:FileAttribute.Normal)
Length UInt64 サイズ。(既定値:0)
CreationTime DateTime 作成日(ローカル時刻)。(既定値:Nothing)
CreationTimeUtc DateTime 作成日(標準時刻)。(既定値:Nothing)
LastWriteTime DateTime 最終更新日(ローカル時刻)。(既定値:Nothing)
LastWriteTimeUtc DateTime 最終更新日(標準時刻)。(既定値:Nothing)
Name String ファイル名。(既定値:Nothing)

●定数の一覧

名前:NSDSOCKET_ERR (エラー定数)
名前 内容
NoErr エラーなし。
NotOpenDataSocekt データ用ソケットがオープンできません。
NotListenDataSocekt データ用ソケットが待機待ちにできません。
NotChangeFileMode ファイルモードに変更できません。
NotLogin ログインできません。
NotPassword パスワードが違います。
NotWriteAuthority 書き込み権限がありません。
NotReadAuthority 読込権限がありません。
NotOverWriteAuthority 上書き権限がありません。
NotDeleteAuthority 削除権限がありません。
UnKnownUser ユーザーが不明です。
LackOfSpaceCapacity 空き容量が不足しています。
NotFileInfo ファイル情報が不明です。
NotFoundFolder フォルダーが見つかりません。
NotFoundFile ファイルが見つかりません。
NotChangeGetFInfoMode ファイル情報取得モードにできません。
NotGetFInfo ファイル情報が取得できません。
StopGetFInfo ファイル情報の取得を中止しました。
NotChangeDeleteFileMode ファイル削除モードにできません。
NotDeleteFile ファイル削除ができません。
StopDeleteFile ファイル削除を中止しました。
NotChangeFileUploadMode ファイルアップロードモードにできません。
NotUpload アップロードできません。
StopUpload アップロードを中止しました。
NotChangeFileDownloadMode ファイルダウンロードモードにできません。
NotDownload ダウンロードできません。
StopDownload ダウンロードを中止しました。
TimeOutErr タイムアウトエラー。
UnKnownErr 不明なエラー。

●NSDSocket_Fileコンストラクタの説明

構文:Public Sub New()

使用法:Dim Cls_SFile As New NSDSocket.NSDSocket_File

引数:なし。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing
    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub
End Class

●NSDSocket_Fileプロパティの説明

名前:ServerCurrentFolder

構文:Public ReadOnly Property ServerCurrentFolder() As String

機能:サーバーのカレントフォルダーを返します。

引数:なし。

値:String

値の説明:

サーバーのカレントフォルダーを返します。

使用例:

Public Class Form1
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("サーバーのカレントフォルダー:" & Cls_SFile.ServerCurrentFolder())
    End Sub
End Class

 

名前:ErrNo

構文:Public ReadOnly Property ErrNo() As NSDSOCKET_ERR

機能:エラー番号を返します。

引数:なし。

値:NSDSOCKET_ERR

値の説明:

エラー番号を返します。

使用例:

Public Class Form1
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        MsgBox(Cls_SFile.GetEndMsg(Cls_SFile.ErrNo))
            :
    End Sub
End Class

●NSDSocket_Fileメソッドの説明

名前:Dispose

構文:Public Sub Dispose()

機能:リソースの解放を行います。

※終了時に必ず呼び出します。

引数:なし。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing
    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub
End Class

 

名前:GetServerFileInfo

機能:サーバーのファイル情報を取得します。

@サーバーのファイル情報を取得します。

構文:Public Function GetServerFileInfo( Receive , FolderName ,
                                                           ReturnEventsHandler ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
FolderName String 値渡し(ByVal) 情報を取得するサーバーのフォルダーパス名を渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) 終了時に発生するイベント(End_GetFInfo)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのファイル情報を取得します。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.GetServerFileInfo(Cls_Client, "サーバーのフォルダー", _
                                          AddressOf MyClass.End_GetFInfo) Then
            :
        End If
            :
    End Sub

    ' ファイル情報を取得終了。
    Private Sub End_GetFInfo( ByVal sender As System.Object, _
                               ByVal e As NSDSocket.NSDSocket_File._
                                          NSDSocketFileFolderListEventArgs)
         :
    End Sub
End Class

 

Aサーバーのファイル情報を取得します。

構文:Public Function GetServerFileInfo( Receive , FolderName ,
                                                            ReturnEventsHandler , RunEventsHandler ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
FolderName String 値渡し(ByVal) 情報を取得するサーバーのフォルダーパス名を渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) 終了時に発生するイベント(End_GetFInfo)のハンドルを渡します。
RunEventsHandler System.EventHandler 値渡し(ByVal) データ受信後ファイルまたはフォルダーの取得毎に発生するイベント(Run_GetFInfo)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのファイル情報を取得します。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.GetServerFileInfo(Cls_Client, "サーバーのフォルダー", _
                                        AddressOf MyClass.End_GetFInfo , _
                                        AddressOf MyClass.Run_GetFInfo) Then
            :
        End If
            :
    End Sub

    ' ファイル情報を取得終了。
    Private Sub End_GetFInfo( ByVal sender As System.Object, _
                               ByVal e As NSDSocket.NSDSocket_File._
                               NSDSocketFileFolderListEventArgs)
          :
    End Sub

    ' ファイル情報を取得中。
    Private Sub Run_GetFInfo( ByVal sender As System.Object, _
                               ByVal e As NSDSocket.NSDSocket_File._
                               NSDSocketFileFolderListEventArgs)
          :
    End Sub
End Class

 

名前:IsGetFInfo

構文:Public Function IsGetFInfo( Receive ) As Boolean

機能:ファイル情報の取得中かを返します。

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 値渡し(ByVal) 受信情報を渡します。

戻り値:Boolean

戻り値の説明:

True:取得中 False:取得していません。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのファイル情報を取得します。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.GetServerFileInfo(Cls_Client, "サーバーのフォルダー", _
                                       AddressOf MyClass.End_GetFInfo) Then
            :
        End If
            :
    End Sub

    ' ファイル情報を取得終了。
    Private Sub End_GetFInfo( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileFolderListEventArgs)
          :
    End Sub

    Private Sub Button2_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button2.Click
            :
        If Cls_SFile.IsGetFInfo(Cls_Client) Then
          ' 処理中。
        Else
          ' 処理中でありません。
        End If
            :
    End Sub
End Class

 

名前:GetServerCurrentFolder

機能:サーバーのカレントフォルダーを取得します。

@サーバーのカレントフォルダーを取得します。

構文:Public Function GetServerCurrentFolder( Receive , ReturnEventsHandler ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) 終了時に発生するイベント(End_GetCurrentFolder)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのカレントフォルダーを取得します。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.GetServerCurrentFolder(Cls_Client, _
                                             AddressOf MyClass.End_GetCurrentFolder) Then
            :
        End If
            :
    End Sub

    ' サーバーのカレントフォルダーを取得終了。
    Private Sub End_GetCurrentFolder( ByVal sender As System.Object, _
                                       ByVal e As NSDSocket.NSDSocket_File._
                                       NSDSocketFileFolderListEventArgs)
         :
    End Sub
End Class

 

Aサーバーのカレントフォルダーを取得します。

構文:Public Function GetServerCurrentFolder( Receive , CurrentFolder ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
CurrentFolder String 参照渡し(ByRef) カレントフォルダーを返します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのカレントフォルダーを取得します。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        Dim Str_Folder As String = Nothing
        If Cls_SFile.GetServerCurrentFolder(Cls_Client, Str_Folder) Then
            :
        End If
            :
            :
    End Sub
End Class

 

名前:IsGetServerCurrentFolder

構文:Public Function IsGetServerCurrentFolder( Receive ) As Boolean

機能:カレントフォルダーの取得中かを返します。

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 値渡し(ByVal) 受信情報を渡します。

戻り値:Boolean

戻り値の説明:

True:取得中 False:取得していません。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのカレントフォルダーを取得します。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.GetServerCurrentFolder(Cls_Client, AddressOf MyClass.End_GetCurrentFolder) Then
            :
        End If
            :
    End Sub

    ' サーバーのカレントフォルダーを取得終了。
    Private Sub End_GetCurrentFolder( ByVal sender As System.Object, _
                                      ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileFolderListEventArgs)
         :
    End Sub

    ' サーバーのカレントフォルダーを取得中の確認。
    Private Sub Button2_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button2.Click
            :
        If Cls_SFile.IsGetServerCurrentFolder(Cls_Client) Then
          ' 処理中。
        Else
          ' 処理中でありません。
        End If
            :
    End Sub
End Class

 

名前:DeleteFile

構文:Public Function DeleteFile( Receive , FileName ) As Boolean

機能:カレントフォルダーの取得中かを返します。

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
FileName String 値渡し(ByVal) 削除するファイルのパス名を渡します。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' サーバーのファイル削除。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DeleteFile(Cls_Client, "ファイル名") Then
            :
        End If
            :
    End Sub
End Class

 

名前:UploadFile

機能:ファイルをサーバーにアップロードします。

@ファイルをサーバーにアップロードします。

構文:Public Function UploadFile( Receive , FileName , ReturnEventsHandler ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
FileName String 値渡し(ByVal) クライアントファイルのフルパス名を渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) 終了時に発生するイベント(End_UploadFile)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルをサーバーにアップロードします。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.UploadFile(Cls_Client, "ファイル名", _
                                 AddressOf MyClass.End_Upload) Then
            :
        End If
            :
    End Sub

    ' アップロードの終了。
    Private Sub End_Upload( ByVal sender As System.Object, _
                             ByVal e As NSDSocket.NSDSocket_File._
                             NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

Aファイルをサーバーにアップロードします。

構文:Public Function UploadFile( Receive , FileName , ReturnEventsHandler ,
                                                 RunEventsHandler ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
FileName String 値渡し(ByVal) クライアントファイルのフルパス名を渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) 終了時に発生するイベント(End_UploadFile)のハンドルを渡します。
RunEventsHandler System.EventHandler 値渡し(ByVal) データ送信中に発生するイベント(Run_UploadFile)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルをサーバーにアップロードします。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.UploadFile(Cls_Client, "ファイル名", _
                                 AddressOf MyClass.End_Upload, _
                                 AddressOf MyClass.Run_Upload) Then
            :
        End If
            :
    End Sub

    ' アップロードの終了。
    Private Sub End_Upload( ByVal sender As System.Object, _
                             ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' アップロード中。
    Private Sub Run_Upload( ByVal sender As System.Object, _
                             ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

名前:StopUploadFile

構文:Public Sub StopUploadFile()

機能:ファイルのアップロードを中止します。

引数:なし。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルをサーバーにアップロードします。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.UploadFile(Cls_Client, "ファイル名", _
                                AddressOf MyClass.End_Upload, _
                                AddressOf MyClass.Run_Upload) Then
            :
        End If
            :
    End Sub

    ' アップロードの終了。
    Private Sub End_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' アップロード中。
    Private Sub Run_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ’アップロードの中止。
    Private Sub Button2_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button2.Click
            :
        Cls_SFile.StopUploadFile()
            :
    End Sub
End Class

 

名前:IsUpload

構文:Public Function IsUpload( Receive ) As Boolean

機能:アップロード中かを返します。

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 値渡し(ByVal) 受信情報を渡します。

戻り値:Boolean

戻り値の説明:

True:アップロード中 False:アップロードしていません。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルをサーバーにアップロードします。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.UploadFile(Cls_Client, "ファイル名", _
                                AddressOf MyClass.End_Upload, _
                                AddressOf MyClass.Run_Upload) Then
            :
        End If
            :
    End Sub

    ' アップロードの終了。
    Private Sub End_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' アップロード中。
    Private Sub Run_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' アップロード中の確認。
    Private Sub Button2_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button2.Click
            :
        If Cls_SFile.IsUpload(Cls_Client) Then
            :
        End If
    End Sub
End Class

 

名前:DownloadFile

機能:サーバーからファイルをダウンロードします。

@サーバーからファイルをダウンロードします。

構文:Public Function DownloadFile( Receive , ServerFileName , SaveFolder ,
                                                     ReturnEventsHandler) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
ServerFileName String 値渡し(ByVal) サーバーのファイルパス名を渡します。
SaveFolder String 値渡し(ByVal) ダウンロードファイルを保存するクライアントのファイルパス名を渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) ダウンロード終了時に発生するイベント(End_DownloadFile)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルのダウンロード。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DownloadFile(Cls_Client, "ファイル名", "フォルダー名", _
                                   AddressOf MyClass.End_Download) Then
            :
        End If
            :
    End Sub

    ' ダウンロードの終了。
    Private Sub End_Download( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

Aサーバーからファイルをダウンロードします。

構文:Public Function DownloadFile( Receive , ServerFileName , SaveFolder ,
                                                     StartEventsHandler , ReturnEventsHandler) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
ServerFileName String 値渡し(ByVal) サーバーのファイルパス名を渡します。
SaveFolder String 値渡し(ByVal) ダウンロードファイルを保存するクライアントのファイルパス名を渡します。
StartEventsHandler System.EventHandler 値渡し(ByVal) ダウンロード開始時に発生するイベント(Start_DownloadFile)のハンドルを渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) ダウンロード終了時に発生するイベント(End_DownloadFile)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルのダウンロード。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DownloadFile(Cls_Client, "ファイル名", "フォルダー名", _
                                   AddressOf MyClass.Start_Download, _
                                   AddressOf MyClass.End_Download) Then
            :
        End If
            :
    End Sub

    ' ダウンロードの開始。
    Private Sub Start_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロードの終了。
    Private Sub End_Download( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

Bサーバーからファイルをダウンロードします。

構文:Public Function DownloadFile( Receive , ServerFileName , SaveFolder ,
                                                    StartEventsHandler , ReturnEventsHandler ,
                                                    RunEventsHandler ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
ServerFileName String 値渡し(ByVal) サーバーのファイルパス名を渡します。
SaveFolder String 値渡し(ByVal) ダウンロードファイルを保存するクライアントのファイルパス名を渡します。
StartEventsHandler System.EventHandler 値渡し(ByVal) ダウンロード開始時に発生するイベント(Start_DownloadFile)のハンドルを渡します。
ReturnEventsHandler System.EventHandler 値渡し(ByVal) ダウンロード終了時に発生するイベント(End_DownloadFile)のハンドルを渡します。
RunEventsHandler System.EventHandler 値渡し(ByVal) ダウンロード中に発生するイベントのハンドル(Run_DownloadFile)のハンドルを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルのダウンロード。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DownloadFile(Cls_Client, "ファイル名", "フォルダー名", _
                                   AddressOf MyClass.Start_Download, _
                                   AddressOf MyClass.End_Download, _
                                   AddressOf MyClass.Run_Download) Then
            :
        End If
            :
    End Sub

    ' ダウンロードの開始。
    Private Sub Start_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロードの終了。
    Private Sub End_Download( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ’ダウンロード中。
    Private Sub Run_Download( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

名前:StopDownloadFile

構文:Public Sub StopDownloadFile()

機能:ファイルのダウンロードを中止します。

引数:なし。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルのダウンロード。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DownloadFile(Cls_Client, "ファイル名", "フォルダー名", _
                                  AddressOf MyClass.Start_Download, _
                                  AddressOf MyClass.End_Download, _
                                  AddressOf MyClass.Run_Download) Then
            :
        End If
            :
    End Sub

    ' ダウンロードの開始。
    Private Sub Start_Download( ByVal sender As System.Object, _
                                ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロードの終了。
    Private Sub End_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ’ダウンロード中。
    Private Sub Run_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロードの中止。
    Private Sub Button2_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button2.Click
            :
        Cls_SFile.StopDownloadFile()
            :
    End Sub
End Class

 

名前:IsDownload

構文:Public Function IsDownload( Receive ) As Boolean

機能:ダウンロード中かを返します。

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 値渡し(ByVal) 受信情報を渡します。

戻り値:Boolean

戻り値の説明:

True:ダウンロード中 False:ダウンロードしていません。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルのダウンロード。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DownloadFile(Cls_Client, "ファイル名", "フォルダー名", _
                                  AddressOf MyClass.Start_Download, _
                                  AddressOf MyClass.End_Download, _
                                  AddressOf MyClass.Run_Download) Then
            :
        End If
            :
    End Sub

    ' ダウンロードの開始。
    Private Sub Start_Download( ByVal sender As System.Object, _
                                ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロードの終了。
    Private Sub End_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ’ダウンロード中。
    Private Sub Run_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロード中の確認。
    Private Sub Button2_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button2.Click
            :
        If Cls_SFile.IsDownload(Cls_Client) Then
            :
        End If
            :
    End Sub
End Class

 

名前:GetEndMsg

構文:Public Function GetEndMsg( ErrNo ) As String

機能:終了メッセージを返します。

引数:

名前 引数渡しの方法 説明
ErrNo NSDSOCKET_ERR 値渡し(ByVal) エラー番号を渡します。

戻り値:String

戻り値の説明:

メッセージを返します。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルのダウンロード。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.DownloadFile(Cls_Client, "ファイル名", "フォルダー名", _
                                  AddressOf MyClass.Start_Download, _
                                  AddressOf MyClass.End_Download, _
                                  AddressOf MyClass.Run_Download) Then
            :
        End If
            :
    End Sub

    ' ダウンロードの開始。
    Private Sub Start_Download( ByVal sender As System.Object, _
                                ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' ダウンロードの終了。
    Private Sub End_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         MsgBox(Cls_SFile.GetEndMsg(e.ErrNo))
    End Sub

    ’ダウンロード中。
    Private Sub Run_Download( ByVal sender As System.Object, _
                              ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

名前:IsRun

機能:実行中かを返します。

@実行中かを返します。

構文:Public Function IsRun( Receive ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。

戻り値:Boolean

戻り値の説明:

True:処理中です。 False:処理していません。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' 終了確認。
    Private Sub Form1_FormClosing(sender As Object, _
                                  e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        Dim Bln_Cancel As Boolean = False
        If Not (Cls_SFile Is Nothing) Then
            If Cls_SFile.IsRun(Cls_Client) Then
                ' 処理中.
                Bln_Cancel = True
            End If
        End If
        ' キャンセル有無をセットします。
        e.Cancel = Bln_Cancel
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルをサーバーにアップロードします。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.UploadFile(Cls_Client, "ファイル名", _
                                AddressOf MyClass.End_Upload, _
                                AddressOf MyClass.Run_Upload) Then
            :
        End If
            :
    End Sub

    ' アップロードの終了。
    Private Sub End_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' アップロード中。
    Private Sub Run_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

 

A実行中かを返します。

構文:Public Function IsRun( Receive , FileMode ) As Boolean

引数:

名前 引数渡しの方法 説明
Receive NSDSocket.NSDReceive 参照渡し(ByRef) 受信情報を渡します。
FileMode NSDSocket.NSD_FILE_MODE 値渡し(ByVal) ファイルモードを渡します。

戻り値:Boolean

戻り値の説明:

True:処理中です。 False:処理していません。

使用例:

Public Class Form1
    Dim Cls_Client As NSDSocket.NSDReceive = Nothing
    Dim Cls_SFile As NSDSocket.NSDSocket_File = Nothing

    ' Formのロード処理。
    Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) _
                            Handles MyBase.Load
        ' リソースを割り当てます。
        Cls_SFile = New NSDSocket.NSDSocket_File
    End Sub

    ' 終了確認。
    Private Sub Form1_FormClosing(sender As Object, _
                                  e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        Dim Bln_Cancel As Boolean = False
        If Not (Cls_SFile Is Nothing) Then
            If Cls_SFile.IsRun(Cls_Client, NSDSocket.NSD_FILE_MODE.MODE_Upload) Then
                ' 処理中.
                Bln_Cancel = True
            End If
        End If
        ' キャンセル有無をセットします。
        e.Cancel = Bln_Cancel
    End Sub

    ' Formのクローズ処理。
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
                                  Handles Me.FormClosing
        ' 解放します。
        If Not (Cls_SFile Is Nothing) Then
            Cls_SFile.Dispose()
            Cls_SFile = Nothing
        End If
    End Sub

    ' ファイルをサーバーにアップロードします。
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles Button1.Click
            :
        If Cls_SFile.UploadFile(Cls_Client, "ファイル名", _
                                AddressOf MyClass.End_Upload, _
                                AddressOf MyClass.Run_Upload) Then
            :
        End If
            :
    End Sub

    ' アップロードの終了。
    Private Sub End_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub

    ' アップロード中。
    Private Sub Run_Upload( ByVal sender As System.Object, _
                            ByVal e As NSDSocket.NSDSocket_File.NSDSocketFileEventArgs)
         :
    End Sub
End Class

●NSDSocket_Fileイベントの説明

 

名前:Run_GetFInfo

構文:Private Sub Run_GetFInfo( sender , e )

機能:データ受信後ファイルまたはフォルダーの取得毎に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileFolderListEventArgs
値渡し(ByVal) ソケットファイルリスト用イベントクラスを受け取ります。

戻り値:なし。

 

名前:End_GetFInfo

構文:Private Sub End_GetFInfo( sender , e )

機能:ファイル情報の取得終了時に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileFolderListEventArgs
値渡し(ByVal) ソケットファイルリスト用イベントクラスを受け取ります。

戻り値:なし。

 

名前:End_GetCurrentFolder

構文:Private Sub End_GetCurrentFolder( sender , e )

機能:カレントフォルダーの取得終了時に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketCurrentFolderEventArgs
値渡し(ByVal) カレントフォルダー用イベントクラスを受け取ります。

戻り値:なし。

 

名前:Run_UploadFile

構文:Private Sub Run_Upload( sender , e )

機能:アップロードデータの送信中に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileEventArgs
値渡し(ByVal) ソケットファイル用イベントクラスを受け取ります。

戻り値:なし。

 

名前:End_UploadFile

構文:Private Sub End_Upload( sender , e )

機能:アップロード終了時に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileEventArgs
値渡し(ByVal) ソケットファイル用イベントクラスを受け取ります。

戻り値:なし。

 

名前:Start_DownloadFile

構文:Private Sub Start_DownloadFile( sender , e )

機能:ダウンロード開始時に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileEventArgs
値渡し(ByVal) ソケットファイル用イベントクラスを受け取ります。

戻り値:なし。

 

名前:Run_DownloadFile

構文:Private Sub Run_DownloadFile( sender , e )

機能:ダウンロード中に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileEventArgs
値渡し(ByVal) ソケットファイル用イベントクラスを受け取ります。

戻り値:なし。

 

名前:End_DownloadFile

構文:Private Sub End_DownloadFile( sender , e )

機能:ダウンロード終了時に発生するイベント。

引数:

名前 引数渡しの方法 説明
sender Object 値渡し(ByVal) 呼び出し元のオブジェクト。
e NSDSocket.NSDSocket_File.
NSDSocketFileEventArgs
値渡し(ByVal) ソケットファイル用イベントクラスを受け取ります。

戻り値:なし。


Copyright (C) 2016 Nihon System Developer Corp. All Rights Reserved.