LongIP Funktion gibt 'Invalid Ip Adress.' zurück, warum?

[snock]

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

[StefanDP]

hmm...
warum gibst du die ip nicht mit punkten an??
z.b. 127.88.135.12 oder so?

[snock]

mir ist grad aufgefallen (hab nicht überlegt, habs einfach von jmd übernommen) das ich eine andere Funktion dazu brauche. HAbe die falsche erwischt.


aber trotzdem vielen dank.
snock