Hallo liebe Leute,
Ich weis auch nicht warum er mir Flase zurück gibt, bzw. InValid
Ip Adress.
Habt Ihr eine Idee?
Meine Funktion (hab sie ausm INet):
Delphi-Quellcode:
Function TFDCC.LongIP(
IP :
String) :
String;
Var IPaddr :
array[1..4]
of Word;
Temp :
string;
Res : DWord;
I : integer;
Begin
Temp :=
IP + '
.';
For I:=1
To 4
Do
Begin
Try
IPaddr[i] := strtoint(copy(Temp,1,pos('
.',Temp) - 1));
Delete(temp,1,pos('
.',Temp));
If (IPaddr[i] > 255)
Then
raise Exception.Create('
');
Except
// Check the IP
result := '
Invalid IP address.';
Exit;
End;
End;
Res := (ipaddr[1]
SHL 24) + ipaddr[1] +
(ipaddr[2]
SHL 16) + ipaddr[2] +
(ipaddr[3]
SHL 8) + ipaddr[3] +
(ipaddr[4]);
Result := Format('
%u',[res]);
End;
Wenn man die Funktion mit
ShowMessage(LongIp('1351244942')); { oder } ShowMessage(LongIp('3655750984'));
aufrufe, zeigt er mir immer 'Invalid
IP adress' an. Was is da jetzt falsch? Plz Help.
Vielen Dank im Vorraus.
snock