VBNet - Форум - помогите с винсокс!!!

Вопрос: помогите с винсокс!!! Добавлено: 28.02.03 23:55

Автор вопроса: ZoomerSD | ICQ: 148640473

Народ, может кто-то знает как моно через винсокс передавать файлы с компа на комп
Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

Виталиум!

Вопросов: 25
Ответов: 52

Web-сайт: www.infodoc.h1.ru
Профиль | | #1

Добавлено: 01.03.03 10:45

Этот вопрос меня уже беспокоил... Кстати, с ним мне и пришлось больше всего мучаться. Но я считаю, что по винсоку я уже как-никак, более-менее профессионал :-) ))). Поэтому ищи примерчик у себя в ящике e-mail

Ответить

Номер ответа: 2
Автор ответа:

Sernij

Вопросов: 30
Ответов: 22

Профиль | | #2

Добавлено: 02.03.03 22:27

Виталиум! может и мне пришлешЬ плыыыыызззз или ты leo??

Ответить

Номер ответа: 3 Автор ответа: Aleksandr Skorodumov ICQ: 161435166 Вопросов: 5 Ответов: 96	Web-сайт: www.beginning.ru Профиль \| \| #3	Добавлено: 04.03.03 08:36
	Виталиум, вышли мне тоже, shurik15@inbox.ru Ответить

Номер ответа: 4
Автор ответа:

Виталиум!

Вопросов: 25
Ответов: 52

Web-сайт: www.infodoc.h1.ru
Профиль | | #4

Добавлено: 04.03.03 09:48

Так что, ребята, опубликовать эти примерчики на сайте ???

Ответить

Номер ответа: 5
Автор ответа:

Миха

ICQ: 394243

Вопросов: 20
Ответов: 151

Web-сайт: www.visualbasic.boom.ru
Профиль | | #5

Добавлено: 19.04.03 20:25

Просто используй метод Winsock1.SendData .Разобраться не сложно

Ответить

Номер ответа: 6
Автор ответа:

Диман

ICQ: 224590251

Вопросов: 29
Ответов: 64

Web-сайт: www.dimon1int.narod.ru
Профиль | | #6

Добавлено: 20.04.03 09:35

Проще простого. Читаешь файл построчно и передаешь в другой комп:

На передающем:

Private Completed as Boolean

Sub Передача_файла()

Dim fignya as String

Open Путь_к_твоему_файлу for binary access read as #1 'откр твой файлик

Winsock1.SendData "BEGIN"

Do Until EOF (1) 'Loopим пока файло не кончится

Completed=False

DoEvents

Get #1, , fignya 'достаем нач. пакет

Winsock1.SendData fignya

Do Until Completed = True 'loopим пока от винсока не 'подойдет сообщение "READY" - готовность, что второй комп 'получил пакет, обработал, и ждет нового

DoEvents

Loop

Winsock1.SendData "END"

Close #1

End Sub

Sub Winsock1_DataArrived()

Dim Data as string

Winsock1.getdata Data

If Data = "READY" Then Completed = True

End Sub

На принимающем компе:

Private Data as String

Sub Прием_файла()

Winsock1.Listen

Open "Новый_путь_плюс_имя_файла_которое ты_должен_передать_заранее" for binary access write as #1

Completed = False

Do Until Completed = True

DoEvents

Loop

Winsock1.GetData Data

If Data = "BEGIN" Then Completed= False

End Sub

1 Do Until Completed = True

Loop

Winsock1.GetData Data

If Data = "END" Then

Close #1

Exit Sub

Put #1, , Data

Completed = False

Goto 1

End If

Sub Winsock1_DataArrived()

Completed = True

End Sub

В принципе все! Вася, ты кг лечишь, делать нечего?

Ответить

Страница: 1 |