Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по NetMessageBufferSend [D5, Win95/98, Win2k]

Vagrant © (2002-10-10 04:36:00)
Всем привет! У меня пару вопросов по NetMessageBufferSend.
1. Почему при отправке сообщения на комп с операционкой W9x сообщение не доходит до адресата?

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

сверчок (2002-10-14 08:59:00) [1]
на вин9* для приема сообщения должна быть запущена прога вроде Winpopup

Rouse_ (2002-10-10 05:14:00) [2]
WinPopUp

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

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

/

Vagrant (2002-10-10 05:05:00) [3]
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 04:40:00) [4]
Покажи код, как ты отправляешь и как принимаешь

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »