VPF::Программа использующая модуль GRAPH

karataev

Дата 29.1.2006, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

Репутация: нет
Всего: нет

Я тут обнаружил такую неудобную вещь: когда создал программу, рисующую геометрические фигуры, она в папке с Паскалем работает нормально, а как только скопировал ее в другую папку, она открывается и сразу же закрывается. Обнаружил, что ей нужны файлы с расширением .BGI из папки паскаля (как я понял, видеодрайвера?).

Можно ли сделать так, чтобы программа работала самостоятельно, чтобы не нужно было таскать в папку с ней файлы .BGI??? smile

volvo877

Дата 29.1.2006, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Сконвертируй BGI в OBJ (при помощи \BIN\BINOBJ.EXE), и прилинкуй эти OBJ-файлы к EXE-шнику директивой {$L name}... Тогда все, что нужно - будет сразу включено в EXE файл, и ничего таскать не нужно будет...

karataev

Дата 29.1.2006, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Спасибо

karataev

Дата 29.1.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Сконвертировать у меня получилось, прилинковать - нет. Не делал этого никогда. Можешь описать это поподробнее, привести в пример код?

volvo877

Дата 29.1.2006, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Сконвертировал:

Цитата

BINOBJ EGAVGA.BGI EVAVGA.OBJ EGAVGADriverProc

и подключаешь OBJ файл к программе:

Код

{$L EGAVGA.OBJ}
Procedure EGAVGADriverProc; External;
...
Var grDriver, grMode, ErrCode : Integer;
...
Begin
  If RegisterBGIDriver(@EGAVGADriverProc) < 0 Then
    Begin
      WriteLn('Error registering driver : ',
        GraphErrorMsg(GraphResult)); Halt(100)
    End;

  grDriver := VGA; grMode := VGAHi;
  InitGraph(grDriver, grMode, '');
  ErrCode := GraphResult;
  If ErrCode <> grOk Then
    Begin
      WriteLn('Graphics error : ', GraphErrorMsg(ErrCode));
      Halt(100)
    End;
...
End.

Все, теперь заботиться о наличии BGI файла не нужно, он включен в EXE...

karataev

Дата 29.1.2006, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Спасибо большое, разобрался smile

armageddon

Дата 31.1.2006, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

а чего вы мучаетесь?
разве нельзя просто в initgraph полность прописать путь драйвера?
лично у меня проги работают не зависимо от их положения в папках компьютера

karataev

Дата 1.2.2006, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Цитата

лично у меня проги работают не зависимо от их положения в папках компьютера

Так все равно это подразумевает что драйвер на компе должен быть. Да еще и в определенной папке. А если у кого то его нет? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »