Discussion :

[ChPr]

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 :

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

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

[batyann811]

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 :

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

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 :

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

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

[ChPr]

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

[batyann811]

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).