• Zaloguj się!
• Zarejestruj się!

• Kompendium wiedzy
  • Delphi
    • Delphi 7. Kompendium programisty
    • Delphi 2005. Kompendium programisty
    • Artykuły
    • Gotowce
    • FAQ
  • C/C++
    • Artykuły
    • FAQ
  • C#
    • Wprowadzenie do C#
  • PHP
    • FAQ
  • Python
  • Java
  • Turbo Pascal
  • Z pogranicza
    • FAQ
  • Assembler
  • Algorytmy
  • (X)HTML
  • CSS
• Forum
  • Newbie
  • Delphi/Pascal
  • C/C++
  • C# i .NET
  • Java
  • PHP
  • Webmastering
  • Inne
  • Bazy danych
  • Algorytmy i struktury danych
  • Inżynieria oprogramowania
  • Praca
  • Off-Topic
  • Hardware/Software
  • Edukacja
  • Społeczność
  • Flame
  • Coyote
• Nowości
• Pastebin

• Edycja
• Napisz nowy artykuł w tym dziale
• Obserwuj
• Historia i autorzy

Sterowniki BGI - informacje ogólne

Wstęp

• ATT.BGI
• CGA.BGI
• EGAVGA.BGI
• HERC.BGI
• IBM8514.BGI
• PC3270.BGI
• VESA16.BGI

Komunikacja aplikacji ze sterownikiem

Inicjacja poprzez podanie ścieżki dostępu:

 
VAR
 Driver, Mode :Integer;
BEGIN
 Driver := Detect; // autodedekcja karty graficznej
 Mode := VGAHI; // ustalenie rozdzielczości
 InitGraph(Driver, Mode, 'C:\PASCAL\BGI'); // inicjacja trybu graficznego
 // (...)
 ProceduryGraficzne;
 // (...)
 CloseGraph; // Nie jest wymagane aby przejść do trybu tekstowego, aczkolwiek dobry zwyczaj zamykać to co się otwarło
END;
 

Linkowanie do pliku wykonywalnego:

1. Nazwa pliku *.BGI
2. Nazwa pliku *.OBJ
3. Nazwa procedury (będzie potrzebny jej adres do linkowania)

BINOBJ.EXE egavga.bgi egavga.obj EgaVgaDriverProc

 
UNIT RegBGI;
 
INTERFACE
 
PROCEDURE RegisterBGI;  { rejestracja sterownikow *.BGI }
 
IMPLEMENTATION
 
// dołączenie pliku do modułu
PROCEDURE EgaVgaDriverProc; EXTERNAL;
{$L EGAVGA.OBJ }
 
PROCEDURE Abort(Msg : STRING);
BEGIN
  Writeln(Msg, ': ', GraphErrorMsg(GraphResult));
  Halt(1);
END;
 
PROCEDURE RegisterBGI;
BEGIN
  IF RegisterBGIdriver(@EGAVGADriverProc) < 0 THEN
    Abort('EGA/VGA');
END;
 
END.
 

 
PROGRAM Demo;
 
USES RegBGI;
 
VAR
 Driver, Mode :Integer;
BEGIN
 Driver := Detect; // autodedekcja karty graficznej
 Mode := VGAHI; // ustalenie rozdzielczości
 InitGraph(Driver, Mode, ''); // inicjacja trybu graficznego
 // (...)
 ProceduryGraficzne;
 // (...)
 CloseGraph; // Nie jest wymagane aby przejść do trybu tekstowego, aczkolwiek dobry zwyczaj zamykać to co się otwarło
END;
 

Instalacja własnego sterownika

 
{------------------------------------------}
{                                          }
{ Modul do obslugi wysokich rozdzielczosci }
{ w trybach 256 kolorowych. Tryby dostepne }
{ tylko dla standardu VESA i SVGA          }
{                                          }
{------------------------------------------}
 
UNIT Svga256;
 
INTERFACE
 
USES Graph, Crt;
 
CONST
 { dostepne tryby graficzne }
 v320x200   = 0;
 v640x400   = 1;
 v640x480   = 2;
 v800x600   = 3;
 v1024x768  = 4;
 v1280x1024 = 5;
 
{ funkcje ustawiamy jako daleka po to by moc ja swobodnie wywolac }
FUNCTION  DetectSvga256 : Integer; FAR;
PROCEDURE InitSvga256(Path :STRING);
 
IMPLEMENTATION
 
VAR GraphDriver, GraphMode, GrErr : integer;
 
PROCEDURE InitSvga256(Path :STRING);
BEGIN
 GraphDriver := InstallUserDriver('SVGA256', @DetectSvga256);
 GraphDriver := DETECT;
 InitGraph(GraphDriver, GraphMode, Path);
 GrErr := GraphResult;
 IF GrErr AND $80 = $80 THEN GrErr := GrErr OR $FF00;
 IF GrErr <> grOK THEN
    BEGIN
     ClrScr;
     Writeln('Graphics error: ', GraphErrorMsg(GrErr));
     Halt(1);
    END;
 SetColor(White);
END;
 
FUNCTION DetectSvga256 : Integer;
BEGIN
 DetectSvga256 := v640x480;
END;
 
END.
 

 
PROGRAM Demo;
 
USES Svga256;
 
BEGIN
  InitSvga256('C:\PASCAL\BGI');
  // (...)
  ProceduryGraficzne;
  // (...)
  CloseGraph;
END;
 

Przecinek po spacji, a nie przed nią? Wątpię...

Szkoła

Kto Cię uczył stawiać przecinki?

Oleksy: zakładka 'Przenieś' (zmienilem)

Znalazłem  chwilkę  czasu  i  chęci  na  zrobienie  upgrade  oryginalnej  wersji  arta.  Mam  nadzieję,  że  poziom  merytoryczny  nieco  wzrósł. Prośba do bardziej zaawansowanych o zmianę tytułu na: "Sterowniki BGI - informacje ogólne" lub coś w tym stylu. Ja nie wiem gdzie zmienić tytuł :)

<quote>Nie edytujcie tego artykułu !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</quote>
Nie krzycz tak!!!!!!!!!!!!!!!!!!!!!!!!!!! Nie jesteśmy głusi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Zapoznaj się z zasadami redagowania artykułów, to nikt nie będzie miał powodu aby edytować.

<quote>PS : Nie edytujcie tego artykułu !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</quote>
A czytać możemy?? [rotfl]

che  che  obszerny  a  jakze  i  to  jeszcze  ja  dowalilem  troche  nekrofili  :)
<quote>... ze  chce  wykorzystac  jakiegos  trupa ...</quote>

<quote>PS : Przed edycją skontaktujcie się ze mną !
patryk432@onet.eu</quote>

Tja, jakże obszerny tekst.

... chyba ... to po co piszesz, sprawdz i napisz.
W doataku jak ktos jeszcze pisze w ''dos'ie'', to calkiem mozliwe, ze chce wykorzystac jakiegos trupa i niekoniecznie musi byc egavga.bgi (tak to jest ok nie  ... chyba ...).