Load Winsock()

[TiG]

Добрый дождливый день)

Можно ли определить загружен например Winsock(15) или нет?

Заранее спасибо.

[GSerg]

Массив флагов сделай.

[TiG]

угу нашел, http://bbs.vbstreets.ru/viewtopic.php?t ... ba2c5d98c9

[vvs_adm]

Судя по тому, что ты писал ранее, тебе не помешает массив, на который отображаются твои загруженные контролы и две-три функции : поиск первого свободного контрола в массиве и соответственно добавление контрола в массив при загрузке и освобождение элемента массива при выгрузке контрола Ну или что-то похожее. Но конечно это совсем необязательно ...


A.A.Z. - это заразно

[TiG]

нда, обрадовался...
че то не вьеду в этот код который по ссыле

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


Function Exists() as Boolean
On Error GoTo err_

WinSock(i).Some_Method_to_Call(Params)

exists = true

Exit Fucntion
err_:

exists = false

End Function


[TiG]

vvs_adm
то что раньше писал, полетело в печку, теперь привязываю насильно каждого к конкретному индексу, дубовенько но мне так удобнее

[Amed]

Вызывается какой-либо метод i-того сокета. Если сокет не существует, то происходит ошибка => переход в err_ => exists=false. Иначе exists=true.

[vvs_adm]

vvs_adm
то что раньше писал, полетело в печку, теперь привязываю насильно каждого к конкретному индексу, дубовенько но мне так удобнее

Кошмар... У тебя что, жестко установленное количество клиентов? А если новый клиент добавится - то всего лишь навсего программу перекомпилишь Создавай массив и не извращайся. Да и если клиент отвалился, как ты его потом к тому же самому сокету подключишь?

[alibek]

http://www.vbstreets.ru/VB/Articles/65986.aspx

Тут и прием клиентов, и подключение сокетов.