Hallo zusammen,
mit folgendem Source erstelle ich ein Bitmap und speicher dieses ab.
Delphi-Quellcode:
Bmp := TBitmap.Create;
Bmp.Width := 1024;
Bmp.Height := 768;
Bmp.Pixelformat := pf32bit;
for i := 0 to 5 do
begin
for j := 0 to 5 do
begin
Bmp.Canvas.Pixels[i,j] := 0;
end;
end;
Bmp.SaveToFile('C:\Test.bmp');
Das funktioniert und die Datei ist 3MB groß.
Aber wieso funktioniert folgendes nicht?
Delphi-Quellcode:
Bmp := TBitmap.Create;
Bmp.Width := 1024;
Bmp.Height := 768;
Bmp.Pixelformat := pf32bit;
for i := 0 to 300 do
begin
for j := 0 to 300 do
begin
Bmp.Canvas.Pixels[i,j] := 0;
end;
end;
Bmp.SaveToFile('C:\Test.bmp');
Er speichert mir zwar eine Datei auf C aber die ist 0k groß.
Ich habe nur die Schleifenvariablen erhöht.
Wisst ihr was das sein kann?
MFG Alex