Lier les fichiers BGI au programme

Version imprimable

27/04/2009, 01h40
lex001

Lier les fichiers BGI au programme

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:

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
27/04/2009, 12h21
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/
02/05/2009, 19h28
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 ?
03/05/2009, 11h23
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.

;)
20/10/2009, 23h14
lex001

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

Citation:

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 ?
21/10/2009, 03h13
Dr.Who

c'est du MSDOS oui.

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

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.

Merci j'ai reussi a creer EGAVGA.OBJ . Et j'essaye d'introduire le fichier EGAVGA dans le programme en utilisant ce code.

Code:

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:

Error 46: Undefined external (EGVGAdriverproc)

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