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