popup сообщение

← →
_Andrey (2005-04-05 13:02) [0]

Уважаемые мастера, помогите с такой проблемой:
Пишу программу для отправки простых попап сообщений по сети, используя mailslot\messngr.
Когда сообщение доходит до клиента оно может повторяться до четырех раз, хотя отправляю я только одно. Т.е. получается послал один раз, а пришло 1,2,3 и больше одинаковых сообщений.
Вот код отправки самому себе на комп: comp-имя моего компа.

function send():boolean;
var h:THandle;
BytesWritten:DWord;
Slot,s:String;
begin
result:=false;
s:=#0+#0+"test";
Slot:="\\comp\mailslot\messngr"; //имя mailslot"а
h:=CreateFile(PChar(Slot),
GENERIC_WRITE,
FILE_SHARE_READ,
NIL,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
if h<>INVALID_HANDLE_VALUE then
begin
if WriteFile(h,Pointer(s)^,Length(s),BytesWritten,NIL) <> false then result:=true;
end else result:=false;
end;

проверка BytesWritten показывает что послано ровно 6 байт. В чем же может быть проблемма?

← →
Hawkie © (2005-04-09 00:18) [1]

У меня сообщение стабильно передается дважды.
Почему пока не разобрался.

А случайно обратной задачей: получением popup сообщения ты не занимался?

← →
Hawkie © (2005-04-09 00:19) [2]

← →
Hawkie © (2005-04-09 00:19) [3]

← →
aus (2005-04-09 18:22) [4]

:))
aus, то были малеха траблы со связью

aus, ты случакем получением popup сообщения ты не занимался?

popup сообщение Найти похожие ветки