网络时断时续，如何监测网络的连接状态呢？

Question

实时监测!无人值守的

Answer 1

做个ping的程序，看ping值的大小以及丢包率等参数

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  WSData:TWSAData;
  Buffer:array[0..63]of Char;
  HostEnt:PHostEnt;
  PPInAddr:^PInAddr;
  //字符串格式IP
  IPString:String;
begin
  IPString:='';
  WSAStartUp($101,WSData);
  try
    GetHostName(Buffer,SizeOf(Buffer));
    HostEnt:=GetHostByName(Buffer);
    if Assigned(HostEnt) then
    begin
      PPInAddr:=@(PInAddr(HostEnt.H_Addr_List^));
      while Assigned(PPInAddr^) do
      begin
        IPString:=StrPas(INet_NToA(PPInAddr^^));
        if IPString='127.0.0.1' then showmessage('没有连接')
        else showmessage(IPString+'已经连接');
        Inc(PPInAddr);
      end;
    end;
  finally
    WSACleanUp;
  end;
end;