Find dns-opsætning Emailprogram

gå i cmd og skriv ipconfig

hvilken udbyder har du, eller skal du op imod et domain?

du kan også lave en ipconfig /all for at få alle oplysninger

Jeg er ved at lave et mailprogram der selv skal finde det i systemvariablerne i delphi :-) (For at brugeren skal slippe for cmd)

Man kan selvfølgelig kigge i regedt32 men det kunne være lækkert hvis der var en system variabel man kunne kalde for at få en aktiv dns-server.

Mailprogrammet har egen SMTP relay server den skal bruge en DNS server til at lave nogle opslag, så jeg er interesseret i en IP-adresse

Man kan få komponenter til det... Om de er gratis det ved jeg ikke... Prøv bare at søge på Google på "delphi dns" (uden ")...
Men hvis det skal være "Pure code" så kan jeg ikke hjælpe dig ;-)

Michael

det skal være code :-)

nårh.... ;-)

Jeg har svært ved at se hvad du skal med adressen på DNS serveren. Du kan sagtens lave DNS opslag uden at kende DNS serverens adressse hvis det er det der er problemet?

Du kan forresten finde DNS serverens adresse ved at kalde GetAdaptersAddresses() i Windows API.

Hvordan laver man et DNS-opslag uden at bruge en DNS-server ?

Et lille kodeeksempel i Delphi vil være fint :-)

Du kan ikke lave DNS opslag uden en DNS server, men du behøver ikke nødvendigvis at kende adressen. Jeg har strikket lidt kode sammen som kan slå IP'er og hostnames op:

function GetHostFromIP(sIPAddress: string): string;
var
    WSAData: TWSAData;
    addr : Cardinal;
    lpHost: PHostEnt;
begin
    Result := '';
    if WSAStartup(MakeWord(1,0), WSAData) = 0 then
    begin
        addr := inet_addr(PChar(sIPAddress));
        lpHost := GetHostByAddr(@addr, sizeof(addr), AF_INET);
        if lpHost <> nil then
            Result := StrPas(lpHost^.h_name)
        else
            Result := sIPAddress;
        WSACleanup;
    end;
end;

function GetIPFromHost(sHostname: string): string;
var
    WSAData: TWSAData;
    lpHost: PHostEnt;
begin
    Result := '';
    if WSAStartup(MakeWord(1,0), WSAData) = 0 then
    begin
        lpHost := GetHostByName(PChar(sHostname));
        if lpHost <> nil then
        begin
            Result := StrPas(inet_ntoa(PInAddr(lpHost^.h_addr^)^));
        end
        else
            Result := sHostname;
        WSACleanup;
    end;
end;

Min problemstilling er at komponenten går ind og laver det nummer som du gør med at slå IP ud fra domænenavn i emailadressen.

Den er ikke sådan lige at rette i og den behøver en ipadresse på en dnsserver.

:-)

Er det fordi du selv vil slå MX recorden op eller hvad er vi ude i? Har du i øvrigt overvejet at bruge nogen af Indy komponenterne? De har en række mail komponenter som jeg skulle mene kunne finde ud af at slå den rigtige MX op.

Ellers må GetAdaptersAddresses() være vejen frem hvis du selv vil klare det. Den er godt nok ikke defineret i Delphi men det kan der jo laves om på :o) Den virker kun på Windows 2000 og fremefter. Ellers må den eneste udvej være regdb'en.

Det skal helt specifikt bruges til denne emailkomponent

http://www.legitima.com/delphi.htm#TSmtpRelayServer

sp lukket