firewall на Delphi

[ikot]

Помогите создать firewall на Delphi. Использовал идею из книги Фленова "Delphi в шутку и всерьез" с использованием интерфейсов и фильтров, но оно делает что-то не то. Если при создании интерфейса использовать вместо параметра PF_ACTION_FORWARD параметр PF_ACTION_DROP, то блокируется вообще все, даже сетевые диски. А нужно заблокировать только 80 порт, т.е. доступ в Интернет и порт с номером 3128. Такое ощущение, что фильтры, которые добавляются к интерфейсу после его создания вообще игнорируются.

[mihali4]

Форум существует при клубе. А в клубе - куча интересного.
В том числе и
http://programmersclub.ru/wolanderseti/

[ikot]

Как просмотреть входящие и исходящие пакеты ясно, а как их уничтожать, или пропускать только по определенных правилах?

[mihali4]

Так кто создает файрвол - вы ? Или мы - для вас ?
Побольше самостоятельного мышления, дружок

[ikot]

Я вообще-то на форум пришел с вопросом: "Какая ошибка в прикрепленном коде, что он не работает"? Если бы я знал на него ответ, то наверняка не задавал бы вопрос. Вообще-то форумы для того и существуют, чтобы помогать друг другу. Я не прошу создать мне firewall, а прошу, если это возможно, помочь решить проблему.

Не нужно так обильно меня цитировать - я не Мао.
Прекращайте ненужное цитирование предыдущих сообщений!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор
Все ненужные цитаты из ваших постов я удалил.
Совершенно необязательно жать на кнопку "Цитата", достаточно просто заполнить поле редактирования внизу - для ответа.