Discussion :

[Jipété]

NOTA : je reprends ma question du post #6 : quelle est la différence entre Pointer(MaFonction) et @MaFonction ?

Pas la moindre idée. Faudrait voir avec Andnotor.

Et sinon, poste là https://www.developpez.net/forums/f1...pple/mac-os-x/, des fois que ça morde...

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
type TEnvoiDirLib = function(Dir: PChar): Boolean; stdcall;
var  EnvoiDirLib: TEnvoiDirLib;
begin
  if HndLib <> 0 then
    begin
      // prend la variable EnvoiDirLib comme pointeur non typé pour lui attribuer la valeur de retour de GetProcAddress
      Pointer(EnvoiDirLib) :=  GetProcAddress(HndLib, 'EnvoiDirLib');  
      // peut s'écrire aussi 
      EnvoiDirLib :=  TEnvoiDirLib(GetProcAddress(HndLib, 'EnvoiDirLib'));  
      // teste que l'adresse de la variable EnvoiDirLib n'est pas nil 
      if @EnvoiDirLib <> nil

Pour autant, ceci n'explique pas la non récupération de la fonction dans la dll...

[Andnotor]

pointer(Variable) est juste un transtypage du contenu de la variable alors que @Variable est l'adresse de cette variable. @Variable est équivalent à addr(Variable).

A mon avis c'est la déclaration de la procédure dans la bibliothèque qui pose problème. Les procédures exportées devraient systématiquement débuter par un souligné _EnvoiDirLib puisqu'en chargement dynamique le pendant pour Mac de GetProcAddress l'ajoute systématiquement.

DLL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function _EnvoiDirLib(Dir: PChar): Boolean; cdecl;
 
exports
  _EnvoiDirLib;

L' exécutable ne change pas puisque le souligné est ajouté d'office.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetProcAddress(HndLib, 'EnvoiDirLib');

[ChPr]

pointer(Variable) est juste un transtypage du contenu de la variable alors que @Variable est l'adresse de cette variable. @Variable est équivalent à addr(Variable).

Merci beaucoup pour cette précision.

... A mon avis c'est la déclaration de la procédure dans la bibliothèque qui pose problème. Les procédures exportées devraient systématiquement débuter par un souligné _EnvoiDirLib puisqu'en chargement dynamique le pendant pour Mac de GetProcAddress l'ajoute systématiquement.

J'ai rajouté le "souligné" dans ma librairie.

• Sous Windows, ça ne fonctionne plus !
• Par contre, sous MacOS, ça fonctionne parfaitement.

Un grand merci "Andnotor".

Cordialement.

Pierre.

[Andnotor]

Plus qu'à faire un {$IFDEF} en fonction de la plateforme

[ChPr]

Plus qu'à faire un {$IFDEF} en fonction de la plateforme

Effectivement car ça ne fonctionne pas non plus sous Linux.

Encore merci.

Pierre.