Как передать файл по Winsock , TCP FILE TRANSFER

[SCINER]

ОСОБЕННОСТИ: ==> ПЕРЕДАЧА ФАЙЛА ПО СЕТИ БЕЗ ИСПОЛЬЗОВАНИЯ Winsock !!! <==
==> За один сеанс работы программы можно передать несколько файлов. <==
==> РАЗМЕР ПЕРЕДАВАЕМОГО ФАЙЛА МОЖЕТ БЫТЬ ЛЮБЫМ ОТ 0 БАЙТОВ ДО ДЕСЯТКОВ ГИГАБАЙТ. <==

Winsock ЗАМЕНЯЕТСЯ МОИМ КОНТРОЛОМ (АНАЛОГОВ В ИНЕТЕ НА VB ТОЧНО НЕТ)
Прикреплённый файлTCP_file_transfer_for_all.zip (77.13 Кбайт, скачиваний: 2533)

[SCINER]

Блин. Расклад такой:

MyProg -> mswinsck.ocx -> ws2_32.dll -> OS

при том, что mswinsck.ocx есть не во всех виндах!

Я же сделал так:

MyProg ->  ws2_32.dll -> OS

Кстати контрол сделал я. В том состоянии в котором я нашел модуль он был похож именно на модуль, с которым было ОЧЕНЬ тяжело работать.

Я же его ОЧЕНЬ хорошо переделал во всем знакомый Winsock.
Так, что любой желающий может выбросить из проекта настоящий винсок и вставить мой.
Даже в коде ничего не надо менять. Кроме одного:

Чтобы закрыть сокет надо вызвать Winsock1.CloseSocket, а в настоящем винсоке выглядит так: Winsock1.Close.

Т.к. VB не разрешает назвать процедуру словом Close.

Сообщение отредактировано: SCINER - 18.12.04, 22:09