Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.06;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
14-1108111766
Dimedrol
2005-02-11 11:49
2005.03.06
Вот страничку себе сделал :-)


4-1106081297
Oddin
2005-01-18 23:48
2005.03.06
CD-ROM


1-1108562683
Checist [root]
2005-02-16 17:04
2005.03.06
Расширить TComboBox


1-1108804782
Object
2005-02-19 12:19
2005.03.06
Уважаемые мастера, помогите разобраться с TList !!!!


1-1108623871
Shirson
2005-02-17 10:04
2005.03.06
Странность OnMouseDown в TTReeView.