Вопрос по NetMessageBufferSend

← →
Vagrant © (2002-10-10 04:36) [0]

Всем привет! У меня пару вопросов по NetMessageBufferSend.
1. Почему при отправке сообщения на комп с операционкой W9x сообщение не доходит до адресата?

2. Существует ли аналогичная функция для отправки сообщения рабочей группе?

← →
Rouse_ © (2002-10-10 04:40) [1]

Покажи код, как ты отправляешь и как принимаешь

Желаю успехов

← →
Vagrant © (2002-10-10 05:05) [2]

To Rouse_
> Покажи код, как ты отправляешь и как принимаешь

...Вот процедурка посылки сообщения

Function SendLanMessage(FromName,ToName:String;Text:String):Boolean
Var
RName,TName,HostName: LPCWSTR;
buf: Pointer;
size: Integer;
Begin
Result:=True;
HostName:=nil;

size := SizeOf (WideChar) * Length (FromName)+1;
GetMem (RName, Size);
RName :=StringToWideChar (FromName, RName, Length (FromName)+1);
size := SizeOf (WideChar) * Length (ToName)+1;
GetMem (TName, Size);
TName :=StringToWideChar (ToName, TName, Length (ToName) + 1);

// Перевод String в WideString
size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
TRY
PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);
If NetMessageBufferSend (HostName, rname, tname, buf, size) <> NO_ERROR
then Result:=False;
FINALLY
FreeMem(buf);
IF assigned(TNAME) then FreeMem(TName);
IF assigned(RNAME) then FreeMem(RName);
IF assigned(HOSTNAME) then FreeMem(HOSTNAME);
END;
End;

А насчет приема сообщения... Так за это отвечает операционка...
Мне кажется что для W9x нужно ставить какуюто службу....

← →
Rouse_ © (2002-10-10 05:14) [3]

WinPopUp

Желаю успехов

Вот пример отсылки в NT

/

← →
сверчок (2002-10-14 08:59) [4]

на вин9* для приема сообщения должна быть запущена прога вроде Winpopup

Вопрос по NetMessageBufferSend Найти похожие ветки