Socket-Protokoll ermitteln

[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;