Многопользовательское приложение (Winsock)

[AntonGV]

Есть программа - сервер. Как сделать чтобы к ней мог подключаться не один клиент а несколько?

[Igor_123]

По моему алибек делал HTTP сервер, поищи там должно быть как это делать. В МСДН есть пример, но на С++. статья называеться Write a Simple HTTP-based Server Using MFC and Windows Sockets написана была From the February 1996 issue of Microsoft Systems Journal

[AntonGV]

С английским у меня очень туго, а с С++ темболее

[Igor_123]

С английским у меня очень туго

А у кого хорошо
Идея в двух словах такая висит сервер(касаемо HTTP сервера) на 80 порту и ждет соединения. Когда происходит соединение сервер говорит клиенту - общаться будем по такому-то, например на 4005, порту. Это соединение закрываеться и сервер снова начинает ждать запроса на соединение на 80 порту, а на 4005 порту отдельным потоком устанавливает соединение с клиентом и обслужывает его запросы. По окончании работы соединение закрываеться, поток завершаеться.

[tyomitch]

С английским у меня очень туго

А у кого хорошо
Идея в двух словах такая висит сервер(касаемо HTTP сервера) на 80 порту и ждет соединения. Когда происходит соединение сервер говорит клиенту - общаться будем по такому-то, например на 4005, порту. Это соединение закрываеться и сервер снова начинает ждать запроса на соединение на 80 порту, а на 4005 порту отдельным потоком устанавливает соединение с клиентом и обслужывает его запросы. По окончании работы соединение закрываеться, поток завершаеться.

Полный бред. Никакого диалога "общаться будем по такому-то, например на 4005, порту" в HTTP нет.
Автор, видимо, попутал с FTP.

[Sebas]

С английским у меня очень туго

А у кого хорошо
Идея в двух словах такая висит сервер(касаемо HTTP сервера) на 80 порту и ждет соединения. Когда происходит соединение сервер говорит клиенту - общаться будем по такому-то, например на 4005, порту. Это соединение закрываеться и сервер снова начинает ждать запроса на соединение на 80 порту, а на 4005 порту отдельным потоком устанавливает соединение с клиентом и обслужывает его запросы. По окончании работы соединение закрываеться, поток завершаеться.

Вот такие гады и придумали ФТП, один из самых убогих веб протоколов. MustDie!

[Хакер]

Отвечу на вопрос автора. Чтобы можно было подключаться нескольким клиентам нужно динамически, т.е. во время выполнения создавать массив Сокетов (т.е. массив объектов класса ВинСок) и при ConnectRequest создавать новый элемент и вызвать у него Аккепт.

Вроде бы так. просто уже год до винсока руки не доходили

[AntonGV]

Спасибо. А массив сокетов создается так?

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

dim socket() as winsock

или как-то подругому, обьясни пожалуйста.

[Хакер]

Нет, создаётся Socket на форме и ставится ему индекс 0.

Потом Load Socket(1), Load Socket(2) и тд.

[AntonGV]

Ясно. Спасибо.

[Конь]

Вопрос: как определить количество значений массива?

[alibek]

Ubound-LBound+1
Массив контролов это не совсем массив, там использовать свойства .UBound, LBound.

[AntonGV]

Я тоже хотел задать этот вопрос, но Конь меня опередил

[AntonGV]

1) А можно как-нибудь опредилить количество "использованных" элементов массива, ну в которых есть какое-ибудь значение?
2) Можно ли "обнулить" сразу весь массив или только так:

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

dim i as Integer
dim mas(100) as String
 
for i=0 to Ubound(mas)-LBound(mas)+1
  mas(i)=vbNullString
Next i

[Nicky]

Erase

[Хакер]

И опять же замечу что для массива контроллов Эрэйс на подходит

[XPAHuTEJIb]

а почему нельзя их простым index'ом проверить

Private Sub ListenSocket_ConnectionRequest(ByVal requestID As Long)
Load Winsock2(Winsock2.Count + 1)
Winsock2(Winsock2.Count).Accept requestID
End Sub

другое дело, что у тебя могут некоторые соединения из существующих отвалится....
поэтому можно новое ловить на существующий сокет, сделать сначала проверку winsock.state

Private Sub ListenSocket_ConnectionRequest(ByVal requestID As Long)
for t=1 to winsock.count
if winsock(t).state=8 or winsock(t).state=0 then goto asd
next t

Load Winsock(Winsock.Count + 1)
Winsock(Winsock.Count).Accept requestID
exit sub

asd:
winsock(t).close 'если статус 8
winsock(t).accept.request id
end sub

[CodeName33]

Извиняюсь, что поднимаю старую тему, но зачем же мучатся с массивом контролов. ИМХО криво, ибо иногда нужно удалять из середины и потом получается каша с пустыми элементами внутри, а не массив...

Можно сделать через Controls.Add а события обрабатывать в классах.

Например:

В модуле:

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

Public colWSock As New Collection

A в классе:

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

Public WithEvents WS As Winsock

Private Sub Class_Initialize()
Dim RandomName As String

'Генерируем тут RandomName на основе милисекунды и счётчика или т.п...

Set WS = %ФОРМА%.Controls.Add("MSWinsock.Winsock.1", "WS" & RandomName)
colWSock.Add WS, WS.Name
End Sub

Private Sub Class_Terminate()
On Error Resume Next
fMain.Controls.Remove WS
colWSock.Remove WS.Name
End Sub

При создании нового эксемпляря класса - он сам создаёт Winsock и добавляет его в коллекцию colWSock, а при уничтожении класса уничтожает Winsock и удаляет из коллекции colWSock. В результате в коллекции colWSock у нас всегда только рабочие Winsock'и.
В этих классах мы можем обрабатывать события для каждого нового винсока, или при необходимости переназначить их на Public процедуру. Мне кажется так удобнее работать, чем с массивами.

[|kerish|]

Объясните, зачем весь этот гемморой с массивами контролов?
Чтобы реализовать то, что нужно автору достаточно одного контрола.

[alibek]

Сервер на одном сокете?

[alibek]

CodeName33, идея спорная.
Но в любом случае, для RandomName гораздо больше подойдет "WS" & CStr(ObjPtr(Me)), чем какие-то танцы с таймерами, миллисекундами и счетчиками.

[|kerish|]

Зачем обязательно использовать TCP протокол?
В винсоке есть другой протокол специально для такого плана задач - UDP протокол.
Вешаем его командой Bind на нужный порт и ловим сообщения от кого угодно. И массивы из миллионов контролов, которые сделают приложение тормознутейшим нам не понадобятся.

[CodeName33]

|kerish| здесь, я так понял TCP-IP протокол используется, а не UDP, одним контролом тут не отделаться...

Добавлено:
Смотря что это за сервер. Здесь я уточнения не видел. Возможно клиенты у него будут браузеры...

alibek, это я для примера написал про милисекунды. Твой метод генерации проще и удобнее.

[|kerish|]

Прошу прощения, что мое сообщение продублировалось.

CodeName33 А я так понял, что автору нужно многопользовательское приложение (Winsock), чтобы к нему мог подключаться не один клиент а несколько. А протокол автор может выбрать сам.

[alibek]

Допустим, у меня есть сервер, который трафик шифрует. Причем, для каждого соединения (клиента) используется свой сессионный ключ.
Здесь UDP мало применим.

[|kerish|]

В любом случае, считаю гораздо проще использовать UDP, чем плодить контролы.

[|kerish|]

alibek Ничего подобного. Сервер легко сможет распозновать от кого какое-сообщение и соответственно ему шифровать и расшифрововать.

[alibek]

Ага, и рассылать по сетке датаграммы, засоряя канал.

[|kerish|]

alibek Объясни, пожалуйста по-подробнее, что ты имеешь в виду.

[alibek]

Во-первых, датаграммы не фрагментируются (и соответственно, не буферризуются).
Во-вторых, надеюсь ты имел ввиду рассылку по подсети, а не на конкретный адрес?
Кроме того, UDP не гарантирует доставки и не гарантирует соединения, т.е. ты не можешь делать предположения, что данные ты отправил именно тому, кому надо.