Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Help!

SSA © (2002-09-07 21:09:00)
Здравствуйте!!!!
Извените что вопрос по Паскалю, но у меня большоая просьба помощи!
Вся проблема в том, чт я не могу реализовать графический режим, а ошибка в том,
что он не может найти файл EGAVGA.BGI, хотя он есть, в чем тут может быть проблема, если что
вот код:

Uses Graph;

Var ErrorCode : Integer;
GrDriver, GrMode : Integer;

Begin
GrDriver:=Detect;

InitGraph(GrDriver, GrMode, "");
ErrorCode:=GraphResult;
If ErrorCode <> grOk Then
Begin
WriteLn(GraphErrorMsg(ErrorCode));
readln;
Halt(1);
End;
Rectangle(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End.

Юрий Зотов (2002-09-07 21:44:00) [1]
Вот кусок из моей старой, нормально работающей программы. Графические драйверы лежат в ее же каталоге.

grDriver := Detect;
InitGraph(grDriver, grMode, "");
grCode := GraphResult;
if grCode <> grOk then
begin
WriteLn(GraphErrorMsg(grCode));
Halt(1)
end;

Отличий, как видите, нет. Если файл драйвера не запорот, то должно работать.

Kopetr (2002-09-07 21:32:00) [2]
Если прописан правильный путь, должно работать. В крайнем случае попробуй скопировать файл в папку с программой. И посмотри
настройки (options->directories), может там чего не хватает.

SSA (2002-09-07 21:24:00) [3]
НУ ОЧЕНЬ НУЖНА ПОМОЩЬ!!!!!!!!!!!!!

SSA (2002-09-07 21:12:00) [4]
Я все пробовал :(
Вот в этом и проблема!

Poirot (2002-09-07 21:10:00) [5]

> InitGraph(GrDriver, GrMode, "");

Попробуйте путь прописать!!!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »