F1! F1! F1!1. Как передать по сети файл?
2. Как передать по сети картинку (типа скриншот)
3. Как передать по сети звук (Он-лайн)
Заранее спасиба...| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > WinSock |
| Автор: Hamlet 16.10.2002, 17:20 |
| F1! F1! F1! 1. Как передать по сети файл? 2. Как передать по сети картинку (типа скриншот) 3. Как передать по сети звук (Он-лайн) Заранее спасиба... |
| Автор: Max 22.10.2002, 11:50 |
| Используй PostData Я бы сделал так: Открывай нужный файл: dim a as byte dim i,n as integer dim s as string n=0:s="" open FILE_NAME for binary as #1 for i=1 to LOF(1) n=n+1 if n=256 then n=0 postdata s ' посмотри параметры в хэлпе Васика s="" end if get#1,i,a s=s+chr$(a) next ' создавай пачки (например по 255 символов [переменная S]) close#1 |