How to Send a File

Empower your application with a leading Instant Messenger .NET Software Development Kit

IMSDK.IMServer API

IMSDK API

Forums

Support Center » Knowledgebase » How to Send a File

	How to Send a File

Solution 1. Complete Login User

2. Now Call the Asynchronous Method IMSDK.IMClient.BeginSendFile

[Visual Basic]
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
oForm1.IMC.BeginSendFile(ofd.FileName, Me.Tag)
End If

End Sub

3. Friend is Notified of the incoming file via the event IMSDK.IMClient.OnReceiveFileRequest

[Visual Basic]
Private Sub IMC_OnReceiveFileRequest(ByVal Friendusername As String, ByVal FileName As String, ByVal FileSize As Long, ByVal FileTransferID As String, ByVal FileEncryption As Boolean) Handles IMC.OnReceiveFileRequest
Dim rfr As New FrmReceiveFileRequest
rfr.lblTXT.Text = "Username : " & Friendusername & " Wants to send a " & vbCrLf & "File :" & FileName & vbCrLf & "File Size : " & FileSize & vbCrLf & "File Transfer ID :" & FileTransferID & vbCrLf & "File Encryption :" & FileEncryption

If rfr.ShowDialog = Windows.Forms.DialogResult.OK Then
IMC.BeginFileRequestAccepted(Friendusername, FileTransferID)
Else
IMC.BeginFileRequestRejected(Friendusername, FileTransferID)
End If

End Sub

4. if the file requested is rejected then event IMSDK.IMClient.OnFileRequestRejected is fired

[Visual Basic]
Private Sub IMC_OnFileRequestRejected(ByVal FileTransferID As String) Handles IMC.OnFileRequestRejected
RemoveFileTransfer(FileTransferID)
Debug.WriteLine("File Request Rejected : " & FileTransferID)
End Sub

5. if file request is accepted then following events are fired on the sender side

[Visual Basic]

Private Sub IMC_OnFileSendTransferring(ByVal FileTransferID As String, ByVal FileEncryption As Boolean, ByVal FriendUsername As String, ByVal FileName As String, ByVal BytesSent As Long, ByVal TotalBytesToSent As Long) Handles IMC.OnFileSendTransferring
FM.FM_UpdateItem(FileTransferID, FriendUsername, String.Empty, FileName, BytesSent.ToString & " - " & TotalBytesToSent.ToString, FileEncryption)
End Sub

Private Sub IMC_OnFileSendComplete(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileSendComplete
FM.FM_DeleteItem(FileTransferID)
End Sub

Private Sub IMC_OnFileSendCancelled(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileSendCancelled
FM.FM_CancelItem(FileTransferID)
End Sub

Private Sub IMC_OnFileSendDisconnected(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileSendDisconnected
RemoveFileTransfer(FileTransferID)
Debug.WriteLine(" MC_OnFileSendDisconnected - FileTransferID: " & FileTransferID & " FriendUsername : " & FriendUsername & " FileName : " & FileName)
End Sub

6. Following events are fired on receiver side

[Visual Basic]

Private Sub IMC_OnFilePortOpened(ByVal IP As String, ByVal Port As String) Handles IMC.OnFilePortOpened
Debug.WriteLine("File Port Opened :" & IP & ":" & Port)
End Sub

Private Sub iMC_OnFileReceiveDisconnected(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileReceiveDisconnected
RemoveFileTransfer(FileTransferID)
Debug.WriteLine("MC_OnFileReceiveDisconnected - FileTransferID: " & FileTransferID & " FriendUsername : " & FriendUsername & " FileName : " & FileName)
End Sub

Private Sub iMC_OnFileReceiveFiledata(ByVal FileTransferID As String, ByVal FileEncryption As Boolean, ByVal FriendUsername As String, ByVal FileName As String, ByVal BytesReceive As Long, ByVal TotalBytesToReceive As Long) Handles IMC.OnFileReceiveFiledata

FM.FM_UpdateItem(FileTransferID, String.Empty, FriendUsername, FileName, BytesReceive.ToString & " - " & TotalBytesToReceive.ToString, FileEncryption)

End Sub

Private Sub iMC_OnFileReceiveFileTransferComplete(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileReceiveFileTransferComplete
FM.FM_DeleteItem(FileTransferID)
End Sub

Private Sub IMC_OnFileReceiveCancelled(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileReceiveCancelled
FM.FM_CancelItem(FileTransferID)
End Sub

Article Details

Article ID:

Created On:

14 Apr 2007 01:31 AM