GetPerTcpConnectionEStats in Delphi

[Shark99]

Seit Windows Vista gibt es eine sehr nützliche Funktion namens GetPerTcpConnectionEStats welche Informationen über die TCP-Aktivität eines Prozesses liefert.

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Leider finde ich keinen Code in Delphi dazu. In der JCL ist die Funktion nicht mal deklariert.

Kann mir vielleicht jemand weiterhelfen? Vielen Dank im Voraus!

[himitsu]

Soooo schwer ist das eigentlich nicht.

Zuerst übersetzt du einfach alle (nötigen) Records und Enums, die auf der verlinkten Seite erwähnt/benutzt werden.
Bei Enums aber aufpassen, denn bei windows sind ENUM und BOLL 4 Byte groß (Integer), während Delphi den kleinst möglichen Typ verwendet (Byte).
Also Entweder ENUM = DWORD und Werte als Konstanten oder

Delphi-Quellcode:

{$MinEnumSize 4}

und statt Boolean ein LongBool.

Und dann nur noch die Konstanten übernehmen und die Funktion nach Delphi übersetzen.
Bei Konstanten muß man manchmal in Google suchen oder man lädt sich das Windows-SDK runter und schaut da in die Headerdatei, welche im MSDN erwähnt wird, da im MSDN oft nicht die "Werte" der Konstanten erwähnt werden. (manchmal stehen sie in den Kommentaren)
Bei Parametern mit _OUT_ oder Pointern ala PDWORD kann man auch delphitypisch das als VAR-Parameter oder OUT-Parameter deklarieren.


Das stdcall nicht vergessen, was bei Windows oft der Standard ist.
Und sonst kann man auch einfach mal in der Winapi.Windows.pas abgucken.