AddressToIP TJvIpAdress

[CReber]

Ich verwende die Komponente TJvIpAdress. Nun möchte ich eine Schleife von der benutzerdefinierte Start IP und End IP machen.

Delphi-Quellcode:

if eIPEnd.Address > eIPStart.Address then
  for j := eIPStart.Address to eIPEnd.Address do begin

Diese Adress ist wie folgt aufgebaut:

Delphi-Quellcode:

// Address ist ein Cardinal Wert

procedure TJvIpAddressValues.SetValue(const AValue: Cardinal);
var
  FChange: Boolean;
begin
  FChange := False;
  if GetValue <> AValue then
  begin
    if Changing(0, FIRST_IPADDRESS(AValue)) then
    begin
      FValues[0] := FIRST_IPADDRESS(AValue);
      FChange := True;
    end;
    if Changing(1, SECOND_IPADDRESS(AValue)) then
    begin
      FValues[1] := SECOND_IPADDRESS(AValue);
      FChange := True;
    end;
    if Changing(2, THIRD_IPADDRESS(AValue)) then
    begin
      FValues[2] := THIRD_IPADDRESS(AValue);
      FChange := True;
    end;
    if Changing(3, FOURTH_IPADDRESS(AValue)) then
    begin
      FValues[3] := FOURTH_IPADDRESS(AValue);
      FChange := True;
    end;
    if FChange then
      Change;
  end;
end;

Leider fehlt mir in diesem Gebiet der nötige Sachverstand. Wie kann ich diese Zahl /möglichst unkompliziert/ wieder in eine IP umwandeln?

[CReber]

Der Vollständigkeit halber poste ich mal wie ich es jetzt gemacht habe ... Vlt. kann man das ja mal gebrauchen!

Delphi-Quellcode:

var Class1,Class2,Class3,Class4     : Byte;
    Class5,Class6,Class7,Class8     : Byte;
    a,b,d,d                         : Byte;
begin

        if eIPEnd.Address > eIPStart.Address then begin
          with eIPStart.AddressValues do begin
            Class1:=Value1;
            Class2:=Value2;
            Class3:=Value3;
            Class4:=Value4;
          end;
          with eIPEnd.AddressValues do begin
            Class5:=Value1;
            Class6:=Value2;
            Class7:=Value3;
            Class8:=Value4;
          end;
          lvComputer.Items.BeginUpdate;
          for a:=Class1 to Class5 do
            for b:=Class2 to Class6 do
              for c:=Class3 to Class7 do
                for d:=Class4 to Class8 do
                  with lvComputer.Items.Add do
                    Caption:=IntToStr(a) + '.' + IntToStr(b) + '.' + IntToStr(c) + '.' + IntToStr(d);;
          lvComputer.Items.EndUpdate;
end;