Bitte ergänzen bzw. änderen.
Delphi-Quellcode:
//
// Wandelt das 18 Bit Bild in ein 24 Bit Bild um.
//
// data - Daten des 18 bit Bildes
// iWidth - Breite des Bildes
// iHeight - Höhe des Bildes
// Result - Ein neu erzeugtes TBitmap-Object mit den 24 Bit Bild
//
function Bmp18ToBmp24(const data; iWidth, iHeight: Integer): TBitmap;
var -> const getauscht, schreib ja eh nicht in die daten
Delphi-Quellcode:
//
// Wandelt ein 24 Bit Bild in ein 18 Bit Bild um.
//
// bmp - Bitmap, welches umgewandelt wird. Diese Bild wird nicht geändert
// sondern intern in ein neues Bitmap kopiert.
// pDest - Rückgabe des via GetMem erzeugten Speicherbereiches der die Daten
// des 18 Bit Bitmaps enthält.
// Result - Größe des zurückgegebenen Speicherbereiches
//
function Bmp24ToBmp18(bmp : TBitmap; out pDest : Pointer) : Cardinal;
var -> out, da ich nur etwas zurückgebe
Fix:
Result := 0;
Füge mal bitte diese Zeile ein nach dem Begin von Bmp24ToBmp18. Das sollte lästige Warnungen vermeiden.