Initialisation/utilisation du mode graphique (unité graph)

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

Code:

---

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:

---

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.

---

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:

---

OutText(' XXXXXXX');

---

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

As-tu compilé sous un autre compilateur ?

Lau,

Avec cette ligne

Code:

---

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.

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,

Hoa,

C'est à moi que tu réponds ?

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

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.

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

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:

---

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

---

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

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. :P

@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 ? :P si c'est le cas c'est normal

Cordialement,

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:

---

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.

je te conseil d'essayer cette initialisation :

Code:

---

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:

---

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.

---