Hi,
ich versuche so den mailserver rauszubekommen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
a: TMXRecord;
DNSResult: string;
begin
try
DNS.Resolve('http://www.domain.de');
except
DNS.QueryResult.Clear;
end;
if DNS.QueryResult.Count > 0 then
for I := 0 to Pred(DNS.QueryResult.Count) do
if DNS.QueryResult.Items[I] is TARecord then begin
A := (DNS.QueryResult.Items[I] as TMXRecord);
DNSResult := DNSResult + A.ExchangeServer + ',';
end;
ShowMessage(DNSResult);
end;
da bekomme ich eine exeption das abfrageformat wäre ungültig (meldet der server). also
http://www.domain.de
aber wie soll ichs denn dann abfragen???
*MFG*