IP-Adressen höchzählen

[josef]

Danke!
Geht!

[josef]

Zitat:

Zitat von Totaler Anfänger

Angenommen du hast die Adresse als String, dann nimmst du

inet_addr() um sie in einen ULONG (DWORD) umzuwandeln. Ist der Rueckgabewert = $FFFFFFFF = DWORD(-1) dann ist ein Fehler bei der Umwandlung aufgetreten.

Problem:
inet_addr() will einen PAnsiChar und nimmt meinen String nicht!!!
IP:=inet_addr(PAnsiChar(GetLocalIP); Meldet 'Fehler bei Bereichsprüfung'

//edit:
MitIP:=inet_addr(PAnsiChar('127.0.0.1'); Meldet 'Fehler bei Bereichsprüfung' gehts
Liegt wohl an der ausgabe von GetLocalIP

[-Amazeroth-]

Delphi-Quellcode:

inet_addr(@ipstring[1]);

[josef]

Danke an alle.
Jetzt hab ich nur noch ein Problem!
Wie konvertier ich einen Integer nach in_addr????

[-Amazeroth-]

Typecast: in_addr(Integer) ... sollte gehen.

[josef]

Komishc.
Jetzt pingt er immer 127.0.0.0 wenn ich 127.0.0.1 bis 127.0.0.2 eingebe???

Delphi-Quellcode:

if (CheckBox1.Checked = true) then
begin
startip:=ipstart1.text+'.'+ipstart2.text+'.'+ipstart3.text+'.'+ipstart4.text;
endip:=ipend1.text+'.'+ipend2.text+'.'+ipend3.Text+'.'+ipend4.text;
Dstartip:=ntohl(inet_addr(PAnsiChar(startip)));
Dendip:=ntohl(inet_addr(PAnsiChar(endip)));
ShowMessage('start: '+inttostr(Dstartip));//start: 2130706432
for I2:=Dstartip to Dendip do
begin
     destaddr:=inet_ntoa(in_addr(htonl(I2)));
     ShowMessage(destaddr);//127.0.0.0
     ping(destaddr);
     Igepingt := Igepingt+1;
     count.text := InttoStr(Igepingt);
end