powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Массив управляющих элементов MSWinSock
3 сообщений из 3, страница 1 из 1
Массив управляющих элементов MSWinSock
    #32489040
ноль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет !
Использую MSWinSock контрол для написания сервера TCP/IP, все бы хорошо,
да только необходимо чтобы все клиенты (их может быть до 10) работали по 1 порту. В VB этот контрол позволяет обработать более чем одного запроса на установление соединения, но у него в методе ConnectionRequest 2 параметра
Код: plaintext
1.
2.
Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
End Sub

Index - номер управляющего элемента обрабатывающего запрос на соедение
Тот же самый метод в VFP выглядит иначе:
Код: plaintext
1.
2.
PROCEDURE ConnectRequest
LPARAMETERS RequestID
EndProc

Получается что в VFP нельзя создать массив управляющих элементов ?
Как тогда быть ?
...
Рейтинг: 0 / 0
Массив управляющих элементов MSWinSock
    #32489049
ноль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Опечатка:
Код: plaintext
1.
2.
PROCEDURE ConnectionRequest
LPARAMETERS RequestID
EndProc
...
Рейтинг: 0 / 0
Массив управляющих элементов MSWinSock
    #32490864
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В VB можно создать группу элементов с одним именем и обращаться к ним по индексу. Так что на самом деле контролов не 1, а 10. Можно обойти создав в фоксе класс на основе Container или Control и обращаться к массиву Controls, если так будет проще для передки кода. Едиственное преимущество васика, там просто задается количество контролов в группе, а фоксе это нужно реализовывать самому.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Массив управляющих элементов MSWinSock
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]