Directive "external"

Version imprimable

10/04/2009, 11h19
amtdev

Directive "external"

Bonjour,
J'ai besoin de votre aide. J'ai pas su comment déclarer et appeler une procédure externe en turbo pascal sous windows (TPW)
En fait, j'ai créé une procédure que j'ai enregistré dans un fichier .pas et dans un autre fichier (.pas bien sur) je la déclare avec l'option "external", mais je n'ai pas su utiliser cette option, ça m'affiche un message d'erreur. Vous serez gentil de m'indiquer comment utiliser cette option (explication sur la syntaxe).Merci.
10/04/2009, 11h42
Alcatîz

Bonjour,

La directive external sert soit à inclure du code objet externe (par exemple, une procédure écrite en Assembleur ou en C), soit à importer de manière statique une procédure contenue dans une DLL.

Mais je pense plutôt que ce que tu cherches à faire c'est d'inclure dans un fichier source une procédure se trouvant dans un autre fichier source.
Si le fichier source externe ne contient que cette procédure, tu peux utiliser la directive $I dans ton source principal. Par exemple, si le source externe s'appelle externe.pas, tu peux inscrire cette directive à l'endroit adéquat dans ton source principal :

Code:

{$I externe}

et le compilateur fera exactement comme si les deux sources n'en faisaient qu'un.

;)

Merci pour votre explication. Mais si je n'abuse pas de votre temps, peut tu me vérifier ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program complexes;
uses wincrt;
type comp = record
                  x,y  : real;
            end;
 
var  z,c,zc  : comp;
procedure pf(pz,pc:comp; var f:comp);
    begin
         f.x := pz.x * pz.x - pz.y * pz.y;
         f.y := 2 * pz.x * pz.y;
         f.x := f.x + pc.x;
         f.y := f.y + pc.y;
    end;
 
 
begin
     $I ext_comp.pas /I 'c:\';
     readln(z.x,z.y,c.x,c.y);
     pf(z,c,zc);
     writeln(zc.x:5:2,zc.y:5:2);
     complexe(zc.x,zc.y);
     ext_comp(zc.x,zc.y);
end.

La procédure "ext_comp.pas" contient le code suivant:

Code:

1
2
3
4
5
6
procedure complexe(pz,pc:real);
    begin
         if pc>0      then writeln('z = ',pz:4:1,' + ',pc:4:1,' i')
         else if pc<0 then writeln('z = ',pz:4:1,' - ',abs(pc):4:1,' i')
         else if pc=0 then writeln('z = ',pz:4:1);
    end.

La procédure que je veux appeler c'est: "ext_comp.pas" et elle est dans : "c:\"

10/04/2009, 14h21
Alcatîz

L'utilisation de la directive $I est :

Code:

{$I c:\ext_comp}

(avec les accolades).
Mais, en fait, quelle est la raison de garder cette procédure dans un autre fichier source ?
10/04/2009, 16h16
amtdev

C'est vrai que dans cet exemple ça n'a pas de sens, mais c'est pour comprendre le principe.
Après correction le compilateur m'affiche le message d'erreur suivant:
" Error 118:Include files are not allowed here " ????
10/04/2009, 18h52
droggo
Vea,

Attention à la définition de ton type
Code:

1 2 3 type comp = record x,y : real; end;
qui recoupe un type prédéfini de TP, d'où risques de confusion.
10/04/2009, 21h35
amtdev

Peut être, mais ce n'est pas à ce niveau que le compilateur signal l'erreur.
10/04/2009, 21h50
Alcatîz

L'include doit se situer avant le programme principal, à l'endroit où tu aurais écrit ta procédure si elle n'était pas dans un autre fichier source.
11/04/2009, 14h18
droggo

Cao,

Citation:

Envoyé par amtdev

Peut-être, mais ce n'est pas à ce niveau que le compilateur signale l'erreur.

Ce n'est pas une raison pour le faire.

Le compilateur s'en sortira souvent, mais ça t'expose à de nombreuses erreurs de TA part.

Il est tout de même facile d'éviter la réutilisation des quelques mots définis par un langage et un compilateur.
12/04/2009, 07h35
amtdev

Droggo, tout ce que vous dites est juste, d'ailleurs je vous remercie pour les remarques sur les erreurs survenues dans mon message (désolé).
Si vous permettez, je vous joint une prise d'écran pour mieux voir le résultat de ma compilation.(en changeant l'identifiant du type enregistrement). Merci encore.
12/04/2009, 07h41
amtdev

1 pièce(s) jointe(s)

Encore pardon, j'ai validé avant d'avoir joint l'image.Pièce jointe 44698