Hallo,
Ich habe eine Funktion geschrieben, die eine
IP Adresse in eine Zahl verwandelt:
Delphi-Quellcode:
uses StrUtils, Math;
function IP2Number(const sIP: String): Extended;
var
iPos, iPrevPos, iNumber, i: Integer;
begin
Result := 0;
iPos := 0;
iPrevPos := 0;
for i := 1 to 4 do
begin
if i = 4 then
iPos := Succ(Length(sIP))
else
iPos := PosEx('.', sIP, Succ(iPos));
iNumber := StrToInt(Copy(sIP, Succ(iPrevPos), Pred(iPos - iPrevPos)));
Result := ((iNumber Mod 256) * Power(256, (4 - i))) + Result;
iPrevPos := iPos;
end;
end;
Num schaffe ich es aber nicht das Gegenstück zu diesem Code zu schreiben
, also
Delphi-Quellcode:
function Number2IP(const eNumber: Extended): String;
begin
end;
Es scheitert immer an der letzten Zahl.
Hoffe mir kann jemand helfen.
Danke