Hallo !
Ich habe hier eine Quellcodepassage die ich nicht so richtig nachvollziehen kann, was da passiert
und wie ich diese in Delphi umsetzen kann.
Ich hoffe mir kann hier jemand dabei helfen....
image ist ein array of byte. Quasi eine Repräsentation im Raw-Format.
width und height sind eigenschaften der zukünftigen Bitmap.
Code:
int CMainFrame::SaveBitmapFile(char * filename, unsigned char * image, DWORD width, DWORD height)
{
unsigned char *p;
DWORD x, y;
p = (unsigned char *)malloc(width * height * 3);
if ( !p ) return 0;
for( y=0; y< height; y++)
{
for( x=0; x<width; x++)
{
*(p + (3 * width * (height - y - 1)) + (3 * x) + 0) = *(image+ (4 * width * y) + (4 * x ) + 0 );
*(p + (3 * width * (height - y - 1)) + (3 * x) + 1) = *(image + (4 * width * y) + (4 * x ) + 1 );
*(p + (3 * width * (height - y - 1)) + (3 * x) + 2) = *(image + (4 * width * y) + (4 * x ) + 2 );
}
}
BITMAPFILEHEADER bitmapFileHeader = { 0x4D42, 0, 0, 0, 0};
BITMAPINFOHEADER bmpInfoHeader;
DWORD dwResult;
bmpInfoHeader.biSize = 40;
bmpInfoHeader.biWidth = width;
bmpInfoHeader.biHeight = height;
bmpInfoHeader.biPlanes = 1;
bmpInfoHeader.biBitCount = 24;
bmpInfoHeader.biSizeImage = width * height * 3;
bmpInfoHeader.biXPelsPerMeter = 2835;
bmpInfoHeader.biYPelsPerMeter = 2835;
// Init bitmap header
bitmapFileHeader.bfOffBits =
sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER);
bitmapFileHeader.bfSize =
bitmapFileHeader.bfOffBits + bmpInfoHeader.biSizeImage;
}
Mit Createfile und FWrite wird die Date später geschrieben....
Das ist erst einmal mein Ansatz :
Delphi-Quellcode:
function SaveBitmapFile(filename : PChar, image : PByte,width : DWord, height : dword): integer;
var
p : array of byte;
x,y : integer;
begin
setlength(p,(width * height * 3));
for y:= 0 to heigth-1 do
begin
for x:=0 to width-1 do
begin
// den Bereich verstehe ich nicht so ganz.
end;
end;
....
end;
viele Grüße!