mini Firewall programmieren ??

[x000x]

Moin moin,

jo, da haste nen Fehler entdeckt. Hatte die Teile aus einer Fltdefs.pas kopiert, und da ist es auch schon falsch drinne.
Ändere mal folgendes ab:

Delphi-Quellcode:

//..
// rausnehmen und dafür...
//  PFFORWARD_ACTION  =  Integer;
//  PPFFORWARD_ACTION =  ^PFFORWARD_ACTION;
// dies rein
  _PfForwardAction = (
    PF_ACTION_FORWARD,
    PF_ACTION_DROP  );
  PFFORWARD_ACTION = _PfForwardAction;
  PPFFORWARD_ACTION = ^_PfForwardAction;

//..

// und das jetzt ganz weg
//const
//  PF_ACTION_FORWARD =  0;
//  PF_ACTION_DROP    =  1;

Damit sollte es dann jetzt aber funktionieren.