-сохраняю на одном компе jpg файл
-закидываю его через цикл и байтовую переменную в строку
-отправляю по винсоку на другой комп
-там опять данные сую в jpg файл
-открываю пикчербоксом этот файл
Проблема в следующем, файл который я получаю не всегда идентичный тому, который я отправляю, то есть он приходит какой-то корявый, причем это более заметно если jpg большего размера. Почему такое может происходить? Ну на всякий вот код получения файла на втором компе:
- Код: Выделить всё
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String
Dim strWork As String
Dim BT As Long
wskClient.GetData strData, vbString
BT = bytesTotal
While strData <> ""
If bytesNeed = 0 Then
bytesNeed = Val(Mid(strData, 1, InStr(strData, Chr(0)) - 1))
strData = Mid(strData, InStr(strData, Chr(0)) + 1)
BT = BT - Len(CStr(bytesNeed)) - 1
End If
If bytesNeed >= BT Then
bytesNeed = bytesNeed - BT
strWork = strData
strData = ""
Else
strWork = Mid(strData, 1, bytesNeed)
strData = Mid(strData, bytesNeed + 1)
bytesNeed = 0
BT = Len(strData)
End If
Open App.Path & "\capture.jpg" For Append As #1
Print #1, strWork
Close #1
If bytesNeed = 0 Then
DoEvents
picScreen.Picture = LoadPicture(App.Path & "\capture.jpg")
Open App.Path & "\capture.jpg" For Output As #1
Close #1
bytetsget = 0
End If
Wend
End Sub
Так-с и заодно проблема тока уже по серверу, я картинки посылаю по таймеру и чем больше времени проходит тем медленнее отсылаются картинки, как-будто Interval постоянно растет. Вот. Всем спс.
только если ты присмотришься к моему коду, то я именно это и делаю (если конечно я тебя правильно понял). Ладно тогда сейчас объясню свой код не столь он и мудреный:
сделаю тебе экзампл, который будет пересылать файлы