Forum Programosy

Mam mały problem, napisałem taki prosciutki programik:

Program PR1;
uses crt,graph;
var karta,tryb : Integer;
begin
clrscr;
DetectGraph (karta,tryb);
Initgraph(karta,tryb,'c:windows/system');
putpixel(10,10,yellow);
readln
end.

kompiluje sie dobrze ale jak uruchamiam to wyskakuje blad BGI error: Graphics not initialized (use Initgraph)

wydaje mi sie ze dlatego ze zle wskazałem sciezke do sterownikow, ale nie wiem gdzie onie sie instaluja
a po 2: to jak pojde pochwalic sie kumplowi programem z modułem graph to bede za kazda zmiana kompa zmieniac sciezke do sterownikow ?

lipton napisał(a):kompiluje sie dobrze ale jak uruchamiam to wyskakuje blad BGI error: Graphics not initialized (use Initgraph)

hm...szkoda ze faka z infy opuszczalem jak o Pascalu bylo......mam nadzieje ze cos jeszcze pamietam

Dysponujac kodem źródłowym, wystarczy tylko poprawić tą ścieżkę tak, aby wskazywała na podkatalog gi w katalogu Turbo Pascala (najczęściej c: pgi). Jeśli nie dysponujesz kodem źródłowym, to pojawia się mały problem, bo trzeba zgadnąć gdzie też autor programu miał swoje sterowniki. Najczęściej będzie to katalog bieżący, czyli wystarczy skopiować plik egavga.bgi (albo bezpieczniej - *.bgi) do katalogu, w którym znajduje się błędnie napisany program.

Tyle wiem

PZRD

to ja nnapisałem ten program i mam kod ...


ten plik EGAVGA.BGI znajduje sie C:\Program Files\TP\BGI

zmienilem kod i dalem sciezke taka i dalej ten sam blad

Zrob tak:
wystarczy tylko poprawić tą ścieżkę tak, aby wskazywała na podkatalog \bgi w katalogu Turbo Pascala (najczęściej c:\tp\bgi)

najlepiej napisz sobie procedurke:

Kod: Zaznacz wszystko

procedure start_grafiki(path:string);
var
k:integer;
begin
k:=detect;
initgraph(k,k,path);
end;


i teraz w programie mozesz jej uzywac:

Kod: Zaznacz wszystko

begin
start_grafiki('c:\tp\bgi');
.
rysowanie
.
closegraph;
end.


gdzie 'c:\tp\bgi' - to jest sciezka dostepu do katalogu BGI na twoim dysku

PZDR

to samo ...

lipton napisał(a):to samo ...

To juz zaczynam glupiec

a czy w tym katalogu /bgi JEST UMIESZCZONY/SKOPIOWANY plik EGAVGA.BGI

Dodaj/to drugie zeedytuj takie linijki

Kod: Zaznacz wszystko

ster:= vga; tryb:= vgahi;
initgraph(ster, tryb, 'c:\bgi');

PZDR
P.S
ta lokalizacje oczywiscie dostosuj do siebie:)

zrobilem tak jak mowisz i dalej nie działa ...

nawet przekopiowałem katalog BGI na c: i zmienilem sciezke na c:\bgi i dalej nie dziala

hmmmm
hmmmm
hmmmm

no i po co Łukaszu opusczales fakultet z informatyki

jest taka funkcja zeby sprawdzic dokladnie dlaczego

Kod: Zaznacz wszystko

#include
int main(void)
{
    int gerr;   /* graphics error */
    int gdriver = DETECT, gmode;
    /* Initialize graphics using auto-detection and look
    for the .BGI and .CHR files in the C:\TURBOC directory.
    */
    initgraph(&gdriver, &gmode, "C:\\TURBOC");
    if ((gerr = graphresult()) != grOk)
    {
        printf("Error : %s\n", grapherrormsg(gerr));
        exit(1);
    }
    :
}

PZDR