Помогите c Winsock классами ? :(

[ALX_2002]

Отцы. Тут проблемка с Winsock Class-ами. Ни в какую не могу ничего сделать.

Помогите плиз. ( Стыдно, позорно, а что делать )

Порылся по инету - на обычном Winsock всё просто, а вот с классами я в непонятках

1) Всунул эти модули и создал свой

В своём объявил Dim WSK as New CSocket.

Подумал что ивенты нужны написал WithEvents Узнал, что в обычном модуле такое не пройдёт.

2) Попытался разобраться почему модуля 2 - в одном полно функций и в другом.


В КРАТЦЕ - ЛАМО ПРОСИТ ПОМОЩИ У ВЕЛИКИХ.

Хелпаните примерчиком приёма или отправки данных с этими классами. пожаааалсста.

[GM]

1) [/quote] Подумал что ивенты нужны написал WithEvents Узнал, что в обычном модуле такое не пройдёт.[/quote]
WithEvents можна использовать только в объектных модулях, так что прийдется процедуры по обработки информации писать либо в классе, либо в форме.
2)

Хелпаните примерчиком приёма или отправки данных с этими классами. пожаааалсста.

Да, там все аналогично Winsock'у, сам разбирался, только эвенты теперь начинаются с On.... В принципе все.

[xenomorph]

> В своём объявил Dim WSK as New CSocket
!!! ^^^ !!!
Не так сэр!
а вот так:

Дек:
Dim WSK as CSocket

При загрузке формы:
Set WSK = New CSocket

Это инициализирует обект с событиями.
И его можно использовать .

Работает только в форме \ классе.

> Попытался разобраться почему модуля

Так надо! .
Точнее один - модуль и один класс.
Смотри код Гдалевича.

см. пример .
--
Удачи!

[ALX_2002]

2 xenomorph: УХ ! Респект + огромное спасибо ! ! Сейчас буду смотреть !

Вот к сожалению только не понял

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

Дек:
Dim WSK as CSocket

При загрузке формы:
Set WSK = New CSocket

А почему надо 2 раза димить ? Разве не получиться тоже самое если

Dim WSK as New CSocket ? - Это же вроде аналогичный вариант ?

Хотя может я всё таки уже начал забывать VB....

[ALX_2002]

1)

Подумал что ивенты нужны написал WithEvents Узнал, что в обычном модуле такое не пройдёт.

WithEvents можна использовать только в объектных модулях, так что прийдется процедуры по обработки информации писать либо в классе, либо в форме.
2)

Хелпаните примерчиком приёма или отправки данных с этими классами. пожаааалсста.

Да, там все аналогично Winsock'у, сам разбирался, только эвенты теперь начинаются с On.... В принципе все.

Так...Ага. У меня формы нету, значит в классе. А как же быть там c
SUB MAIN ? У меня VB отказался там его делать.

Нежели придётся ещё 4-ый модуль делать где сам Sub Main будет ?

[xenomorph]

> Так...Ага. У меня формы нету, значит в классе. А как же быть там c
> SUB MAIN ? У меня VB отказался там его делать.

Sub Main ты пишеш в модуль.
В нём же инициализируешь класс-переходник НО БЕЗ событий!
А в этом классе (при его инициализации или
вручную) инициализируешь класс и инстанс Винсока.

Таким образов внутри класса БЕЗ событий у тебя
будет объявлен класс Винсока С событиями.

На уровне модуля нельзя юзать класс с событиями,
но можна юзать класс БЕЗ событий. Идея такая - создаёшь класс-переходник
в котором создаёшь класс С событиями. Если тип класса Public,
его можно использовать прямо из модуля.
(см. пример).

> А почему надо 2 раза димить ?

Димить надо один раз.
Только ещё нужно инициализировать - запустить новый инстанс класса.

>Разве не получиться тоже самое если
> Dim WSK as New CSocket ? - Это же вроде аналогичный вариант ?
Так ты его обявляешь БЕЗ событий. А надо с событиями.

я с перепою не то написал .
ВБ НЕ разрешает использовать конструкцию вида:

Dim WithEvents cls_Winsock As New CSocket

Вот так правильно:

1. Декларация:

Dim WithEvents cls_Winsock As CSocket

2. Инициализация:

Set cls_Winsock = New CSocket

ИМХО
Только так можно.

[ALX_2002]

Бррр.... В голове каша.... Классы переходные... Ааа...

Ну лан - буду пробывать набивать шишки и учиться на своих ошибках

[ALX_2002]

И снова доброго дня вам, господа программеры.
Благодарю xenomorph. Всё понял как пашет.

К сожалению новый трабл

Никак не пойму как разбиндить занятый мною порт.

Т.е если мой модуль занял порт 1001 например, а потом выпал с ошибкой, то при следующем запуске он выдаёт ошибку. Address Is Already in Use

Вот, хотел узнать, как этого избежать ?

[ALX_2002]

Попробывал поставить STOP в Class_Terminate.

А оно не происходит

[xenomorph]

Привет!
--
UDP или ТСР?

[ALX_2002]

2 xenomorph: Доброго дня !! TCP. Очень буду рад совету.

[xenomorph]

Код в студию 9-)

[ALX_2002]

Как скажете. Вот он код.

[xenomorph]

321

[xenomorph]

Эээ ... Батенька так всёж через одно место делаеться .
(ещё код не проверял - открыл и решил начепятать :)

Вот ты пишешь сервер без окон?
Я правильно говорю?

А фиг тебе! . С окнами. С невидимыми.

Ты используешь класс Гдалевича "ССокет".
Он построен на асинхронных сокетах.
Создание асинхронного сокета подразумевает создание
окна для приёма сигнальных сообщений от системы про
статус оного. ЭТО ЕСТЬ ФИЧА асинхронных сокетов.
Т.е. - хотишь асинхронных сокетов - делай окно!

(можешь поверить на слово - вариант - пройтись по МСДН.
Но я на сокеты делаю восновном на МАЗМе ))))
т.е. ИМХО я на них не одну собаку съел )).

Поиск по коду ССокета:

Private Function CreateWinsockMessageWindow() As Long

Эта функ-ия создаёт такое невидимое окно.

В итоге - ты фигнёй страдаешь .
Окна в проге будут. Хош ты того или не хош.

Другой вопрос - почему ты не хотишь делать окна.

Вариантов два:
1. Избежать таких нехороших прог как трассировщики невидимых окон.
Как я уже заметил - не выйдет ! (ну ... ТАК не выйдет ))
2. Размер проги.
Забудь! Бери UPX + Scrambler.
И делай себе окна.
Всё равно без них никуда Виндовс как никак )).

--
Насчёт кода )))
Уже теперь я понимаю почему ты спрашивал насчёт мониторинга проги БЕЗ
процедуры анлоада .

1. Баг про "занятый порт" будет только в ИДЕ Васика. При тестах
на откомпиленой проге всё ОК.

Почему так:

Потому что необходимо всё деинициализировать подсистему WSA в частности .
Когда работает Винсок (компонент) - он эти ошибки САМ локализирует и устраняет. А
когда ты пишешь на АПИ то окна убиавать, сокет деинициализировать ты должен сам!
(если ты это делаешь в ИДЕ Васике). Если это прога, то винда подчищает за ней сама.
Тихо. Именно поэтому сама прога вылетает корректно - аосле перезапуска всё ОК.

2. Именно поэтому НЕЛЬЗЯ тормозить проэкт с ССокетом через "Стоп" в ВБ ИДЕ.
т.к. ИДЕ:
а) Работать уже корректно не будет.
б) Вылетит вскоре нафиг .

3. Ты чё пишешь? Поменяемься идеями? .

[ALX_2002]

Ой мама моя.... Как же всё таки плохо быть ламером....

Спасиб за инфу. Пойду изучать васик.

На счёт идей З.Ы - идеев теперь нету. Тока мысли... И они стучаться внутри головы как молекулы газа в банке...

[xenomorph]

Offtop \\
(на ум приходят слова классика: [укр.]):
ГУРИ, МОИ ГУРИ, ГОРЕ МЕНІ З ВАМИ ...
ЧОМ ВИ СТАЛИ НА ПАПЕРІ СУМНИМИ РЯДАМИ ))!
lol ))))))))))
\\ Offtop

[tyomitch]

Вот ты пишешь сервер без окон?
Я правильно говорю?

А фиг тебе! . С окнами. С невидимыми.

Ты используешь класс Гдалевича "ССокет".
Он построен на асинхронных сокетах.
Создание асинхронного сокета подразумевает создание
окна для приёма сигнальных сообщений от системы про
статус оного. ЭТО ЕСТЬ ФИЧА асинхронных сокетов.
Т.е. - хотишь асинхронных сокетов - делай окно!

Неправда ваша, товарищ. Вполне себе можно и без окон обойтись.
Я тут недавно выкладывал мой SOCKS4-прокси: там никаких окон не было.

Невидимые окна требуют сабклассинга и всякой хрени типа этого - а зачем вся морока, если можно и без них?

Окна в проге будут. Хош ты того или не хош.

Точно-точно. Безоконной проги на VB6 вообще не бывает, мы это уже выясняли.
Другое дело, что создавать собственные окна только для того, чтобы ловить сообщения сокетов - совершенно незачем.

[xenomorph]

А можно посмотреть (проксик)?
--
Чё т поиск ничё не дал ...
руки у меня кривые видно 8(((

[xenomorph]

Да согласен - я не прав ...
... WSAEventSelect принимает объект синхронихзации ...
можна можна ивенты использовать .

(1. обычно делают через окна и сабклассинг)

Но что-то я сомневаюсь что от использования ивентов
человеку проще станет )) ...

[tyomitch]

(1. обычно делают через окна и сабклассинг)

Этому есть ещё какие-нибудь причины, кроме "доброй традиции"?

[xenomorph]

Незнаеие ивентов и семафоров .