WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 2012
-
18 avril 2007 à 21:47
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
22 avril 2007 à 10:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 22 avril 2007 à 10:09
Voici un code source particulièrement intéressant et je salue l'effort fourni par jeanr pour adapter ce code en Delphi.
Bien sûr, j'aurais préféré que ce code soit mis dans une classe pour être plus facilement réutilisable. Ceci juste pour justifier le 9/10 :)
Encore bravo et grand merci à toi.
cs_jeanr
Messages postés17Date d'inscriptionvendredi 25 avril 2003StatutMembreDernière intervention12 juin 2008 21 avril 2007 à 17:07
En effet merci, ca pourrait eviter quelques soucis ^^
WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 20123 18 avril 2007 à 21:47
Bonjour Jeanr
J'ai pas vista pour tester ton appli mais à première vue j'aurais transformé le string Exe en PChar :
FwMgr.IsPortAllowed( PChar(Exe), NET_FW_IP_VERSION_V4, 0, '0.0.0.0', NET_FW_IP_PROTOCOL_TCP, Allowed, Restricted);
22 avril 2007 à 10:09
Bien sûr, j'aurais préféré que ce code soit mis dans une classe pour être plus facilement réutilisable. Ceci juste pour justifier le 9/10 :)
Encore bravo et grand merci à toi.
21 avril 2007 à 17:07
18 avril 2007 à 21:47
J'ai pas vista pour tester ton appli mais à première vue j'aurais transformé le string Exe en PChar :
FwMgr.IsPortAllowed( PChar(Exe), NET_FW_IP_VERSION_V4, 0, '0.0.0.0', NET_FW_IP_PROTOCOL_TCP, Allowed, Restricted);
Cordialement.