er1.RequestedRecords := [cA];
      try
      {ORBS http://www.orbs.org}
      IdDNSResolver1.ResolveDomain(ReverseIPAddress(cboList.Text) + stORBS);
      for idx := 0 to Pred(IdDNSResolver1.Answers.Count) do
      begin
      try
      if IdDNSResolver1.DNSAnList[idx].AType = cA then
      begin
      Memo1.Lines.Add(cboList.Text + ' is in ORBS');
      end;
      except
      end;
      end;
      except
      Memo1.Lines.Add('Not in ORBS');
      end;
    end;
    
    procedure TForm1.btnCheckIPClick(Sender: TObject);
    begin
      Memo1.Clear;
      if (cboList.Text = '') then exit;
      application.processmessages;
      IdDNSResolver1.ClearVars;
      IdDNSResolver1.Host := txtDNSServer.text;
    
      Memo1.Lines.Add('Checking ' + cboList.Text);
      Check_RBL;
      Check_DUL;
      Check_RSS;
      Check_ORBS;
      Memo1.Lines.Add('------- finished -------');
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      FillCombo;
    end;
    
    procedure TForm1.FillCombo;
    begin
      with cboList do
      begin
      clear;
      items.add('127.0.0.2'); //test  RBL, ORBS
      items.add('127.0.0.3'); //test  DUL
      items.add('209.132.59.86'); //RBL
      items.add('209.211.253.248'); //RBL ORBS
      items.add('160.79.241.223'); //RBL
      items.add('198.30.222.8'); //in nothing
      items.add('205.147.234.77'); //ORBS
      items.add('206.67.55.130'); //RBL[br

上一篇：mapmanage.pas
下一篇：小学英语作文:讨厌的蟑螂(双语)