delphi - How to convert a record from host to network byte order (big endian)?

Question

I have a record:

  Tconnecting = record
  var
    a: int64;
    b: integer;
    c: integer;
  end;

which I need send to server using UDP protocol

I fill it

  packet.a := StrToInt64('0x1234567890');
  packet.b := 0;
  packet.c := RandomRange(1, 9999999);

and sending it

  SetLength(send_data, sizeof(packet));
  send_data := RawToBytes(packet, SizeOf(packet));
  udp.SendBuffer(make_it_big_endian(send_data)); <-- the question... "network byte order"

or maybe I'm doing something wrong? I need to send "bign endian" packet

pack("N*", int64, int, int); (this is in PHP)

Thanks.

Answer 1

What you are actually doing is converting from host byte order to network byte order. All standard sockets libraries provide helper functions to do that.

For example, Winsock offers htons, htonl etc. And in the opposite direction you have ntohs, ntohl etc. If you are using Indy, then the equivalent functions are GStack.HostToNetwork and GStack.NetworkToHost.

You should serialize each field into a byte stream, with each field being transformed by the appropriate hton* function. Then you can put the byte stream on the wire.