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