タイトル

procedure TForm1.FormCreate(Sender: TObject);
  function AddDNSEntryA(AIP, AHost : String; ATTL:Integer=18000): Boolean;
    var
      LRR_A : TIdRR_A;
      LIdDNS_UDPServer : TIdDNS_UDPServer;
  begin
    LIdDNS_UDPServer := IdDNSServer1.UDPTunnel;
    LRR_A := TIdRR_A.Create; // Do not call Free.
    if TextEndsWith(AHost, '.') then
      LRR_A.RRName := AHost
    else
      LRR_A.RRName := AHost + '.';
    LRR_A.Address := AIP;
    LRR_A.TTL := ATTL;
    LIdDNS_UDPServer.UpdateTree(LIdDNS_UDPServer.Handed_Tree, LRR_A);
    if Assigned(LIdDNS_UDPServer.FindHandedNodeByName(LRR_A.RRName, TypeCode_A))
       and
       (LIdDNS_UDPServer.Handed_DomainList.IndexOf(LRR_A.RRName) = -1) then
       LIdDNS_UDPServer.Handed_DomainList.Add(LRR_A.RRName);
     Result := True;
  end;
begin
  with IdDNSServer1 do
  begin
    // RootDNS_NET : Default timeout 5000msec (hard coding) : TIdDNS_UDPServer.ExternalSearch
    UDPTunnel.RootDNS_NET.Clear; // Clear invalid Indy's buildin DNS address
    UDPTunnel.RootDNS_NET.Add('1.1.1.2'); // 1.1.1.1 for Families adds a layer of malware protection
    Bindings.Clear();
    UDPTunnel.Bindings.Clear();

  AddDNSEntryA('127.0.0.1', 'localhost'); // add localhost
  AddDNSEntryA('127.0.0.1', 'localhost.home');

  //InitForm;
end;

uses IdGlobal, IdDNSCommon, IdSocketHandle;

function GetIPAdressFromHostName(AHostName : string; ADNS : string = '1.1.1.1') : string;
  var i : Integer;
begin
  Result := '';
  with TIdDNSResolver.Create(nil) do
  try
    Host := ADNS;
    QueryType := [qtA];
    Resolve(AHostName);
    for i := 0 to QueryResult.Count -1 do
      if QueryResult.Items[i].RecType = qtA then
      begin
        Result := TARecord(QueryResult.Items[i]).IPAddress;
        Break;
      end;
  finally
    Free;
  end;
end;

function GetHostNameFromIPAddress(AIP : string; ADNS : string = '1.1.1.1') : string;
  var i : Integer;
begin
  Result := AIP;
  with TIdDNSResolver.Create(nil) do
  try
    Host := ADNS;
    QueryType := [qtPTR];
    Resolve(AIP);
    for i := 0 to QueryResult.Count -1 do
      if QueryResult.Items[i].RecType = qtPTR then
      begin
        Result := TPTRRecord(QueryResult.Items[i]).HostName;
        Break;
      end;
  finally
    Free;
  end;
end;

ブログ内　関連記事: Windows ホストにDNSサーバーを立てる

• Windows11 ブラウザが遅い 遅延する 24h2
• Windows メモ帳のコマンドラインオプション notepad options 11 24H2
• Windows11 メモ帳 がシフトジス文字化けするようになった ... メモ帳自動切換えくん
• Git bash: ファイル名の文字化けを直す方法 8進数エスケープされた日本語
• [git] 既存のリポジトリを sha256 に移行してみた！
• and more...