Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WinSock Event, TserverClient TClientServer 
:(
    Опции темы
kami
Дата 6.2.2010, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72



Цитата(2134 @  6.2.2010,  02:35 Найти цитируемый пост)
Как и где я смогу понять, какое событие делает клиент

Не клиент делает событие, а Windows.
Наглядный пример - передаем с клиента большой файл с помощью SendStream. На клиенте мы вызывали одну процедуру (сколько будет seWrite в этом случае нас не интересует - вызвав SendStream мы отдали все сложности передачи на откуп коду Delphi). А вот сколько событий OnClientRead будет на серверной стороне заранее никто не скажет.

Я опять не в те дебри полез?

Добавлено через 1 минуту и 57 секунд
Цитата(2134 @  6.2.2010,  02:56 Найти цитируемый пост)
как я могу добавить сообщение для чтения?

Чем не устраивает назначение события через инспектор объектов - ServerSocket.OnClientRead?
PM MAIL WWW   Вверх
2134
Дата 6.2.2010, 03:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 11.1.2010

Репутация: нет
Всего: нет



Цитата(kami @ 6.2.2010,  02:57)
Цитата(2134 @  6.2.2010,  02:35 Найти цитируемый пост)
Как и где я смогу понять, какое событие делает клиент

Не клиент делает событие, а Windows.
Наглядный пример - передаем с клиента большой файл с помощью SendStream. На клиенте мы вызывали одну процедуру (сколько будет seWrite в этом случае нас не интересует - вызвав SendStream мы отдали все сложности передачи на откуп коду Delphi). А вот сколько событий OnClientRead будет на серверной стороне заранее никто не скажет.

Я опять не в те дебри полез?

Добавлено @ 02:59
Цитата(2134 @  6.2.2010,  02:56 Найти цитируемый пост)
как я могу добавить сообщение для чтения?

Чем не устраивает назначение события через инспектор объектов - ServerSocket.OnClientRead?

Это можно не объяснять, а то уже голова от этого кипит.
За 3 дня все изучил и не мог понять откуда мы получаем событие, ошибку допустил.

Допустим клиент отправил событие, на сервере мы полчумаем сообщение сокета.

Вопрос: Как я могу добавить новое сообщение, чтоб сервер получив это сообщение обработал запрос.

Код

         WinSock.pas

FD_COMMAND = $24

         ScktCopm.pas

procedure TCustomWinSocket.CMSocketMessage

case message of

   FD_COMMAND: comannd(FSocket);

end;

procedure TCustomWinSocket.comannd(Socket: TSocket);

Event(Self, seComm);






Это сообщение отредактировал(а) 2134 - 6.2.2010, 03:07
PM MAIL   Вверх
kami
Дата 6.2.2010, 03:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72



Цитата(2134 @  6.2.2010,  03:02 Найти цитируемый пост)
Допустим клиент отправил событие, на сервере мы полчумаем сообщение сокета.

Мы опять вернулись к началу.
Давайте разберемся с терминологией.
События не отправляются, они возникают в результате чего-либо. Это что-либо в случае наших компонентов будет: готовность к подключениям (Listening)/В ходе подключения (OnConnecting)/ Подключено (OnConnect)/ ГОТОВНОСТЬ к записи (а не запись, как некоторые ошибочно думают) (OnWrite)/Что-то пришло от корреспондента, нужно прочитать (OnRead) и т.п.
И клиент и сервер могут отправлять сообщения. В результате отправки и приема сообщений (которые могут быть различных типов данных, я уже говорил, что сокетам это глубоко симметрично) и возникают события.

Еще раз, тот же вопрос, но с учетом терминологии, пожалуйста.
Только лучше - завтра (вернее, уже сегодня).
PM MAIL WWW   Вверх
2134
Дата 6.2.2010, 03:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 11.1.2010

Репутация: нет
Всего: нет



Я говорил про эти сообщения:

Код

{ Define flags to be used with the WSAAsyncSelect() call. }

  {$EXTERNALSYM FD_READ}
  FD_READ         = $01;
  {$EXTERNALSYM FD_WRITE}
  FD_WRITE        = $02;
  {$EXTERNALSYM FD_OOB}
  FD_OOB          = $04;
  {$EXTERNALSYM FD_ACCEPT}
  FD_ACCEPT       = $08;
  {$EXTERNALSYM FD_CONNECT}
  FD_CONNECT      = $10;
  {$EXTERNALSYM FD_CLOSE}
  FD_CLOSE        = $20;



Могу ли я как-то добавить своё событие и внедриеть его в систему.

Код

{ Define flags to be used with the WSAAsyncSelect() call. }

  {$EXTERNALSYM FD_COMM}
  FD_COMM         = $24;



Добавлено через 49 секунд
Жду с нетерпением, до завтра.
PM MAIL   Вверх
kami
Дата 6.2.2010, 03:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72



Цитата(2134 @  6.2.2010,  03:19 Найти цитируемый пост)
Могу ли я как-то добавить своё событие и внедриеть его в систему.

Нет. Это не сообщения, а параметр сообщения CMSocketMessage.
И если значение CMSocketMessage выбирать можно самому при вызове WSAAsyncSelect, то параметры определены Windows-ом, и именно она определяет, что отправить в оконную функцию TCustomWinSocket. Набора этих параметров, определенных в MSDN, более чем достаточно для полного контроля за сетевым обменом.

Можно, конечно, извратиться и отправить
PostMessage(Socket.Handle, CM_SOCKETMESSAGE, Socket.SocketHandle, MakeLParam(FD_COMM, 0));
но это НИЧЕГО не даст, ибо будет отправлено сокету на СВОЕМ конце сетевого соединения. Корреспондент же об этом не узнает, и в логике работы обмена по TCP - и не должен знать.
PM MAIL WWW   Вверх
2134
Дата 6.2.2010, 03:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 11.1.2010

Репутация: нет
Всего: нет



Значит ломал голову и все зря. Но хотя бы понял, что и откуда.

Эм... может есть решение проблемы, получения "ReceiveBuf и ReceiveText" на один сокет.

Я вот думал, может принятый буфер, как клиента записывать в новый компонент и ставить в очередь, а после его обработки удалять.

Думаю, это намного практичнее, чем создавать два сокета и работать с ними двумя.

Это сообщение отредактировал(а) 2134 - 6.2.2010, 04:11
PM MAIL   Вверх
kami
Дата 6.2.2010, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72



Цитата(2134 @  6.2.2010,  03:55 Найти цитируемый пост)
Эм... может есть решение проблемы, получения "ReceiveBuf и ReceiveText" на один сокет.

Да вообще нет такой проблемы, и не было никогда. Нужен только пользовательский протокол обмена.
Цитата(kami @  6.2.2010,  01:43 Найти цитируемый пост)
Для сетевых компонентов глубоко симметрично, что через них передается - строки, буферы памяти, различные потоки - всё воспринимается как чистые данные. Сетевые компоненты не знают (и не должны), какими были исходные данные. Более того, они даже не знают при приеме их размер (попробуйте отправить в соединение '123' и следующим оператором '456'. На приеме Вы получите (скорее всего) '123456' - за ОДНО событие OnRead). Как интерпретировать входящий трафик(т.е. какой взять приемный буфер) - это Ваша проблема, и задаваться она должна определением Вашего (пользовательского) протокола обмена. 

И ничто не мешает делать конвертацию буфер <=> строка <=> поток (Stream) в ЛЮБОМ удобном для Вас месте.
Это я про то, что принимать можно как угодно - строками, в буфер. И потом переконвертировать в то, что нужно.


Это сообщение отредактировал(а) kami - 6.2.2010, 12:10
PM MAIL WWW   Вверх
2134
Дата 7.2.2010, 05:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 11.1.2010

Репутация: нет
Всего: нет



В общем вернулись к тому с чего я начинал.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0763 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.