Import : EndImport

Import "NomFichier"
  NomFonction.<type>(<parametre>, [, <parametre> [= ValeurDefaut]...]) [As "NomSymbole"]
  ...
  NomVariable.<type> [As "NomSymbole"]
EndImport

Pour les programmeurs chevronnés. Import : EndImport permet de déclarer facilement des fonctions et des variables externes à partir d'un fichier bibliothèque (.lib) ou objet (.obj).

Une fois déclarées, les fonctions importées sont directement disponibles dans le programme, comme n'importe quelle autre commande. Le compilateur ne vérifie pas si la fonction existe réellement dans le fichier importé, donc si une erreur survient, elle sera reportée par le linker.

Les fonctions importées remplacent avantageusement les commandes OpenLibrary()/CallFunction(): la vérification du type, le nombre de paramètres sont validés par le compilateur. De plus, contrairement à CallFunction(), une fonction importée peut gérer les types 'double', 'float' et 'quad' sans aucun problème.

Les paramètres en fin de fonction peuvent avoir une valeur par défaut (une expression constante est requise). Les paramètres ayant une valeur par défaut pourront être omis lors de l'appel de la fonction, la valeur par défaut de chaque paramètre manquant sera utilisée.

Par défaut, le symbole de la fonction importée est décoré suivant le schéma suivant: _NomFonction@tailleargument. Cela devrait fonctionner pour la plupart des fonctions qui utilise la convention standard d'appel (stdcall). Par contre, si la bibliothèque est écrite en C, et que les fonctions exportées ne sont pas stdcall, ImportC devra être utilisé à la place de Import. Dans ce cas, par défaut le symbole est préfixé comme ceci: _NomFonction.

Les pseudotypes peuvent être utilisés pour les paramètres, mais pas pour le type de la valeur de retour.

Remarques

En 64 bits, il n'y a qu'une seule convention d'appel, alors ImportC fait la même chose que Import.

Exemple

  CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
    CompilerError "Cet exemple ne fonctionne que sous Windows"
  CompilerEndIf
  
  Import "User32.lib"
   
    ; Pas besoin d'utiliser 'As' car PureBasic préfixe la fonction correctement
    ; Nous définissons également le paramètre 'Options' comme facultatif, avec une valeur par défaut de 0 (quand il est omis)
    ;
    MessageBox(Fenetre.i, Corps$, Titre$, Options.i = 0)

  EndImport
 
  MessageBoxW(0, "Salut", "le Monde") ; Nous ne précisons pas les options

Exemple: Avec les pseudotypes

  CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
    CompilerError "Cet exemple ne fonctionne que sous Windows"
  CompilerEndIf
  
  Import "User32.lib"
   
    ; Nous utilisons le pseudotype 'p-unicode' pour les paramètres chaîne, car
    ; MessageBoxW() est une fonction unicode seulement. Le compilateur va
    ; automatiquement convertir les chaînes en unicode quand nécessaire.
    ;
    MessageBoxA(Fenetre.i, Corps.p-ascii, Titre.p-ascii, Options.i = 0)
                                                 
  EndImport
 
  ;
  MessageBoxA(0, "Salut", "le Monde")