DynDNS Abgleich der IP-Adresse
Sprache:
Delphi 7
Inhalt:
Hier wird gezeigt wie man in seinem DynDNS Account die IP-Adresse auf seinen DynDNS-Namen neu setzen kann. Gibt die Funktion den Wert "good" zurück, so war die Änderung erfolgreich. Andernfalls wird eine Fehlermeldung zurück gegeben. Diese Funktion funktioniert bei den freien Zugängen, sowie bei den Bezahlaccounts. Achtung: Wenn man diese Funktion zu oft hintereinander ausführt kann der Hostname gesperrt werden. Es ist zwar möglich diesen wieder zu entsperren, aber bei den freien Account geht das nur 10 mal. Danach ist der Hostname für immer gesperrt und kann nicht mehr mit anderen IP'S genutzt werden.
Quellcode:
uses IdHTTP;
function UpdateDynDNS(AuthUser,AuthPass,Domain,IP:string):string;
begin
try
with TIdHTTP.Create(nil) do
try
Request.BasicAuthentication := True;
Request.Username := AuthUser;
Request.Password := AuthPass;
result:=Get(Format('http://'+AuthUser+':'+AuthPass+'@members.dyndns.org/nic/update?system=dyndns&hostname=%s&myip=%s&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG', [Domain, IP]));
finally
Free;
end
except
ON e:exception do result:=e.Message;
end;
end;
// Anwendungsbeispiel
procedure TForm1.Button1Click(Sender: TObject);
var antwort:string;
begin
antwort:=UpdateDynDNS('benutzer','passwort','domainname.dyndns.org','10.10.10.10');
showmessage(antwort); // Antwort = "good" wenn alles geklappt hat.
end;