用delphi7的向局域网中的其它计算机发送信息？给高分！

Question

怎样用delphi7实现局域网你信息的发送与接收
1、向所有的计算机发送信息？
2、向指定的计算机发送信息？
是不是用Indy控件可以实现，用哪个？怎样用？

Answer 1

Winexec('net send MiNiDog 哈哈',0);

Answer 2

在DELPHI 6 中用IdUDPServer,和IdUDPClient就可以，，，
IdUDPServer 可以实现网络广播。你看一看例子就可以了

Answer 3

上面的哄小孩呢！！！
我感觉IdUDPServer，和IdUDPclient能够做到，问题是我不会用

Answer 4

不会用可以Google源码, 看看就得了

Answer 5

不好意思我是说
 foxyy8888(幻想狂的内心世界) ( ) 信誉：100  2003-03-06 11:29:00  得分:0 
  Winexec('net send MiNiDog 哈哈',0)
  
 上面的哄小孩呢！！！
我感觉IdUDPServer，和IdUDPclient能够做到，问题是我不会
没说 wh_mimi() 

Answer 6

帮我解释一下这段代码
procedure TfrmMain.Test(IdUDPClient: TIdUDPClient);
var
  s, peer: string;
  port: integer;
  counter: integer;
begin
  counter := 1;
  try
  IdUDPClient.Send(Format('test #%d', [counter]));
  repeat
  try
  s := IdUDPClient.ReceiveString(peer, port);
  except
  on E: EIdSocketError do
  if E.LastError <> 10040 then
  raise;
  end;
  if s <> '' then
  ShowMessage(Format('%s:%d said'#13'%s', [peer, port, s]));
  until s = '';
  finally
  end;
end;

Answer 7

直接调用WINDOWS里面的WINPOP(<DELPHI编程技巧<网络与数据库>>,这本书里面有.
我才用过

Answer 8

net send ,最简单。：）

Answer 9

上面的兄弟说的对,我就经常用Send给办公室的MM发发笑话