TIdDNSResolver

type TIdDNSResolver = class(TIdTCPConnection)

protected

  FAllowRecursiveQueries: Boolean;

  FInternalQuery: TIdBytes;

  FQuestionLength: Integer;

  FHost: string;

  FIPVersion: TIdIPVersion;

  FPort: TIdPort;

  FQueryResult: TQueryResult;

  FQueryType: TQueryType;

  FWaitingTime: Integer;

  FPlainTextResult: TIdBytes;

  FDNSHeader: TDNSHeader;

  procedure SetInternalQuery();

  procedure SetPlainTextResult();

  procedure InitComponent; override;

  procedure SetIPVersion(); virtual;

  procedure SetPort(); virtual;

public

  property DNSHeader: TDNSHeader; [r]

  procedure ClearInternalQuery;

  destructor Destroy; override;

  procedure ParseAnswers();

  procedure CreateQuery();

  procedure FillResult();

  procedure FillResultWithOutCheckId();

  procedure Resolve();

  property QueryResult: TQueryResult; [r]

  property InternalQuery: TIdBytes; [rw]

  property PlainTextResult: TIdBytes; [rw]

published

  property QueryType: TQueryType; [rw]

  property WaitingTime: Integer; [rw]

  property AllowRecursiveQueries: Boolean; [rw]

  property Host: string; [rw]

  property Port: TIdPort; [rw]

  property IPVersion: TIdIPVersion; [rw]

end;

TIdDNSResolver

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject