Mit IP-Adressen rechnen...

[marabu]

Hallo,

die beiden Funktionen zur Wandlung zwischen String- und Binärdarstellung einer IP-Adresse kannst du ja in der Hilfe nachschlagen, also scheinst du ein Verständnisproblem mit der eigentlichen Adressumsetzung zu haben.

Delphi-Quellcode:

// ...
  with inAddr.S_un_b do
    s_b4 := Chr(Ord(s_b4) + 200); 
// ...

Der Typ TInAddr wird mehrfach redefiniert, so dass man seine vier Bytes auf verschiedene Weise ansprechen kann. Schau mal in die Unit WinSock - oder wenn du diese nicht hast:

Delphi-Quellcode:

type
  {$EXTERNALSYM SunB}
  SunB = packed record
    s_b1, s_b2, s_b3, s_b4: u_char;
  end;

  {$EXTERNALSYM SunW}
  SunW = packed record
    s_w1, s_w2: u_short;
  end;

  PInAddr = ^TInAddr;
  {$EXTERNALSYM in_addr}
  in_addr = record
    case integer of
      0: (S_un_b: SunB);
      1: (S_un_w: SunW);
      2: (S_addr: u_long);
  end;
  TInAddr = in_addr;

Freundliche Grüße