50分求局域网通信软件原码

Question

公司要俺做一个局域网内的通知系统，主要功能就是能向指定IP发送消息。请问哪位大虾有关这方面的源代码可以供参考的？谢谢啦

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
   sock : TCustomWinSocket;
begin
   for i :=0 to ServerSocket1.Socket.ActiveConnections - 1 do
   begin
       sock := ServerSocket1.Socket.Connections[1];
       if sock.RemoteHost = '192.168.0.88' then
       begin
          sock.SendText('hello');
       end;
   end;
end;试看看。

Answer 2

delphi安装目录下的Demo就有这方面的例子

Answer 3

delphi本身就有这样的例子的！

Answer 4

能具体点吗？delphi7 哪个文件夹是那样的例子阿，：（

Answer 5

向指定ip发消息用socket可不行，除非你在每个客户端都安装socket通讯程序，这样实现起来好像比较费劲（而且也不是每个MM/GG都愿意让你装东西的^_^）,如果是2000/xp系统就简单了
exec（"net send 192.168.0.111 ""消息内容 消息内容"""）