在INDY9以后就没有了！！ ( 积分: 100 )

IdDNSResolver控件，请问：
procedure TSendThread.GetMxList(AMxList: TStringList; AQName: string);
var
i: Integer;
begin
try
with IdDNSResolver do
begin
Host:=FDNSServer;
ReceiveTimeout := 6000;
//Host :='202.98.160.68';
//'202.101.107.55';
ClearVars;
with DNSHeader do
begin
Qr := False; // False 代表查询
Opcode := 0; // 0代表标准域名查询
RD := True; //域名服务器可以进行递归查询
QDCount := 1; //查询的数量
end;
DNSQDList.Clear;
with DNSQDList.Add do
begin
QName := AQName; //要查询的域名
QType := cMX; //QTYPE指定要查询的资源记录的种类，值为cMX代表邮件交换记录
QClass := cIN;
end;
try
ResolveDNS; //向域名服务器发出请求
except
LogMsg:='向域名服务器请求失败,邮件地址：'+Email;
Synchronize(ExceptProc);
end;
for i := 0 to DNSAnList.Count - 1 do
AMxList.Add(DNSAnList.RData.MX.Exchange + '=' +
IntToStr(DNSAnList.RData.MX.Preference));
end;
except
{ on E : Exception do
Synchronize(ExceptProc);}
//MessageDlg('Error resolving domain: ' + e.message, mtInformation, [mbOK], 0);
end;
end;
我以前使用的这个代码要使用什么控件来代替呢？？？

IdDNSResolver控件，请问：
procedure TSendThread.GetMxList(AMxList: TStringList; AQName: string);
var
i: Integer;
begin
try
with IdDNSResolver do
begin
Host:=FDNSServer;
ReceiveTimeout := 6000;
//Host :='202.98.160.68';
//'202.101.107.55';
ClearVars;
with DNSHeader do
begin
Qr := False; // False 代表查询
Opcode := 0; // 0代表标准域名查询
RD := True; //域名服务器可以进行递归查询
QDCount := 1; //查询的数量
end;
DNSQDList.Clear;
with DNSQDList.Add do
begin
QName := AQName; //要查询的域名
QType := cMX; //QTYPE指定要查询的资源记录的种类，值为cMX代表邮件交换记录
QClass := cIN;
end;
try
ResolveDNS; //向域名服务器发出请求
except
LogMsg:='向域名服务器请求失败,邮件地址：'+Email;
Synchronize(ExceptProc);
end;
for i := 0 to DNSAnList.Count - 1 do
AMxList.Add(DNSAnList.RData.MX.Exchange + '=' +
IntToStr(DNSAnList.RData.MX.Preference));
end;
except
{ on E : Exception do
Synchronize(ExceptProc);}
//MessageDlg('Error resolving domain: ' + e.message, mtInformation, [mbOK], 0);
end;
end;
我以前使用的这个代码要使用什么控件来代替呢？？？

最受不了Indy了。
换个版本后，接口什么都变了。
这样的东西居然还成了Delphi的标准控件。

接受答案了.