Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Вниз

Turbo Pascal   Найти похожие ветки 

← →
zsv   (2005-02-17 08:26) [0]

Ребята, кто знает, как можно скомпилировать графический драйвер с программой в Turbo Pascal?

---

← →
Digitman ©   (2005-02-17 09:19) [1]

> скомпилировать ..с программой


как это ?
скомпилировать можно некую конкретную программу, но скомпилировать что-то С программой - это нонсенс


> графический драйвер


что такое "графический драйвер" ?

---

← →
begin...end ©   (2005-02-17 09:34) [2]

> zsv   (17.02.05 8:26)

В каталоге с Турбо Паскалем имеется утилита BinObj. Вначале нужно с её помощью сделать объектный файл:

binobj egavga.bgi egavga mydriver

Здесь egavga - это имя нужного файла с драйвером.

После этого в каталоге появится файл egavga.obj. Теперь остаётся загрузить драйвер в программе:

uses Graph;
procedure MYDRIVER; external;
{$L EGAVGA.OBJ}
var
 Driver, Mode, Error: Integer;
begin
 if RegisterBGIDriver(@MYDRIVER) < 0 then
   // Ошибка
 else
 begin
   Driver := VGA;
   Mode := VGAHi;
   InitGraph(Driver, Mode, "");
   Error := GraphResult;
   ...
 end
end.

P.S. Фаронов рулит.

---

← →
MBo ©   (2005-02-17 09:37) [3]

прилинковать egavga.bgi можно.
Для этого binobj делаешь объектник, {$L EGAVGA.OBJ} и RegisterBGIDriver
Это описано в хелпе BP

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.053 c