Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

Послать сообшение (как командой Net Send)?   Найти похожие ветки 

 
Monster_Kot   (2002-12-02 07:37) [0]

Помогите кто чем может!
Необходимо послать сообшение на компьютер по сети как это делается командой Net Send только программно.
Желательно примерчик...
Я пытался использовать функции NetMessageNameAdd, NetMessageBufferSend - не получатся т.е. сообщение не доходит до адресата!


 
kostik78ua   (2002-12-02 09:26) [1]

Function SendLanMessage: boolean;
Var
HostName: LPCWSTR;
RName: LPCWSTR;
buf: Pointer;
text: String;
size: Integer;
Begin
HostName := Nil;
RName := PWideChar(widestring(Form1.Edit1.Text));
text := Form1.Edit2.Text;
size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);
Result:=NetMessageBufferSend (HostName, RName, Nil, buf, size) = NO_ERROR;
End;


 
Monster_Kot   (2002-12-03 03:32) [2]

Ага! Я точно так-же писал!...
Только этот код не работает!
Может еще кто подскажет?



Страницы: 1 вся ветка

Текущий архив: 2003.01.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
3-62346
Хочу попробовать
2002-12-27 13:59
2003.01.20
База для наладонника


3-62387
MsGuns
2002-12-23 20:37
2003.01.20
Можно ли одним запросом..


1-62496
Palladin
2003-01-09 16:22
2003.01.20
вызов метода потока


3-62410
viper
2002-12-26 12:32
2003.01.20
Выбор за период


14-62820
ДедушкаКо
2003-01-02 10:32
2003.01.20
Таблетки посоветуйте. Ну как у Руматы, но с вариантами.