Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Winsock - SendData и GetData / 1 сообщений из 1, страница 1 из 1
27.08.2009, 11:49
    #36165697
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Winsock - SendData и GetData
Пытаюсь передать файл через Winsock.
Отправляю одно количество байт, а принимается другое(большее количество).



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Open FileN For Binary Access Read As # 1 
        Get # 1 , , retStr
Close # 1 
WinsockSrv.SendData retStr '   retStr-соответствует размеру файла


'приём
Dim retStr As String
Winsock.GetData retStr
Open App.Path & "\Прием.emf" For Binary Access Write As # 1 
    Put # 1 , , retStr' -Сдесь retStr-больше примерно в 6,5 раз
Close # 1

Подскажите пожалуйста в чём засада.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Winsock - SendData и GetData / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]