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?