Конференция VBStreets

**Mleha** » 11.01.2005 (Вт) 11:09

Пишу сетевую прогу для пересылки файлов...и хочу использовать класс WinSock'а так как в технаре доступ обрублен ко всем компонентам!

с этим классом есть Event'ы но немогу использовать функции WinSock'а
(senddata;close...)

**alibek** » 11.01.2005 (Вт) 12:13

А как объявляешь инстанс сокета?

**Mleha** » 11.01.2005 (Вт) 12:21

1) Dim WithEvents w As CSocket
2) Set W = New CSocket

Первое с евентами, но без функций
Второе - наоборот

Надо бы все сразу с одной переменной
Может Получится у кого это в ActiveX переработать?

**tyomitch** » 11.01.2005 (Вт) 17:10

Mleha, а оба сразу не пробовал?

Код: Выделить всё: Dim WithEvents W As CSocket Private Sub Form_Load Set W = New CSocket End Sub

**Mleha** » 12.01.2005 (Ср) 8:00

Уже пробовал и вот что получилось:

**Mleha** » 17.01.2005 (Пн) 6:53

Признаю первая версия жутко глючная и очень криво работает

.
Но вот новая и снова проблема:
Если запустить сервера и клиента на одном компе и подключиться через 127.0.0.1 то все работает безотказно, а если через модемное соединение 33.6 Kb/sec то файлы доходят "жеваные".
Может проблема в том что передаются блоки по 4096 байт, а не 255?

**Mleha** » 18.01.2005 (Вт) 14:14

Да надо было посылать блоки по 255 байт!

но снова проблема: допустим дана папка, надо узнать адреса всех вложенных файлов и папок в отдельности. как это реализовать? помогите :oops:

**tyomitch** » 18.01.2005 (Вт) 17:38

Где? на локальной машине? или может, на FTP-сервере, раз в теме про сокеты? :-)

**Mleha** » 19.01.2005 (Ср) 6:19

Искать нужно отправителю у себя на компе! :cry:

**Mleha** » 19.01.2005 (Ср) 7:50

Помогите доработать или переработоать этот код:

Код: Выделить всё: Dim count As Integer, cnt As Integer, Olditem As Integer, k As Integer, lcl As Integer Dim Path as String d.Path = Path d.Refresh count = d.ListCount Caption = count Olditem = 0 For i = 0 To count - 1 lf.AddItem d.List(i) k = d.ListCount Next i Caption = lf.ListCount SS: Olditem = lf.ListCount If k = 0 Or aa = True Then Exit Function For i = lcl To lf.ListCount d.Path = lf.List(i - 1) d.Refresh cnt = d.ListCount For j = 1 To cnt DoEvents lf.AddItem d.List(j - 1) lNext j Next i k = lf.ListCount - k lcl = k + 1 GoTo SS

, где

Код: Выделить всё: d - DriveListBox lf - ListBox

Решение чуствую где то близко

[/code]

**Mleha** » 20.01.2005 (Чт) 7:24

Сам тему затеял - самому пришлоь думать :wink:

Еще как искать скрытые/системные ПАПКИ :?:

Конференция VBStreets

Класс WinSock

Класс WinSock

Кто сейчас на конференции