你的服务器可可以象整个局域网发广播.客户端收听.
如果在同一网段可以看看下面的代码!
服务器:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
NMUDP1.SendBuffer(xkeyword,6);
end;
服务器还可以将自己的IP广播出去
要代码我可以给你
客户端可以如下
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
begin
flagip:=FromIp;
NMUDP1.ReadBuffer(xkeyword,numberbytes);//监听
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
SocketConnection1.Address:=flagip;
if(xkeyword='starip')then
begin
SocketConnection1.Connected:=true;
flagstar:=1;
Timer2.Enabled:=false;
timer3.Enabled:=true;
//判断是否连接'连接成功'
end;
end;
基本思想是,服务器广播自己的ip,客户断在启动的几秒钟监听.如果客户端听到了服务器的
广播的ip,则将客户端的 SocketConnection.connected设置为true;,如果在这个时间内没有
听到,则提示出错对话框.很显然服务器没有启动,客户端是听不到的!而等待时间你是可以设置的.
上面我的代码就是反映了着个思想!
]