Socket-Protokoll ermitteln

[Mystic]

Gibt es eine Möglichkeit das Protokoll (z.B. TCP oder UDP) eines gegebenen Sockets s herauszufinden? Per getsockname kriege ich anscheinend nur die Familie und den Port.

[Mystic]

Hat sich erledigt.

Delphi-Quellcode:

function GetSockType(s: TSocket): integer;
var
  size: integer;
begin
  size := SizeOf(Result);
  getsockopt(s, SOL_SOCKET, SO_TYPE, @Result, size);
end;