VPF::Прием разных пакетов на Один порт

GooD

Дата 21.10.2004, 23:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет всем!
В своей программе я использую TidUDPServer и TidUDPClient Клиет посылает какую небуть структуру Серверу он её принемает. Есле я хочу отправить на это же сервер друдую структуру то как мне узнать какая это именна структура?
Тоесть:

Код

procedure TForm1.UDPServer.UDPRead(...);
var
 S1: TStyctyra1;
 S2: TStyctyra2;

begin
if {Сдесь мне надо узнать какая имменно струтура пришла. Есле первая то} then
 AData.ReadBuffer(S1,SizeOf(s1))
else{Есле вторая то}
 AData.ReadBuffer(S2,SizeOf(s2));
end;

Как это можно сделать?
Заранее спасибо за ответ!

<Spawn>

Дата 22.10.2004, 05:28 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Продумай заголовок пакета, в котором идентифицируй свои структуры.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Гость_Гость

Дата 22.10.2004, 06:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Блин, а по подробнее можно

p0s0l

Дата 22.10.2004, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Перед отправкой структуры отправляй всегда какой-нибудь ID структуры.
К примеру, так:

Код

var
 S1: TStyctyra1;
 S2: TStyctyra2;
 S3: TStyctyra3;
 ID : DWORD;

begin
  AData.ReadBuffer(ID, SizeOf(ID));
  case ID of
    1 : AData.ReadBuffer(S1,SizeOf(s1));
    2 : AData.ReadBuffer(S2,SizeOf(s2));
    3 : AData.ReadBuffer(S3,SizeOf(s3));
  end;
end;

Клиент перед посылкой структуры TStyctyra1 посылает DWORD(1),
перед посылкой TStyctyra2 посылает DWORD(2) и т.д....

--------------------

С уважением, г-н Посол.

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