Syntaxe d'un wrapper Pascal sous Linux

Bonjour à toutes et à tous,

Je voudrais écrire (parce que je n'en trouve pas) un wrapper pour certaines fonctions vidéo sous LINUX.

Sous Windows, par exemple, dans le wrapper AVIFile32.pas, il y a des instructions du type :

Code:

---

function AVIFileInfo(pFile: PAVIFile; var afiInfo: TAVIFileInfo; lSize: LongInt): LongInt stdcall; external 'AVIFil32.dll';

---

qui donnent accès aux fonctions de la dll AVIfil32.dll

Supposant que j'ai des fichiers équivalents à cette dll (fichiers .so je suppose) sous Linux, comment écrire un wrapper pour ce fichier. Quelle syntaxe utiliser.

Merci pour votre aide.

Pierre

Le wrapper pour Linux va s'écrire comme celui sous windows a 2 petits détails près : le nom de la bibliothèque et la convention d'appel vont changer.

Pour le nom de bibliothèque on peut utiliser une constante dont la valeur change en fonction de l'OS. Pour la convention d'appel c'est un peu plus compliqué. Sous linux la convention d'appel sera probablement toujours cdecl. Sous windows il semble qu'elle puisse varier en fonction des DLL.

Un petit exemple de ce que l'on peut faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

unit Wrapper;   interface   const {$ifdef WINDOWS} mylib = 'toto.dll'; {$else} mylib = 'toto-1.0.so'; {$endif}   function AVIFileInfo(pFile: PAVIFile; var afiInfo: TAVIFileInfo; lSize: LongInt): LongInt; {$ifdef WINDOWS} stdcall {$else} cdecl {$endif}; external mylib;   implementation   end.

---

Il existe aussi la directive {$CALLING xxxxxx} pour spécifier globalement la convention d'appel. Je ne l'ai encore jamais testée mais elle doit permettre de simplifier l'exemple du dessus.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

unit Wrapper;   interface   const {$ifdef WINDOWS} mylib = 'toto.dll'; {$calling stdcall} {$else} mylib = 'toto-1.0.so'; {$calling cdecl} {$endif}   function AVIFileInfo(pFile: PAVIFile; var afiInfo: TAVIFileInfo; lSize: LongInt): LongInt; external mylib;   implementation   end.

---

PS : une doc qui explique comment interfacer du pascal avec du C => ftp://ftp.freepascal.org/pub/fpc/doc...FreePascal.pdf

Merci batyann811 pour ces informations.

Quelle est l'utilité d'avoir un nom de librairie différent selon l'OS ?

J'avais déjà vu l'article dont tu me donnes le lien, mais sous une autre forme. Je vais lire celui-ci qui semble plus complet, mais a priori, il y a pas mal de choses que je ne comprends pas, je reposerai des questions.

Cordialement.

Pierre

Citation:

---

Envoyé par ChPr

Quelle est l'utilité d'avoir un nom de librairie différent selon l'OS ?

---

C'est uniquement parce que les bibliothèque ont des noms différents en fonction de l'OS (en particulier l'extension).