Поедлитесь Winsock классами. :(

[ALX_2002]

Народ, у кого есть класс модули винсока, поделитесь плззз ?

[tyomitch]

Ну например http://www.vbip.com/winsock-api/csocket ... ass-01.asp ...
Гугл тебе в помощь

[ALX_2002]

2 tyomitch: Паасиба !!! По ходу, то что я искал , только я видать запрос в поисковик неправильно давал - "winsock class"

Позор мне

[EvilCoder]

<DELETED>

[tyomitch]

EvilCoder, если твоё приложение чувствительно к разбивке приходящих/уходящих данных по пакетам - значит, оно криво написано
Нормально написанный сервер должен по одному только потоку данных определять, где файл, а где команда; опираться на разбивку на пакеты очень ненадёжно.

[SSecurity]

ээээ ... EvilCoder, а я вот Гигабайты с одного локального диска на другой через винсок слал (в тесте дурью маялся:)) ни байта ни потерял и всё переслалось ... всего vbCrLf или vbCr в конце команды:)

[EvilCoder]

<DELETED>

[xolod]

Слать файлы на один порт, а данные - на другой?

[tyomitch]

EvilCoder, вместе с заголовком "%FILE%" шли длину файла - и не будет никаких проблем.

[SSecurity]

мой ответ прост как как два пальца об бетон, каждая команда должна заканчиваться определенной комбинацией символов я делаю например так:

RF blablabla<RB> + vbCr

RF - команда примитивная - читать файл (всегда пишется вначале, потому как у меня программируется чтение одной команды тип которой всегда вначале - "буферное накопление")
<RB> - команда, после которой данные между RF и <RB> читается.

[SSecurity]

а вообще если не нравится - шли подтверждение на прем команд:)

[EvilCoder]

<DELETED>

[xolod]

В правильном направлении следуете, товарищ (c)
CreateThread и прирост будет, а ты думаешь для чего тогда тулзы пишут навроде Reget'а?

[tyomitch]

xolod, прироста не будет
А регеты качают из многих источников сразу - оттуда и прирост.

[tyomitch]

Слать файлы на один порт, а данные - на другой?

Вот-вот... давно подумывал . наверное так и сделаю

Если нужно два независимых потока, то это безусловно лучший вариант.
Если нужно два синхронизированных потока, то это не подойдёт, т.к. пакеты, идущие на разные порты, могут перемешиваться в произвольном порядке.
Т.е. если у тебя по одному каналу передаются сигналы "начало файла/конец файла", а по другому сами данные файла, то работать такое будет через раз...

[EvilCoder]

<DELETED>

[tyomitch]

Самый простой вариант - рвать связь после конца передачи файла. Простая и надёжная синхронизация.
Дописывать в заголовок "потока" длину файла тоже просто и эффективно.
Вот, уже два способа есть

[CodeName33]

А почему бы не посылать в пакете имя файла, размер пакета и позицию в файле куда это писать, вроде:

PACK|FILE|file.txt|512|2048|.Данные.....

И не нужно париться с синхронизацией.

[tyomitch]

CodeName33, новый TCP писать предлагаешь?
Так он уже написан


И в твоём случае - вместо синхронизации будут запары со сборкой, на стороне клиента.

[SSecurity]

В чем вообще суть проблемы?

[tyomitch]

Пересылать файлы, много подряд, и не путать где какой.
EvilCoder, так?

[EvilCoder]

DELETED

[SSecurity]

А если много подряд, почему нельзя сделать так .... шлем поток данных "МНОГо-МНОГО-МНОГО" а потом ... шлем заголовки все:)
А лучше наоборот, тогда у нас сраз сформируется цепочка заголовков, принимая данные мы сразу сможем отрезать всё что нам нужно и сохранять в качестве файла.

[CodeName33]

tyomitch > в твоём случае - вместо синхронизации будут запары со сборкой, на стороне клиента.

Какие запары со сборкой на другой стороне?
Собирается всё, что приходит в одну строку. Дальше просмотратривается заголовок-пакета. Если есть целый пакет, он вырезается из общеё кучи в отдельную строку и уже анализируется. Split по разтелителю | и все параметры в массиве. Находится имя файла и пишется в указанное место указанное количество байт. Куда и чего писать передаётся с удалённой машины (хоть пакет с началом файла, а за ним конец файла) и серверу этим парится не нужно он пишет куда сказано (и докачку легко сделать).

[alibek]

Согласен, если правильно продумать, никаких проблем со сборкой не будет.
Только все-же зачем изобретать надстройку над TCP, которая делает тоже самое?

[CodeName33]

alibek, а зачем с 2 винсоками и синхронизацией парится?

[alibek]

Использование двух сокетов, когда достаточно одного - признак кривого дизайна, поэтому на этот вопрос ничего не отвечу.
А проблем с синхронизацией не вижу. Если синхронизация при скачивании одного файла в несколько потоков - можно поступать, как FlashGet. Т.е. создается пустой файл требуемой длины, а информационные блоки сразу пишутся на свое место.

[v-adix]

EvilCoder, если твоё приложение чувствительно к разбивке приходящих/уходящих данных по пакетам - значит, оно криво написано
Нормально написанный сервер должен по одному только потоку данных определять, где файл, а где команда; опираться на разбивку на пакеты очень ненадёжно.

ты совершенно прав. нелья надеяться на то, как винсок разобьет пакеты. лучше делать это вручную: создать свой буффер, и посылать файл по пакетам размером примерно 2-4 кб.

[codemaster]

" Всякое изобретение колеса всегда приводит к появлению костыля из серии Смотрите ребята что я налабал ":
ктото из "великих"


Наверное стоит посмотреть как работает FTP в pass и active :wink

[v-adix]

а шо? как делать то?

Значит так:
Клиент отсылает файл.
Socket.SendData "%END%" & BinnaryFileString & "%FILE%"

Сервер принемает.
Socket.GetData StrDATA
If Right$(strDATA,6)="%FILE%" Then DownLoadFile ()

А вот иногда.(если перед файлом Команду отправить) она их склеивает, ну дальше понятно - ОБЛОМ.
Вот скажите.. как можно, проще?
Можно:
Подтверждать полученную команду (облом в скорости - НЕ ПОДХОДИТ)
Искать комманды во всех входящих данных (Split перебором - ТОЖЕ...)
Я идиот! Убейте меня, кто-нибудь!

Ничего подобного! Винсок склеивает две команды, еcли ты их запишешь так (причем не "иногда", а ВСЕГДА):

w.senddata "123"
w.senddata "456"

тогда на сервере произойдет вот что: событие DataArrival вызовется ОДИН раз, и написав w.GetData на сервере ты получишь строку: "123456". А вот попробуй сделать так:

Код: Выделить всё

Option Explicit
dim wt as boolean

sub SendSomething(cmd1 as string, cmd2 as string)
winsock1.senddata cmd1
waitfornext
winsock1.senddata cmd2
end sub

Private Sub Winsock1_SendComplete()
wt = True
End Sub

sub waitfornext()
wt=false
while wt=false
doevents
wend
end sub

тогда на сервере событие DataArrival произойдет 2 раза. Один раз ты получишь "123", а второй раз, "456" - событие SendComplete вызывается когда пакет УЖЕ ОТОСЛАН, и винсок готов отослать следующий пакет. А когда ты посылаешь 2 пакета так:
w.senddata "123"
w.senddata "456"
то винсок это воспринимает это как w.senddata "123456". причем это не глюк. а чтобы посылать данные, разбивая их на пакеты вручную, можно использовать событие SendComplete. Итак, для пересылки файла нужно:
1. Разбить его на пакеты по 2-4 кб
2. Отсылать пакет за пакетом таким образом:

Код: Выделить всё

dim packets() as string
'код для разбивки файла на пакеты и загрузка пакетов в массив packets
for x = 1 to ubound(packets)
winsock1.senddata packets(x)
waitfornext
next x

3. Когда файл отослан:

Код: Выделить всё

...
next x
'цикл отсылки файла завершился
waitfornext
winsock1.senddata "команда1 после отсылки файла"
waitfornext
winsock1.senddata "команда2 после отсылки файла"

Используя этот алгоритм можно организовать и докачку файлов при обрыве соединения.