TIdDNS_ProcessThread

type TIdDNS_ProcessThread = class(TIdThread)

protected

  FMyBinding: TIdSocketHandle;

  FMainBinding: TIdSocketHandle;

  FMyData: TStream;

  FData: TIdBytes;

  FServer: TIdDNS_UDPServer;

  procedure SetMyBinding();

  procedure SetMyData();

  procedure SetServer();

  procedure ComposeErrorResult();

  function CombineAnswer();

  procedure InternalSearch();

  procedure ExternalSearch();

  function CompleteQuery();

  procedure SaveToCache();

  function SearchTree();

  procedure Run; override;

  procedure QueryDomain;

  procedure SendData;

public

  property MyBinding: TIdSocketHandle; [rw]

  property MyData: TStream; [rw]

  property Server: TIdDNS_UDPServer; [rw]

  constructor Create(); overload;

  destructor Destroy; override;

end;

TIdDNS_ProcessThread

TIdThread

TObject