dnsr_main.pas

完整DNS查詢解析工具,相當於DOS Prompt下的nslookup,可以讓你知道要如何查網域的MX,NS,Address等資料

unit DNSR_Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
  IdDNSResolver, StdCtrls, ExtCtrls;

const
     MyBreak = '========================';
     Code_Suspend = -2;
type
  TDNS_Main = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    H1: TMenuItem;
    MItem_Config: TMenuItem;
    N1: TMenuItem;
    MItem_Exit: TMenuItem;
    H2: TMenuItem;
    N2: TMenuItem;
    MItem_About: TMenuItem;
    Panel1: TPanel;
    Label1: TLabel;
    Ed_Query: TEdit;
    Panel2: TPanel;
    Label2: TLabel;
    LB_QueryType: TListBox;
    Btn_Query: TButton;
    Panel3: TPanel;
    Label3: TLabel;
    Memo_Result: TMemo;
    procedure MItem_ConfigClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MItem_ExitClick(Sender: TObject);
    procedure Btn_QueryClick(Sender: TObject);
    procedure MItem_AboutClick(Sender: TObject);
  private
    { Private declarations }
    FDNS_Server: String;
    procedure SetDNS_Server(const Value: String);
  public
    { Public declarations }
    property DNS_Server : String read FDNS_Server write SetDNS_Server;
    function DNS_Perform_Query(Question:string; var Value:string):integer;
  end;

var
  DNS_Main: TDNS_Main;

implementation

uses About;

{$R *.DFM}

{ TDNS_Main }

procedure TDNS_Main.SetDNS_Server(const Value: String);
begin
  FDNS_Server := Value;
end;

procedure TDNS_Main.MItem_ConfigClick(Sender: TObject);
var
   Input_DNS : String;
begin
     Input_DNS := DNS_Server;
     if InputQuery('DNS Server