IP mit Winsock API incrementieren

[kcx]

Hallo,

Ich habe sehr wenig Erfahrung mit der Winsock API und wollte einfach mal eine IP incrementieren.
So habe ich es versucht. Leider bekomme ich anstelle von 127.0.0.2, 128.0.0.1 ausgegeben, wieso?

Delphi-Quellcode:

var
  a: integer;
  b: in_addr;
begin
  a := inet_addr('127.0.0.1');
  inc(a);
  b.S_addr := a;
  showmessage(inet_ntoa(b));
end;

[Apollonius]

Das ist ein endian-Problem. Auf Intel-CPUs liegt immer das am wenigsten signifikante Byte am Anfang, die WinSock-API verwendet aber Big Endian.

[kcx]

Zitat von Apollonius:

Das ist ein endian-Problem. Auf Intel-CPUs liegt immer das am wenigsten signifikante Byte am Anfang, die WinSock-API verwendet aber Big Endian.

ok, Danke und wie muss man es ändern, damit 127.0.0.2 ausgegeben wird (auf allen CPU's)?

[opfer.der.genauigkeit]

ntohl

MfG
odg

[kcx]

Zitat von opfer.der.genauigkeit:

ntohl

Aha und wie verwende ich das, habe es so versucht, bekomme diesmal aber 1.0.0.128 ausgegeben

Delphi-Quellcode:

var
  a: integer;
  b: in_addr;
begin
  a := inet_addr('127.0.0.1');
  inc(a);
  b.S_addr := ntohl(a);
  showmessage(inet_ntoa(b));
end;

[opfer.der.genauigkeit]

Delphi-Quellcode:

i := ntohl( inet_addr( '127.0.0.1' ) );
Inc( i );
a.S_addr := htonl( i );
ShowMessage( inet_ntoa( a ) );

Du musst einmal von Big zu Litte Endian und dann wieder zurückkonvertieren.

[kcx]

Zitat von opfer.der.genauigkeit:

Delphi-Quellcode:

i := ntohl( inet_addr( '127.0.0.1' ) );
Inc( i );
a.S_addr := htonl( i );
ShowMessage( inet_ntoa( a ) );

Du musst einmal von Big zu Litte Endian und dann wieder zurückkonvertieren.

Ah, Vielen Dank das funktioniert!

[Der.Kaktus]

Zitat von opfer.der.genauigkeit:

Delphi-Quellcode:

i := ntohl( inet_addr( '127.0.0.1' ) );
Inc( i );
a.S_addr := htonl( i );
ShowMessage( inet_ntoa( a ) );

Du musst einmal von Big zu Litte Endian und dann wieder zurückkonvertieren.

Oha, Befehle kannte ich auch noch nicht..Danke sag!