Discussion :

[lex001]

Salut tout le monde ...
Je suis en train de faire un quiz en utilisant le mode graphique. J'ai un problème avec la fonction

Code :

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

initgrapgh(mode,pilote,'c:\tp\bgi');

J'aimerais savoir comment faire fonctionner mon programme (sous l'extension .exe) sans utiliser le dossier bgi. Ou j'aurai toujours besoin du fichier .exe et du dossier bgi pour exécuter un programme en mode graphique.

Merci

[darrylsite]

Tu peux soit utiliser le dossier bgi avec ton exe, soit utiliser l'outil binobj.exe situé dans le repertoire bin de ton turbo pour convertir les bgi et les lier directement à ton programme.
Je te donne un lien pour voir un exemple utilisant la deuxieme solution :
http://www.developpez.net/forums/d50...es-lumineuses/

[lex001]

J'aimerai enfet convertir les bgi et les lier directement à mon programme.Mais je ne comprend pas comment utiliser l'outil binobj.exe .J'ai lu le lien precedent. J'ai creer un repertoire 'lex' ou j'ai mis BINOBJ.EXE
et ou je suis suposé mettre un fichier .bgi .Au fait quel fichier du repertoire bgi doige mettre dans mon repertoire ? Egavga.bgi? Et que devient mon programme Quiz.exe ?

[Alcatîz]

Bonjour !

Tu disposes théoriquement d'un exemple complet, fourni avec TP7 : bgilink.pas. Si tu ne disposes pas de cet exemple, je peux le mettre en ligne.

[lex001]

Merci j'ai telechareger le fichier bgilink.pas. Mais j'ai je comprend pas MIC** a ce niveau

Si tu veux ne créer et utiliser qu'un seul OBJ alors il faut faire comme ça:

je prends l'exemple EGAVGA.BGI:

Tu créés un répertoire tu y mets:
EGAVGA.BGI, BINOBJ.EXE
et tu lances la ligne de commande:
binobj egavga.bgi egavga EAVGADriverProc

Cela te créé un seul fichier nommé EGAVGA.OBJ

Savez vous comment lacer une commande ? c'est sur MS-DOS ou TP ?

[Dr.Who]

c'est du MSDOS oui.

ça fait bizarre de revoir un truc que j'ai pas vus depuis 98!

sinon tu as aussi le mode X avec l'assembleur ... plus complexe à mettre en oeuvre par contre.

c'est bête j'avais de nombreuse source de l'époque utilisant EGAVGA ...
si j'ai une sauvegarde quelques part, je te ferai un zip.

[lex001]

Merci j'ai reussi a creer EGAVGA.OBJ . Et j'essaye d'introduire le fichier EGAVGA dans le programme en utilisant ce 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
{=========================================================================}
{ inclusion du pilote EGAVGA directement dans le programme ex‚cutable }
 procedure EGAVGAdriverProc; external;
           {$L EGAVGA.OBJ}
{=========================================================================}
procedure Init_VGA;                                      { Init du mode VGA }
 Var
 GraphPilote, GraphMode,error,init :Integer;
 Begin
 Init := RegisterBGIdriver(@EGAVGAdriverProc);
         GraphPilote := VGA;
         GraphMode := VGAHI;               { Mode VGA 640 x 480 16 couleurs }
 InitGraph (GraphPilote,GraphMode,'');     
 error := GraphResult;
 if(error <> 0) Then Begin   {Erreur ?}
     Writeln ('Erreur Graphique ',GraphErrorMsg(error));
     readln;

Mais j'ai une erreur de compilation

Code :

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

Error 46: Undefined external (EGVGAdriverproc)

Savez vous comment déclarée la procédure ou fonction PUBLIC ?