La Web del Programador: Comunidad de Programadores
 
    Pregunta:  22227 - PROBLEMAS CON EGAVGA.BGI
Autor:  Manuel Nin
Salu2 All

Uso turbo Pascal 7 y cuando trato de usar la libreria GRAPH me arroja el siguiente error:

Device Driver file not found (EGAVGA.BGI)

Si alguien me puede ayudar? se lo agradecere...

Aqui el programa que ejecuto...
{Grfreslt.PAS}

{Sample code for the GraphResult function.}

uses Graph;

var
ErrorCode: Integer;
GrDriver, GrMode: Integer;
begin
GrDriver := Detect;
InitGraph(GrDriver, GrMode, ' ');
ErrorCode := GraphResult; { Check for errors }
if ErrorCode <> grOk then
begin
Writeln('Graphics error:');
Writeln(GraphErrorMsg(ErrorCode));
Writeln('Program aborted...');
Halt(1);
end;
ClearDevice; { Do some graphics... }
Rectangle(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end.


  Respuesta:  Hugo Gonzalez
Primero checa la ruta de donde esta el driver, que lo debes de tener en el directorio de BGI, en el directorio donde tienes instalado el Turbo Pascal.

para solucionar ese problema tienes que poner la ruta de donde se encuentra el driver en la linea

InitGraph(GrDriver, GrMode,'Aqui va la ruta');

por ejemplo en mi maquina esta asi :

InitGraph(GrDriver, GrMode,'c:\tp\bgi');

otra buena soluciĆ³n puede ser

InitGraph(GrDriver, GrMode,'.\bgi');
cuando tienes una carpeta llamada bgi en el mismo directorio que esta tu ejecutable.

Mas adelante, si quieres distribuir tu programa o bien ponerlo en otra computadora, puede dejar la linea sin ruta, pero el driver tiene que estar en el mismo lugar que tu ejecutable.

Espero que esto te sirva.

Salu2!

  Respuesta:  SuNcO
Eso me paso una vez hasta que ese archivo lo puse en el directorio principal del Turbo Pascal y con eso ya quedo bien, aunque tambien checa la seccion de directorios en la de Graficos o algo asi dice

  Respuesta:  Hugo Rojas
Hola!
Hace tiempo programe en Pascal, este error se soluciona buscando el archivo EGAVGA.BGI y lo metes en bin de TP, o darle el path donde esta el driver. Espero te sirva