Quand on commence àfaire de la programmation proche du système, donc avancée,on a souvent besoin d’API : fonctions proposées par lesystème d’exploitation. Ces fonctions sont stockéesdans de bibliothèque de liens : les DLLs.

Il en existe troiscatégories principales :

• User32.dll : toutes le fonctions en rapport avec les fenêtres

• Gdi32.dll : tout ce qui est en rapport avec les images

• Kernel32.dll : tout ce qui a rapport avec les mécanismes internes : informations système, système de fichier, mutes, sémaphores.

1. Déclaration

Les déclarationsd’APIs se font comme suit :

{Private|Public}Declare {Function|Sub} nom_fonction [Alias“vrai_nom_fonction“] Lib “nom_dll.dll“(Param1 As Type1, Param2 As Type2,…ParamN As TypeN) [As TypeRetour]

{Private|Public} :portée de la déclaration (privée oupublique)

{Function|Sub} :fonction ou procédure, une API Windows est rarement uneprocédure (sauf CopyMemory)

[Alias“vrai_nom_fonction“] : permet de renommer la fonction sisont vrai nom est, par exemple, trop long ou trop compliqué (_fct@8) ou pour importer des fonctions exportées par Index (dans cecas l’alias sera #index).

Exemple :

PrivateDeclare Sub CopyMemory Lib "kernel32.dll" Alias"RtlMoveMemory" (ByRef Destination As Any, ByRef Source AsAny, ByVal Length As Long)

PrivateDeclare Function GetComputerName Lib "kernel32.dll" Alias"GetComputerNameA" (ByVal lpBuffer As String, ByRef nSizeAs Long) As Long

Pour trouver une déclarationd’API, vous pouvez utiliser l’API viewer ou tout autre liste surInternet.

2. Les paramètres

Il existe deux typesde paramètres : les paramètres par valeur et lesparamètres par référence (pointeur).

Un paramètrepar référence indique que l’on passe l’adresse dela variable à la fonction pour pouvoir modifier la variable àl’intérieur. Le nom d’un tel paramètre est précédéde ByRef ou rien (ByRef par défaut).

Un paramètrepar valeur indique que l’on passe le contenu de la variable àla fonction. On ne peut donc pas modifier la variable àl’intérieur de la fonction. Le nom d’un tel paramètreest précédé de ByVal.

Deux types ne peuvent pas être ByVal :les tableaux et les structures.

3. Le type de retour

Si c’est une Sub,alors il n’y a pas de type de retour.

Sinon, c’est presquetoujours un Long. Tout type de retour de plus de 4 octets devraitêtre passé par référence en paramètre.

4. Et si ma fonction n’est pas dans une liste

Alors la c’est unpeut plus compliqué. Mais si vous êtes là, c’estque vous avez le prototype C de votre fonction.

Pour que VB puisse utiliser unefonction C comme une API, il faut :

• Que la convention d’appel soit STDCALL (par défaut cdecl en C)

• Qu’elle soit exportée avec un extern « C » ou un def file

Voici un tableau detypes courants et de leurs traductions VB6 :

Les types pointeurs

Tous les typespointeurs peuvent être remplacés par ByVal Long. Dans cecas, on utilisera VarPtr(la_variable) ou StrPtr(la_variable)pour passer l’adresse de la variable. Voir Travailler avec lespointeurs.

Les types Structures

Les types structuresne peuvent pas être passé par valeur. Pour pouvoir lespasser tout de même par valeur, il mettre autant de paramètresdans le Declare que de membre dans la structure.

Note sur lesstructures :

• L’alignement des données de VB6 dans les structures se fait sur 4 octets :

Parexemple :

PrivateType

BAs Byte

L As Long

EndType

Cettestructure prendra 8 octets de mémoire avec 3 octets de videentre B et L.

Ilfaut donc faire attention à l’alignement dans les structuresC qui peut aller jusqu’à l’octet (voir #pragma pack).

• Les chaînes de taille fixe dans les structures (char nom[taille]) se traduisent en nom As String * taille

• Les chaines char*, WCHAR* sont remplacées par Long. On utilise ensuite CopyMemory pour copier le contenu de la variable au bout du pointeur.

• Les pointeurs sont interdits dans les structures VB6. On les remplace par Long et on utilise CopyMemory pour copier le contenu dans une autre variable. (CopyMemory ByVal pointeur,ByRef variable, taille_zone_pointée). Voir Travailler avec les pointeurs.

• Les tableaux de taille fixe type nom[taille] se traduisent par nom(taille) As Type

• Les unions n’existent pas : on les remplace par le membre de l’union qui a la plus grande taille en octets. Pour accéder à la donnée d’une union dans un des autres types, on utilisera CopyMemory ByRef var_autre_type,ByRef membre_union, LenB(var_autre_type)

• Pour les autres types :

Les types Tableaux

Les types tableaux nepeuvent pas être passé par valeur. On peut mais c’esttrès difficile et très inutile.

Les tableaux VB6 nesont pas simplement une zone mémoire de donnée et unpointeur dessus. Toute une structure les accompagne.

Passer un tableau type C

Pour passer un tableaude type C, on a deux solutions :

• ByRef Type_des_cases_du_tableau : dans ce cas, on passe la première case du tableau, en général, il y a un paramètre pour donner la taille du tableau que l’on passe

Parexemple :

Dimt(10) As Long

Res= Fct(t(0),10)

• ByVal Long : dans ce cas, on passe VarPtr(le_tableau(0)) (si 0 est la première case).

Parexemple :

Dimt(10) As Long

Res= Fct(VarPtr(t(0)),10)

La seconde solutionpermet par exemple de passer plusieurs type de données àune fonction.

Passer un tampon chaîne ASCIItype C

Pour passer un bufferchaîne C : char* buffer (int taille, suit en général),on utilise un ByVal String. Il faut impérativement remplirla chaîne avec des caractères avant de la passer àla fonction.

Parexemple :

Dim sas string

s =space(20)

res =Fct(s,20)

Passer un tampon chaîneUNICODE type C

Pour passer un bufferchaîne C : wchar* buffer (int taille, suit en général),on utilise un ByVal Long. Il faut impérativement remplir lachaîne avec des caractères avant de la passer àla fonction. Comme les chaîne VB6 sont UNICODE, on passeStrPtr(le_buffer) à la fonction.

Parexemple :

Dim sas string

s =space(20)

res =Fct(StrPtr(s),20)

Any

Ce type spécialpermet de passer n’importe quel type au paramètre de lafonction. On peut utiliser les mots ByVal et ByRef dans les appels defonctions.

Passer un pointeur de fonction

Pour passer unpointeur de fonction, on utilise un ByVal Long et AddressOf dansl’appel de fonction. Cette fonction doit être dans unmodule (bas).

Par exemple :

res = Fct(AddressOfMaFonction)

Travailler avec les pointeurs

Tous les typespointeurs que vous avez remplacé par Long dans les structuresou les pointeurs de pointeurs (autres que Object) ne peuvent pas êtreutilisé directement par VB6. Pour accéder à ladonnée pointée il faut utiliser CopyMemory. La méthodeest la suivante :

Vous avez une adressedans un Long : membre de structure ou variable…

Vous déclarezune variable du type de la donnée pointée :structure, type simple ou chaîne

Si la donnéepointée est une STRUCTURE ou type simple (Long, Integer, …) :

Dim variableAs Type

‘le pointeurest pointeur As Long

CopyMemoryByRef variable, ByVal pointeur, LenB(variable)

‘ou

CopyMemoryByVal VarPtr(variable), ByVal pointeur, LenB(variable)

Si la donnéepointée est un tableau C de STRUCTUREs ou types simples (Long,Integer, …) :

Dim variable()As Type

‘le pointeurest pointeur As Long et taille est le nombre de casesdu tableau

ReDimvariable(taille)

CopyMemoryByRef variable(0), ByVal pointeur, LenB(variable)* taille

‘ou

CopyMemoryByVal VarPtr(variable(0)), ByVal pointeur,LenB(variable) * taille

Si la donnéepointée est une chaîne ANSI :

‘lstrlenA :api renvoyant la taille ANSI d’une chaîne de caractère

Private Declare Function lstrlenA Lib "kernel32.dll" (ByVallpString As Long) As Long

Dimvariable As String

‘lepointeur est pointeur As Long

taille =lstrlenA(pointeur)

variable =Space(taille)

CopyMemoryByVal StrPtr(variable), ByVal pointeur, taille +1

variable= StrConv(variable,vbUnicode)

Si la donnéepointée est une chaîne UNICODE :

‘lstrlenW :api renvoyant la taille UNICODE d’une chaîne de caractère

Private Declare Function lstrlenW Lib "kernel32.dll" (ByVallpString As Long) As Long

Dimvariable As String

‘lepointeur est pointeur As Long

taille =lstrlenW(pointeur)

variable =Space(taille)

CopyMemoryByVal StrPtr(variable), ByVal pointeur, taille +2