1. in client form ,i have problems in sending hash code (in hshlabel) to server..
2. in server form, hashlabel container from client form need to be fill in text1.txt..
can anybody fix my project.. it is my final year project.. n i need to submit it before this saturday..
this is my client code for data send
and this is for client's data arrivalQuote:
Private Sub SendFile(ByVal strFile As String)
On Error GoTo salah
Dim sizeFile As Long
strFilename = strFile
blnTransferStatus = True
sizeFile = FreeFile
Open strFilename For Binary As #sizeFile
Winsock1.SendData ("BOF" & LOF(sizeFile) & "|" & strFilename)
Exit Sub
salah:
txtErrorLog.Text = "Error [ " & Err.Number & " ] ~ " & Err.Description & Chr(13) & txtErrorLog.Text
End Sub
Quote:
Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim strData(Iconnection) As String
Dim hFiles(Iconnection) As Long
Winsock1(index).GetData strData(index)
Text1.Text = sdata
If (Not blnTransferStatus(index)) Then
If (Mid$(strData(index), 1, 3) = "BOF") Then
KIRA(index) = 0
blnTransferStatus(index) = True
strNamaFile(index) = strData(index)
Me.lstStatus.ListItems("k" & sRequestID(index)).ListSubItems(3) = Mid(strNamaFile(index), InStrRev(strNamaFile(index), "\") + 1)
Me.lstStatus.ListItems("k" & sRequestID(index)).ListSubItems(4).Text = Int(Mid(strData(index), 4, InStr(1, strData(index), "|") - 4) / 1024) & "KB"
Winsock1(index).SendData ("NEXT")
End If
Else
If (Mid$(strData(index), 1, 3) = "EOF") Then
blnTransferStatus(index) = False
Winsock1(index).SendData ("CLOSE")
Transfer(index) = 0
Else
hFiles(index) = FreeFile
Open App.Path & "\ReceiveFiles" & Mid(strNamaFile(index), InStrRev(strNamaFile(index), "\")) For Binary As #hFiles(index)
Seek #hFiles(index), LOF(hFiles(index)) + 1
Put #hFiles(index), , strData(index)
Close #hFiles(index)
KIRA(index) = KIRA(index) + 1
Transfer(index) = Transfer(index) + Len(strData(index))
Me.lstStatus.ListItems("k" & sRequestID(index)).ListSubItems(5).Text = Int(Transfer(index) / 1024) & "KB"
Winsock1(index).SendData ("NEXT")
End If
End If
End Sub
