Сообщение по ЛАН

← →
MystiX © (2003-03-03 20:58) [0]

Как можно послать по лан сообщение(что бы оно появилось у адресата в окошке как от showmessage), зная IP?

← →
Rouse_ © (2003-03-03 21:28) [1]

Если с НТ на НТ то используя net send
Если запущен WinPopup, используй mailslots

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

← →
Носов Максим (2003-03-04 03:37) [2]

procedure TForm1.BitBtn1Click(Sender: TObject); Var A,Cur:LongInt; begin Form1.Enabled:=False; Cur:=Screen.Cursor; Screen.Cursor:=-11; For A:=0 to ListView1.Items.Count-1 do If ListView1.Items.item[A].Checked Then Begin WinExec(Pchar("Net send "+ListView1.Items.item[A].Caption+" "+Edit1.text),SW_HIDE); AddLog("Отправлено сообщение по адресу "+ListView1.Items.item[A].Caption+" ""+Edit1.text+"""); End; Form1.Enabled:=True; Screen.Cursor:=Cur; end;

← →
O6OPMOT (2003-03-04 13:28) [3]

убивать таких надо, кто до сих пор net send пользует.

← →
MystiX © (2003-03-04 17:55) [4]

O6OPMOT, с удовольствием узнал твой вариант.
Носов Максим, конечно спасибо, но можно с коментариями, я пока в сетевом программировании не очень

← →
Evgeny222 (2003-03-04 18:12) [5]

O6OPMOT, так как все-таки ? Не используя net send ?

Evgeny222 (04.03.03 18:12)
Совсем не ценишь жизнь?

Ну может кто-то объяснит как это использовать, а то ещё в потрепаться перенесут и про вопрос все забудут.

← →
Носов Максим (2003-03-05 02:47) [8]

If ListView1.Items.item[A].Checked Then (*если в списке выбраны элементы, то открывается NET SEND передаётся адрес получателя из списка ListView1.Items.item и ссответственно текст сообщения Edit1.text*) Begin WinExec(Pchar("Net send "+ListView1.Items.item[A].Caption+" "+Edit1.text),SW_HIDE); (*SW_HIDE указывает, что консоль недолжна отображаться*) Вчера написал программу для этого, пишу - вышлю исходники.

Сообщение по ЛАН Найти похожие ветки