load_gif - If interlace
move_gif - laduje gifa NAZWA do DANE, paleta do P, ile wart.
bigbuflen
gifCheck
gifERROR
procedure load_gif (nazwa:string;var dane:obrwsk; var p:bpt;
var ilepal:word;how,mem:boolean);
If interlace
procedure move_gif ( var GIFplik:file;
var dane:obrwsk; var p:bpt;
var ilepal:word;how,mem:boolean;
ishead:boolean);
laduje gifa NAZWA do DANE, paleta do P, ile wart.palety do ILEPAL,
GIFERROR wiadomo, HOW-jak skrocic obrazek gdy za duzy:2 mozliwosci,
MEM-czy przydzielic pamiec?klasa LZWdecode
bigbuflen = 32000
uzywanie obrazkow GIF, troche wolne ale zawsze skuteczne!
(C) 1993 UHO SOFTWARE Lukasz Knasiecki
kontakt:ul.Spasowskiego 7c/5 Koszalin
kopiowanie bez zgody autora zabronione!
bledy GIFERROR: 1-to nie gif
2-blad przy czytaniu headera
3-plik uszkodzony [wewnetrznie]
4-blad dyskowy
5-za duzy obrazek
gifCheck : boolean
gifERROR : byte