Entwickler-Ecke
Internet / Netzwerk - IP eines Hostnames finden
error - Fr 11.10.02 15:17
Titel: IP eines Hostnames finden
Hi,
ich habe einen Hostname (
http://www.aug.de) und brauch jetzt die IP von
http://www.auq.de als string. Wie mach ich das?
mfg error
O'rallY - Fr 11.10.02 20:05
Du kannst den Server anpingen, z.B. mit der Indy Komponente TIdIcmpClient. So erfährst du die IP. Ich glaub sogar das hier im Forum ein Tutorial ist, wie man pingt. Ich glaub aber mit der Fastnet Kompo.
SpeedyGTD - Sa 12.10.02 20:19
ich hab noch nie was mit den Indy Kompos gemacht, aber so wie ich das mache gehts nett. Also ich hab schonmal Port auf 53 eingestellt, hab nen Host angegeben, und dann ping gesendet, aber das kann nicht funktionieren, das wäre zu einfach :wink:
PS: Da ich keine Ahnung hab was ich für code schreiben soll hab ich erstmal keinen :wink:
noeppel - Do 24.10.02 09:15
Mit der Windows API kann man das wiefolgt lösen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| uses Winsock;
function LookupName(const Name: string): TInAddr;
var
HostEnt: PHostEnt;
InAddr: TInAddr;
begin
HostEnt := gethostbyname(PChar(Name));
FillChar(InAddr, SizeOf(InAddr), 0);
if HostEnt <> nil then
begin
with InAddr, HostEnt^ do
begin
S_un_b.s_b1 := h_addr^[0];
S_un_b.s_b2 := h_addr^[1];
S_un_b.s_b3 := h_addr^[2];
S_un_b.s_b4 := h_addr^[3];
end;
end;
Result := InAddr;
end;
function GetHostIP(HostName: String): String;
var
InAddr: TInAddr;
begin
InAddr := LookupName(HostName);
with InAddr.S_un_b do
Result := inttostr(Ord(s_b1))+'.'+inttostr(Ord(s_b2))+'.'+inttostr(Ord(s_b3))+'.'+inttostr(Ord(s_b4));
end; |
mfg noeppel
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!