Re: Source Windev |
Sujet: Re: Source Windev par Belette sur 25/5/2006 9:30:39 Merci A Totof de bien vouloir m'aider contre de l'argent ! Avec un peu de temps et de logique j'ai compris le principe, il n'y a rien compliqué et de spécifique dans ce développement. Il faut appeler la DLL avec ChargeDll et ensuite faire appel aux fonctions internes de la DLL avec API() ou appelDll32. Exemple : // Déclaration des variables utilisée dans le bloc D'initialisation ( lequel bloc fait 512 octets ) GLOBAL Scan_finger est compose de b1 est une chaine fixe sur 1 // ( 1 octet ) b2 est une chaine fixe sur 1 // ( 1 octet ) b3 est une chaine fixe sur 1 // ( 1 octet ) b4 est une chaine fixe sur 1 // ( 1 octet ) func est une chaine fixe sur 1 // ( 1 octet ) r_code est un entier // ( 2 octets ) ext_err est une chaine fixe sur 10 // ( 10 octets ) vers est une chaine fixe sur 2 // ( 2 octets ) Finger_no est un entier long // ( 4 octets ) dd_sn est un entier // ( 2 octets) p_code est une chaine fixe sur 9 // ( 9 octets ) p_name est une chaine fixe sur 13 // ( 13 octets ) remainder est une chaine fixe sur 465 // = 512- la somme des octets déjà déclarés soit 47 = 465 fin Procédure finger() // Déclaration des variables dans lesquelles seront retournés le résultat des fonctions // ChargeDLL et AppelDLL & AppelDLL32 ou Api hlib1,hlib2 sont des entiers longs hlib1=chargedll("Ma_Dll.dll") // Controle si la DLL a bien été chargée si hlib1=0 alors info("Impossible de charger la DLL","Fermez, puis relancer Windows") finprogramme sinon // Si la DLL a été chargée alors on appel la fonction d'initialisation hlib2=appeldll32(Ma_Dll.dll","SacnInit",&Scan_Finger) // Idem pour le reste des fonctions interne GetNumDevice SetNumdevice Etc... Merci David |