Net send File

[Max!]

Дайте нормальный код каторый бо слал фаил по сетке ! И большие фаилы мог слать и получать , а то я однажды соченил небольшой но фиг он шлёт только небольшие файлы ! А тут пришлось пабольше файлик послать и бум , обрезает его пресылает не весь ! Мне нужен код без наваротов самый обочный но шоб к требованиям выше переч. подходил !!!!

Вот код каторый я использовал

Код: Выделить всё


'Шлём файл

Private Sub Command1_Click()
ws.Close
ws.RemoteHost = ip
ws.RemotePort = port
ws.Connect
End Sub

Private Sub Command2_Click()
Dim buffer$
Open App.Path & "\ff.txt" For Binary Access Read As #1
buffer$ = Space(LOF(1))
Get #1, , buffer$
Close #1
ws.SendData buffer$
End Sub

Private Sub Command3_Click()
ws.Close
End Sub


Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim ds As String
ws.GetData ds
MsgBox "" & ds
End Sub

'Получаем файл

Private Sub Form_Load()
ws.Close
ws.Listen
End Sub

Private Sub ws_Close()
ws.Close
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
ws.SendData "Connectded"
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData buffer$
Open App.Path & "\h\file2.txt" For Binary Access Write As #1
Put #1, , buffer$
Close #1
End Sub


Может требуется мой код править и всё ! Help !

[EvilCoder]

<DELETE>

[Max!]

Тот код каторый я использовал это A WHOLE BUFFER , ты имеиш виду PARTIAL BUFFER ????
Код

Код: Выделить всё

Dim buffer$           
Dim buffersize As Long, bufferleft As Long
buffersize = 1024
Open App.Path & "\file1.exe" For Binary Access Read As #1
Open App.Path & "\file2.exe" For Binary Access Write As #2
bufferleft = LOF(1)
retake:
buffer$ = Space(buffersize)
Get #1, , buffer$
Put #2, , buffer$
bufferleft = bufferleft - buffersize
If bufferleft = 0 Then GoTo Done:
If bufferleft < buffersize Then buffersize = bufferleft
GoTo retake:
Done:
Close #1
Close #2
MsgBox "done"


[Max!]

Please help need !!!

[Max!]

EvilCoder Магёш подробнее ?? Please

[tyomitch]

Max, если файл большой, то DataArrival произойдёт не один, а несколько раз. Соответственно, в нём файл надо дописывать, а не перезаписывать. Ключевое слово - Open For Append.