Moin moin,

hat von euch schon jemand die Windows Filtering Platform (WFP ab VISTA bzw Win7) genutzt bzw. kann mir jemand Tipps dazu geben?

- Wie nutze ich die Funktionen aus der fwpmu.h (Muss ich hier das Headerfile in eine PAS konvertieren, oder hat das bereits jemand gemacht?)

Ich wüßte jetzt nicht, daß ich dafür schonmal 'ne Delphiübersetzung gesehn hab.
Hab die JCL allerdings hier nicht installiert und kann da nicht reinsehn (dort gibt es ja viele APIs zu finden, auch wenn ich die Vermutung hab, daß die WFP da noch fehlt)

Also liegt die Vermutung nahe, daß du es doch selber übersetzen mußt.
Aber warte lieber noch 'ne Woche ... vielleicht ließt das ja jemand, welcher es sich schon übersetzt hat (kam schon einige Male vor).

Ok danke, ich konnte sie bei der JCL leider auch nicht finden...

Könntest du mir nen Tipp geben, wie ich folgende Sachen in Delphi darstelle?
(Über die Hälfte der Headerdatei besteht aus solchen DEFINE_GUID)

markieren

Code:

// c86fd1bf-21cd-497e-a0bb-17425c885c58
DEFINE_GUID(
   FWPM_LAYER_INBOUND_IPPACKET_V4,
   0xc86fd1bf,
   0x21cd,
   0x497e,
   0xa0, 0xbb, 0x17, 0x42, 0x5c, 0x88, 0x5c, 0x58
);

// b5a230d0-a8c0-44f2-916e-991b53ded1f7
DEFINE_GUID(
   FWPM_LAYER_INBOUND_IPPACKET_V4_DISCARD,
   0xb5a230d0,
   0xa8c0,
   0x44f2,
   0x91, 0x6e, 0x99, 0x1b, 0x53, 0xde, 0xd1, 0xf7
);
//...

markieren

Delphi-Quellcode:

const
  FWPM_LAYER_INBOUND_IPPACKET_V4: TGUID = '{c86fd1bf-21cd-497e-a0bb-17425c885c58}';
  FWPM_LAYER_INBOUND_IPPACKET_V4_DISCARD: TGUID = '{b5a230d0-a8c0-44f2-916e-991b53ded1f7}';

oder eventuell auch untypisiert

markieren

Delphi-Quellcode:

const
  FWPM_LAYER_INBOUND_IPPACKET_V4 = '{c86fd1bf-21cd-497e-a0bb-17425c885c58}';
  FWPM_LAYER_INBOUND_IPPACKET_V4_DISCARD = '{b5a230d0-a8c0-44f2-916e-991b53ded1f7}';

Kommt drauf an, wie diese Variable verwendet werden sollen,
aber die passendere Übersetung, zum Originalcode, dürfte das Erste sein.

Wobei die korrektere Übersetung eigentlich so aussähe

markieren

Delphi-Quellcode:

const
  FWPM_LAYER_INBOUND_IPPACKET_V4: TGUID = (
    D1: $c86fd1bf;
    D2: $21cd;
    D3: $497e;
    D4: ($a0, $bb, $17, $42, $5c, $88, $5c, $58));
  ...

Aber man kann es auch übertreiben

It would be nice if someone provide the ported code from C to Delphi. I am looking for this too but I only found filtering unit for XP.