GFX LoadFile BMP Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Lädt eine BMP-Datei mit 1-, 4-, 8- oder 24-bpp Farbtiefe. Dabei können sowohl die normale, unkomprimierte BMP-Version wie auch die - seltener vorkommende - lauflängenkomprimierte Version geladen werden.

X0,Y0 gibt die linke obere Ecke des Bildes an; XE,YE die rechte untere Ecke. Ist das Bild größer, wird es abgeschnitten. Wird für XE,YE 0,0 eingegeben, wird das Bild in voller Größe geladen.

Zurückgelieferte Fehlercodes:

>0 - alles OK - es wird die Höhe des Bildes in Pixeln zurückgegeben
-1 - Dateifehler (z.B. Datei kann nicht gelesen werden, oder ist zu klein für ein BMP-Bild)
-2 - nicht unterstütztes BMP 
-3 - falsches Dateiformat

Deklaration

FUNCTION LoadFile_BMP(Name : STRING; X0, Y0, XE, YE : Integer) : Integer;

Beispiel

{ ACHTUNG: Sie sollten ein Testbild namens TEST.BMP     }
{ im gleichen Verzeichnis wie das Programm deponieren ! }
PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  LoadFile_BMP('TEST.BMP', 0,0,0,0); { lädt die BMP-Datei in voller Größe }
  ReadKey;
END.

---