Allgemeines zu den Dateien und Proceduren

1.0 Statistik zum Quelltext und DLL-Code
2.0 Die Dateien im Einzelnen

2.1 Das Verzeichnis "CRUN"
2.2 Das Verzeichnis "DECO"
2.3 Das Verzeichnis "PUBL"
2.4 Das Verzeichnis "ANIM"
2.5 Das Hauptverzeichnis

3.0 Kurze Beschreibung der Haupt-Proceduren (Funktionen)

3.1 closehandle(w_min:HWnd)
3.2 int := pack( Source, Destination:Pcar, Qualität, Parent_win:HWnd)
3.3 int := minview( Source:Pcar; x,y:integer; var w_min:HWnd; Parent:Hwnd; Option:integer)
3.4 int:= maxview(Source:PCar ; Option:integer)
3.5 int:=openflc( Source:Pcar; x,y:integer; var w_min:HWnd; Parent:Hwnd; Option:integer)

3.5.1 int:=startflc
3.5.2 int:=stopflc

3.6 int:= save(Source, Destination:Pcar, Option:integer;Parent_win:HWnd)
3.7 int:=infoabout(Source:PChar;var fbt,typ,x,y:integer;var gr_u,gr_k:longint)
3.8 int:= scale(s,d:PChar;zx,zy,fb,keep:integer;Parent_win:HWnd)

4.0 Mögliche Fehler der Proceduren (Funktionen)

1.0 Statistik zum Quelltext und DLL-Code

An diesem Programm habe ich etwa 500 h geschrieben, wobei viel Zeit zum Testen und Forschen drauf ging. Mit Testen meine ich Performance-Tests und Packraten- Tests. Außerdem mußte ich viele Testprogramme schreiben, damit ich statistische Auswertungen machen konnte.

38	Dateien	QuellText
46	Proceduren	QuellText
24	Funtionen	QuellText
4666	Zeilen insgesamt	QuellText
rund 4600	Pascal-Anweisungen	QuellText
rund 6400	Assembler-Anweisungen	QuellText (alles max. 16bit)
58368	Bytes Code	DLL-Code
15892	Bytes Data	DLL-Code
8192	Bytes Heap	DLL-Code
0	Bytes Stack	DLL-Code

2.0 Die Dateien im Einzelnen

Hier sind die ganzen Programmdateien im einzelnen nochmals aufgelistet. Die Programmdateien habe ich, zur besseren Übersicht beim Programmieren, in Verzeichnissen gespeichert . Zur Darstellung habe ich jedes Haupt-Verzeichnis in einer Tabelle zusammengefasst und zu jeder Datei die Bedeutung und die Dateigröße notiert.

2.1 Das Verzeichnis "CRUN"

In diesem Verzeichnis sind Programm- Module, die für die Codierung und Decodierung von BMP <--> DSO,TRN dienen.

Dateiname	Größe	Bemmerkung
`GLOBAL\G_HUFFTA.PAS`	7425	Globale Variablen für Huffman und DeHuffman
`GLOBAL\G_MATRIX.PAS`	4999	Die Y,U,V,F,E,Q-Matrizen
`GLOBAL\G_MULTIP.PAS`	8591	Multiplikatoren für YUV —>RGB
`GLOBAL\GLOBALS.PAS`	3935	diverse Globale Variable
`GLOBAL\NULLBYTE.PAS`	8451	Ein Block von 4096Null Bytes
`CRUNCH\BLOCKUTI.PAS`	4714	Null und HuffmanCodierung Der Quant-Daten
`CRUNCH\RGB_YUV.PAS`	8279	RGB —> YUV
`CRUNCH\DCT_Y.PAS`	26115	von Cos-Transformation + Quantisierung
`CRUNCH\SAVE_MCU.PAS`	4439	Zerlegen und Verzweigen von RGB —> YUV —> MCU-Block
`CRUNCH\BMP_HEAD.PAS`	2045	Auslesen des BMP-Headers und Füllen von Parameter
`CRUNCH\CRUNCH.PAS`	5954	RGB-Blocklesen, Verzweigung bis Huffmancodieren
`DECRUN\YUV_RGB.PAS`	13550	YUV —> RGB
`DECRUN\IDCT_Y.PAS`	29445	Dequantisierung + inverse Cos-Transformation
`DECRUN\LOAD_MCU.PAS`	11786	Zerlegen von MCU —> YUV —> RGB
`DECRUN\DECRUN.PAS`	9930	Huffman-Block lesen Dehuffman —> MCU's Verzweigen
`CODDECOD.PAS`	1589	Verzweigen zu dem Crunch oder Decrunch

2.2 Das Verzeichnis "DECO"

Diese Programm-Module dienen zur Umwandlung einiger GrafikFormate ins BMP- Format.

Dateiname	Größe	Bemmerkung
`PCDDECOD.PAS`	8212	`Decodieren von 384iger und 768 PCD —> HeapBMP`
`DSODECOD.PAS`	3659	`Decodieren von DSO (CODDECOD) —> HeapBMP`
`PCXDECOD.PAS`	13686	`Decodieren beliebiger PCX-Dateien —> HeapBMP`
`TIFDECOD.PAS`	11182	`Decodieren ungepackter 1-24bit Tif —> HeapBMP`
`GIFDECOD.PAS`	12484	`Decodieren beliebiger Gif-Dateien —> HeapBMP`
`BMPDECOD.PAS`	3236	`Decodieren ungepackter BMP-Dateien —> HeapBMP`

2.3 Das Verzeichnis "PUBL"

In diesem Verzeichnis sind die Hauptproceduren, die dann zu den Nebenproceduren verzweigen.

Dateiname	Größe	Bemmerkung
`MIN_VIEW.PAS`	9403	Erstelle Fenster + Verzweige FormatModulen (Deco)
`MAX_VIEW.PAS`	7432	Erstelle Fenster + Verzweige FormatModulen (Deco)
`SCALE_FB.PAS`	12707	FarbScalierung, z.b. 1bit in 24-bitGrafik
`SCALE_PX.PAS`	5644	Größen- Scalierung von HeapBMP's
`SCALE.PAS`	5481	Scalieren von BMP —> beliebige Größe BMP
`SAVE.PAS`	3730	Convertierung von PCD,DSO,TIF,FLC, ->BMP
`PACKER.PAS`	1511	Packe 24bit Bitmap in DSO oder TRN (DSO=TRN)
`INFOABOU.PAS`	1724	Information über PCD, DSO, holen (X,Y,Größe,...)

2.4 Das Verzeichnis "ANIM"

In diesem Verzeicnis sind die Programm- Module.

Dateiname	Größe	Bemmerkung
`GLOBALS_.PAS`	2219	Globale Variablen für den Anim-Player
`INIT_FLC.PAS`	4047	Decodieren des Headers und Parameter füllen
`CHUNKASM.PAS`	15822	Decodieren der Chunks
`NEXTFRAM.PAS`	2750	Lesen eines Frames und Festlegen der FrameArt
`PLAY_FLC.PAS`	11046	Fenstererstellen und Verzweigung zu den Modulen

2.5 Das Hauptverzeichnis

Im Hauptverzeichnis stehen die Dateien, die zur Erstellung der DLL dienen. Außerdem ist ein Testprogramm "Hallo.pas" in diesem Pfad.

Dateiname	Größe	Bemmerkung
`DESOPLAY.PAS`	1212	zum Erstellen der "DLL"
`HALLO.PAS`	8261	zum Testen der Module und der DLL, je nach Compile
`HALLO.RES(binär)`	4748	zugehörig zur Hallo.Pas
`TOOLS.PAS`	5678	Globale Tools für die Module, z.B. ZahlenAusgabe
`TYPEN.PAS`	887	Allseits verwendete Typen, z.B. THugePointer
`V_UNIT.PAS`	1830	zum Erstellen der TPU = DLL, nur für Hallo.pas

3.0 Kurze Beschreibung der Haupt-Proceduren (Funktionen)

Die Proceduren (Funktionen) sind fast alle nach dem gleichen Schema aufgebaut.

Fehler:= Name(Parameter)

3.1 closehandle(w_min:HWnd)

Schließen eines Fensters und der gegebenenfalls offenen Speicher w_min = darf auch Null sein

3.2 int := pack( Source, Destination:Pcar, Qualität, Parent_win:HWnd)

Packen eines Bildes

"Source" und "Destination" sind möglichst mit vollem Verzeichnis und Laufwerk anzugeben
"Qualität" WerteBereich 0..7 (0 ist beste Qualität ohne Komprimierung 0% = BMP-Bild; 7 ist bei 85-98% Komprimierung Die Qualität 0 läßt alle Formate 1,4,8,24bit; Qual 1-7 geht z.Z. nur mit 24bit-Bildern empfohlen etwa 3-5 (mit 40 - 90% Komprimierung)
Ausgabe der Statusanzeige mit X-Start,Y_Start und ParenWindow

3.3 int := minview( Source:Pcar; x,y:integer; var w_min:HWnd; Parent:Hwnd; Option:integer)

Anzeigen eines kleinen Bildes

"Source" ist möglichst mit vollem Verzeichnis und Laufwerk anzugeben ein Bild wird nach seiner Erweiterung geprüft, folgende Erweiterungen werden unterstützt 'BMP', 'PCX', 'GIF', 'PCD', 'TRN', 'DSO' Es sei zu beachten bei PCD wird nur die 384 x 256 angezeigt
"x" , "y" ist die linke obere Ecke im Bezug auf ParentWindow
"w_min" ist das Handle des BildFensters, !!! var
"Parent" ist das Parent-Fenster
"Option" Wertebereich 0..1 0= ohne ScrollBars bei 384x384Überschreitung 1= ScrollBars bei Bereichsüberschreitung

Schließen und Freigabe des Gerätekontextes mit closeHandle(..)

3.4 int:= maxview(Source:PCar ; Option:integer)

Anzeige eines Vollbildes

"Source" ist möglichst mit vollem Verzeichnis und Laufwerk anzugeben ein Bild wird nach seiner Erweiterung geprüft, folgende Erweiterungen werden unterstützt 'BMP', 'PCX', 'GIF', 'PCD', 'DSO', 'TRN'. Es sei zu beachten bei PCD wird nur die 768 x 512 angezeigt
"Option" Wertebereich 0..1 0= ohne ScrollBars bei "maximale Auflösung" Überschreitung; 1= ScrollBars bei Bereichsüberschreitung

3.5 int:=openflc( Source:Pcar; x,y:integer; var w_min:HWnd; Parent:Hwnd; Option:integer)

FLC - Player mit dieser Procedure wird ein FLC-File geöffnet, und das erste Frame dargestellt

"Source" ist möglichst mit vollem Verzeichnis und Laufwerk anzugeben. Unterstützung nur für Dateien mit Erweiterung 'FLC' und 'FLI';
"x" , "y" ist die linke obere Ecke im Bezug auf ParentWindow
"w_min" ist das Handle des FlcFensters, !!! var
"Parent" ist das Parent-Fenster,

Schließen und Freigabe des Gerätekontextes mit closeHandle(..);

3.5.1 int:=startflc

Einschalten der Animation; ohne Parameter

3.5.2 int:=stopflc

Ausschalten der Animation; ohne Parameter

3.6 int:= save(Source, Destination:Pcar, Option:integer;Parent_win:HWnd)

Speichern eines Bildes ins 'BMP' Format

"Source" ist möglichst mit vollem Verzeichnis und Laufwerk anzugeben ein Bild wird nach seiner Erweiterung geprüft, folgende Erweiterungen werden unterstützt 'BMP', 'PCX', 'GIF', 'PCD', 'TRN', 'DSO', 'FLC', 'FLI'
"Destination" muß die Erweiterung BMP besitzen
Option wird nur für PCD-Bilder verwendet, Option hat da den Wertebereich 0..1; für null wird das kleine Bild gespeichert, bei 1 wird das große Bild gespeichert bei den Formaten FLC und FLI wird der erste verwendbare Frame des Files gespeichert; bei einem Fehler wird der BMP-File automatisch gelöscht
"Parent" ist das Parent-Fenster

3.7 int:=infoabout(Source:PChar;var fbt,typ,x,y:integer;var gr_u,gr_k:longint)

Informationen zum BildFile

"Source" ist möglichst mit vollem Verzeichnis und Laufwerk anzugeben ein Bild wird nach seiner Erweiterung geprüft, folgende Erweiterungen werden unterstützt: 'BMP', 'PCX', 'GIF', 'PCD', 'TRN', 'DSO', 'FLC', 'FLI'
"fbt" - Farbtiefe des Bildes in Bits Wertebereich 1,2,4,8,24
"typ" - Bildtyp 0= Schwarz-Weis; 1=Graustufen; 2=Farbe;
"x" - x-Ausdehnung: -Vertikal
"y" - y-Ausdehnung: - Horizontal
"gr_u" - Bildgröße unkomprimiert;
"gr_k" - Größe des Bildes auf der Platte

3.8 int:= scale(s,d:PChar;zx,zy,fb,keep:integer;Parent_win:HWnd)

Skalieren einer Bitmap

"Source" ist möglichst mit vollem Verzeichnis und Laufwerk anzugeben
zx,zy = Zielgröße von x,y
"fb" ist Zielfarbgröße; fb=0 Farbtiefe des Orginals wird beibehalten

fb=1 Farbtiefe wird auf 1bit gesetzt, wenn möglich
fb=2 Farbtiefe wird auf 4bit gesetzt, wenn möglich
fb=3 Farbtiefe wird auf 8bit gesetzt, wenn möglich
fb=4 Farbtiefe wird auf 24bit gesetzt

"keep" gibt an, ob das Seitenverhältnis beibehalten werden soll; keep=0 Seitenverhältnis wird beibehalten, wobei die maximale Ausdehnung, entweder in zx oder zy angenommen wird
"x_start", "y_start", "Parent_win" ... ParentWin=0 dann keine Ausgabe von Status

4.0 Mögliche Fehler, die Auftreten können

Die Fehler werden als Nummern zurück gegeben und nicht als Strings, da die Ausgabe der Fehler nun in deutsch oder einer anderen Sprache erfolgen kann.

{00} '< Alles OK >',
{01} 'Konnte das Fenster für das Bild nicht öffnen!',
{02} 'Die Bilddatei konnte nicht geöffnet werden',
{03} 'Das Laden des Bildes konnte nicht durchgeführt werden',
{04} 'Der Name der Bilddatei hat ungültiges Format',
{05} 'Dieses Dateiformat wird vom Programm leider nicht unterstützt',
{06} 'Das ist kein Bitmap - File',
{07} 'Keine Unterstützung von komprimierten Bitmaps',
{08} 'zu wenig Speicher, um das Bild zu Laden',
{09} 'Kein Zugriff auf den Globalen Heap',
{10} 'Das ist kein PCD-Format!',
{11} 'Das ist kein FLI-Format!',
{12} 'Das ist kein FLC-Format!',
{13} 'Die zu speichernde Datei konnte nicht angelegt werden',
{14} 'Lesefehler',
{15} 'Schreibfehler',
{16} 'Das ist kein Gif-Format!',
{17} 'Das ist kein PCX-Format!',
{18} 'Das Sourcebild muß 24bit haben',
{19} 'Dieses Bildformat wird vom Packer leider nicht unterstützt',
{20} 'Qualität wird vom Packer nicht unterstützt',
{21} 'Bild zu groß für den Packer',
{22} 'kein DSO oder TRN-Format');

	Blättern:
Mein Format Decodieren

Praktikum