Discussion :

[malfoy]

salut !
En fait j'ai un problème avec l'initialisation du mode graphique. Quand je fais :

Code :

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

1
2
3
...
initgraph(gd,gm,'c:\documents and settings\ramatoulaye\bureau\rmx\tp7\bgi');
...

à chaque fois on me signale une erreur au niveau de cette ligne :

Error: call by var parameters have to match exactly: Got LONGINT expected SMALLINT

je comprend pas d'où vient l'erreur. SVP j'ai vraiment besoin d'aide !
voici le programme en entier :

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
program graphik;
uses crt, graph;
var gd, gm : integer;
 
begin
clrscr;
gd := detect;
initgraph(gd,gm,'c:\documents and settings\ramatoulaye\bureau\rmx\tp7\bgi');
if graphresult <> grok then
begin
     writeln(grapherrormsg(graphresult));
     writeln;
     halt;
end;
 
readln;
closegraph;
end.

[l_autodidacte]

La compilation sous Turbo Pascal et FPC se passe bien et sans message d'erreur.
De plus, j'ai ajouté juste avant le ReadLn

Code :

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

OutText(' XXXXXXX');

et le texte s'affiche correctement. Je ne vois donc aucun problème.

As-tu compilé sous un autre compilateur ?

[droggo]

Lau,

Avec cette ligne

Code :

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

initgraph(gd,gm,'c:\documents and settings\ramatoulaye\bureau\rmx\tp7\bgi');

TP devrait crier à l'exécution : il ne connaît pas les noms longs.

[diden138]

Non il faut éviter les long chemin,
tu dois juste spécifier dans l'IDE pascal le chemin vers les librairies et ça devrait marcher

Cordialement,

[droggo]

Hoa,

C'est à moi que tu réponds ?

Si oui, et vu le contexte avec la ligne citée, c'était clair.

[l_autodidacte]

Pourtant ça compile sur ma machine !!!!!!

Peut-être que le compilateur cherche en premier dans le dossier indiqué dans le code et s'il ne trouve pas, il cherche dans le dossier spécifié dans l'IDE.

Cela se fait pour les applications créées sous VB par exemple, pour TP ou BP, je ne sais pas.

[droggo]

Heo,

Ne pas confondre compilation et exécution.

À la compilation, on attend une string, il ne va pas aller contrôler si le chemin est valide ou pas (avec le chemin que j'ai cité, ça voudrait dire que tu as exactement la même configuration de dossiers que malfoy ?).

Essaye d'exécuter.

[l_autodidacte]

Et à l'exécution aussi ça marche.

Pour la configuration, si tu parles du chemin d'accès au dossier BGI, voici ce que j'ai mis(en recopiant le dossier BGI en entier) :

Code :

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

'C:\Documents and Settings\Mon_Nom\Bureau\RMX\TP7\BGI'

et pour en être sûr, j'ai renommé le dossier BGI d'origine.

[droggo]

Dia,

Ce n'est pas logique, sauf peut-être si tu exécutes en fait dans une fenêtre Invite de commandes de Windows. Et même comme ça, je suis surpris.

Mais on ne va pas y passer notre vie.

[diden138]

@autodidact Incroyable ! tu est sous quel compilateur ?
Si je me souviens bien la longueur maxi c'est 8 caractères alors la je suis surpris que ça marche, peut être que tu est sous FreePascal ? si c'est le cas c'est normal

Cordialement,

[l_autodidacte]

Je t'assure que ça s'est passé comme je l'ai décrit.
Moi aussi je ne comprends pas ce qui se passe.
Pourtant quand je teste avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt,add;
const Fich='F:\Documents and settings\mon_Nom\Bureau\Test.txt';
var f:Text;
    i:Integer;
Begin
  ecran(1,4,14);
  Assign(f,fich);
  ReWrite(f);
   for i:=1 to 255 do
     begin
       writeln(f,i,'  :  ',chr(i));
     end;
End.

BP7 me renvoie le message d'erreur : Path not found ce qui est normal puisque TP ou BP ne reconnait pas les chemins longs.
Lorsque je remplace le chemin par 'F:\Docume~1\mon_Nom\Bureau\Test.txt' tout se passe bien.

Après recherche, j'ai pu constater que le dossier BIN contient aussi les fichiers du pilote graphique !!!!!! C'était donc ça l'origine de cette anomalie.

[degio1er]

je te conseil d'essayer cette initialisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Gd,Gm,CodErr:Integer;
 Begin
   Gd:=Detect;
   CodErr:=GraphResult;
   InitGraph(Gd,Gm,'..//bgi');
   If CodErr<>grOK then
   begin
     Writeln(' Probleme de pilote graphique : ',GraphErrorMsg(CodErr));
     readln;
     Halt(1);
 End;

voici ton code :

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
program graphik;
uses crt, graph;
var 
gd, gm : integer;
 
begin
clrscr;
gd := detect;
initgraph(gd,gm,'..//bgi');
if graphresult <> grok then
begin
     writeln(grapherrormsg(graphresult));
     writeln;
     halt;
end;
 
readln;
closegraph;
end.