| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сообщение по ЛАН [D6, Win95/98, WinME, NT4, Win2k, WinXP]

MystiX ©   (2003-03-03 20:58:00) 

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

---

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


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 указывает, что консоль недолжна отображаться*)
Вчера написал программу для этого, пишу - вышлю исходники.


---

MystiX   (2003-03-04 20:19:00) [2]

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

---

Anatoly Podgoretsky   (2003-03-04 19:04:00) [3]

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

---

Evgeny222   (2003-03-04 18:12:00) [4]

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

---

MystiX   (2003-03-04 17:55:00) [5]

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

---

O6OPMOT   (2003-03-04 13:28:00) [6]

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

---

Носов Максим   (2003-03-04 03:37:00) [7]


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;


---

Rouse_   (2003-03-03 21:28:00) [8]

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

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

---

Наверх