LE RÉSEAU MICROSOFT - LES FONCTIONS WNET

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 19 janv. 2005 à 11:29
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 6 mars 2006 à 14:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/28921-le-reseau-microsoft-les-fonctions-wnet

cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
6 mars 2006 à 14:59
gros souci avec D7 sous XP sp1, c'est TRES LENT..30' pour voir apparaître qlqchose..
En revanche, j'ai trouvé un p'tit compo sur Dephi32 (TNetUsers)
qui est ancien (je fait dans le vieux en ce moment..)
s'installe au poil et pédale très vite..(2'')
maintenant que j'ai la liste des ordi en clair, je m'aperçois du bazar qu'il y a sur le réseau !

Que pensez-vous du TNetUsers ?

@+
cs_TriTri6 Messages postés 15 Date d'inscription samedi 15 juin 2002 Statut Membre Dernière intervention 11 mars 2006
3 mars 2006 à 18:16
Merci c'est cool, je reposterai ici le lien vers la source pour que tu vois le résultat.

Tiens ben tant que je te tiens, je suis en train de regarder ca, et je me demandais comment on faisait pour récupérer le texte d'un noeud du treeview qui serait cliqué.
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
3 mars 2006 à 18:06
Pas de problème ! Les codes ne demandent qu'à vivre et grandir !
cs_TriTri6 Messages postés 15 Date d'inscription samedi 15 juin 2002 Statut Membre Dernière intervention 11 mars 2006
3 mars 2006 à 16:50
Bonjour
Super!
Chez moi avec windows millenium ca marche tres bien et c'est très rapide.
Je vais me permettre de réutiliser ce code dans un projet proposé dans le forum si ca n'embete pas son auteur.
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
4 oct. 2005 à 18:38
YVESSIMON, en effet la srcutation est très lente ! Mais ça vient surtout des mécanismes Windows. Je crois que ça s'est particulièrement aggravé avec SP2.
Tu peux essayer de mettre un point d'arrêt sur la ligne
resu := WNetEnumResource(Hdl, Count, NetRessources, Size);
Tu devrais y passser un certain nombre de fois !!! La procedure est récursive.
Su ton réseau est gros, il peut être juducieux d'augmenter la taille du buffer de retour
Size:= 100 * SizeOf(TNetResource); tu peux augmenter 100
J'espère que tu auras de bons résultats

Kenavo
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017
4 oct. 2005 à 18:15
La scrutation avec mon DELPHI 7 est très lente

rien n'apparait à l'ecran
hurrycane Messages postés 117 Date d'inscription samedi 4 janvier 2003 Statut Membre Dernière intervention 19 juin 2009 1
16 sept. 2005 à 19:19
merci kenavo ca aide ...
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
19 janv. 2005 à 14:37
G refait le download et ça merche !
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
19 janv. 2005 à 14:30
J' ai déjà eu une erreur de ce genre. C' est à dire sur une ligne de commentaire. Normalement l' erreur n' est pas loin de cette ligne. Faudrait peut être faire un copier coller du .pas vers un autre fichier. Eliminer le fichier .pas et renommer le fichier .txt avec le nom du fichier pas qu' on a éliminé.
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
19 janv. 2005 à 14:27
Bingo !

C'est la constante typée Size qui fout la m....
Delphi 4 acceptait de passer ces constantes comme variables, Delphi 7 n'a pas l'air d'aimer. Peut-être une directive de compilation ?....
Donc :
1 - déclarer Size comme DWord
2 - ajouter la ligne Size:= 100 * SizeOf(TNetResource); avant l'appel à la fonction WNetEnumResource
... et voilà. Le code a été mis à jour.

Ken@vo
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
19 janv. 2005 à 14:17
oui, on dirait un décalage den° de lignes, car j'ai supprimé les commentaires, j'arrive sur des variables ... je vire les varaibales (juste pour voir chui pas fou) et bien meme erreur mais pas la meme ligne :|
c'est a n'y rien comprendre !
erreur "Const ne peut pas etre déclaré en var"
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
19 janv. 2005 à 13:52
Damned !

Delphi 4 Pro : pas de problème
Delphi 7 Perso : erreur de compilation sur une ligne de commentaire !!!!!???? Ben ça alors !

Je regarde

Ken@vo
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
19 janv. 2005 à 11:29
Ça compile pas!
Pourrais tu voir ce qui se passe ???
Rejoignez-nous