Дублирования пакетов при работе с мэйлслотами
Пишу клиент серверное приложение. На сервере создан мэйлслот на чтение в который постоянно пишут клиенты.
На компе 2-е сетевые карты. К серверу приходят сразу два сообщения!
клиент:
[code=delphi]
Mailslot := CreateFile(PChar(Format(cMailSlot, [GetComputerNetName, MailSlotName])),
GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
[/code]
сервер:
[code=delphi]
Mailslot := CreateMailslot(PChar(Format(cMailSlot, ['.', MailSlotName])),0, 0, nil);
[/code]
Вопрос:Как избавится от дублирования пакетов?
|