Discussion :

[tridule]

j'essaie depuis plusieurs jours de passer une chaîne de caractères à une routine C mais j'ai toujours un problème de type.

j'ai lu l'indispensable doc ici :
http://mirror.mirimar.net/freepascal...FreePascal.pdf

et j'ai cru comprendre que la solution à mon problème se trouve dans l'unité CTypes, mais je n'arrive à trouver aucune documentation sur cette unité ni sur sa localisation.

Quelqu'un pourrait-il m'éclairer sur le sujet ?

[Alcatîz]

Bonjour !

Il n'y a pas forcément besoin de l'unité CTypes.

Peux-tu poster le code :
- du source C (si tu le possèdes);
- de la partie déclarations ainsi que de l'appel de la routine C dans le source Pascal ?

[Alcatîz]

A toutes fins utiles, voici les types déclarés dans l'unité CTypes (mais il doit en manquer quelques uns) :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
type cInt8 = ShortInt;
     cUInt8 = Byte;
     cUInt16 = Word;
     cInt16 = SmallInt;
     cInt32 = LongInt;
     cUInt32 = cardinal;
     cInt64 = Int64;
     cUInt64 = qword;
     cuchar = Byte;
     cchar = ShortInt;
     cInt = LongInt;
     cUInt = Cardinal;
     cLong = LongInt;
     cuLong = Cardinal;
     clonglong = Int64;
     culonglong = qword;
     cshort = SmallInt;
     cushort = Word;
     pcInt = ^cInt;
     pcUInt = ^cUInt;
     pcLong = ^cLong;
     pculong = ^cuLong;
     pcshort = ^cshort;
     pcushort = ^cushort;
     pcchar = ^cchar;
     pcuchar = ^cuchar;
     cunsigned = cUInt;
     pcunsigned = ^cunsigned;
     cFloat = Single;
     cDouble = Double;
     clDouble = Extended;
     pcFloat = ^cFloat;
     pcDouble = ^cDouble;
     pclDouble = ^clDouble;

[Clandestino]

Triduele, c'est la deuxième fois que tu cite le meme article, et tu ne comprend clairement pas du tout ce qui y est expliqué...
l'auteur ne fait que décrire la façon d'appeler une fonction définie dans une librairie...
Il t'induit en erreur en te laissant penser que tu vas utiliser du code C... c'est absolument faux!!!

Une librairie est un fichier compilé, donc un fichier qui n'a plus rien a voir avec le langage utilisé au départ... Son utilité est de mettre à disposition du programmeur un ensemble de fonctions...

Il se trouve que 99,99 des librairies de linux sont faites en C avant compilation, mais elles pourraient avoir été codé en assembleur ou pascal que celà ne changerait rien!!!

A aucun moment tu n'incluras du C dans ton programme, tu te contenteras d'appeler une fonction depuis une librairie, qui à ce moment là peut-etre considérée comme un autre programme, mais dont tu n'est pas l'auteur...

Sous windows celà revient à appeler une fonction dans une dll...
C'est ce que tu fais si tu utilises l'API windows, qui n'est qu'un ensemble de fonctions contenues dans des dll bien précises...

Pour pouvoir utiliser une fonction incluse dans une dll, il faut que cette dernière soit lancée en memoire (chargée)...

Tu peux demander au systeme de la charger en memoire à l'aide de l'utilitaire regsvr32.exe fourni avec windows, ou bien la charger dynamiquement...

j'ai ecrit il y a quelques temps (dans un cadre un peu différent) un petit tutoriel sur l'utilisation dynamique des dll...
tu pourras le lire là :
http://clandestino000.free.fr/tutdll2.htm

PS : N'essaie pas de trouver des librairies ayant le meme nom sous win et sous X, il n'y a aucune raison logique pour que celà arrive...

[Alcatîz]

De mon côté, j'avais plutôt compris qu'il s'agissait d'un fichier .o écrit en C, à lier au projet Pascal ?

[Marcou]

Bonjour,

désolé pour le très long délais.

Un des points délicats quand on cherche à transférer des données d'un code écris en FPC à une librairie codée dans un autre langage (le C par exemple) est la conversion correcte de types. L'unité CTypes est utile pour utiliser des types compatibles avec le langage C de façon aussi indépendante que possible d'un compilateur ou d'un système particulier. Cette unité se trouve dans la RTL dans le sous-répertoire inc ($fpcsrc/rtl/inc).

Concernant les pointeur vers de chaîne de caractères C, le type recommandé est pcchar. Le type Free Pascal PChar est compatible également. La conversions suivantes est acceptables:

pcchar(PChar('ma chaine'))

Je compte revoir le texte cité plus haut avec l'aide des contributeurs du Free Pascal. Il faut simplifier l'accès aux méthodes C++, préciser le comportement des pointeurs, etc. J'aimerais également faire un tutoriel d'utilisation de h2pas. Malheureusement, j'ai encore du mal à en maîtriser le fonctionnement.