Bitmap erstellen mit TBitmap.Create und speichern

[Alex_ITA01]

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

[mkinzler]

Welche Typen haben i und j?

[Alex_ITA01]

beides Integer. Normale Schleifenvariablen...

[Alex_ITA01]

Habe es gerade mal mit 100 getestet (anstatt 300) und da gehts auch noch allerdings ist das Bild nicht wie erwartet ein konstant gefülltes schwarzes Quadrat sondern hat auch ein paar weiße Lücken drinne... Siehe Screenshot (nur ein Ausschnitt aus der gesamten Bilddatei)

[Alex_ITA01]

Habe es jetzt mal in einer Testanwendung programmiert, da geht es wunderbar.
Es funktioniert anscheind nur nicht, wenn ich es in einem Thread laufen lasse, der mit den Indy's über TCP komuniziert...
Könnte es an soetwas liegen?

MFG Alex

[Alex_ITA01]

nur zur Ergänzung:
Die weißen Balken sind immer an verschiedenen Stellen obwohl ich nix am Quelltext ändere...
ich verstehe das nicht?!

MFG Alex

[mkinzler]

Und wenn du die Daten im Thread irgendwo zwischenspeicherst?

[Alex_ITA01]

Ich habe im Thread jetzt schon eine neue Procedure geschrieben mit dem Namen CreateNewBitmap;

Wenn ich darin folgenden Source verwende, dann hab ich mal weiße Balken da, mal da und mal da...

Delphi-Quellcode:

procedure CreateNewBitmap;
var
  Bmp  : TBitmap;
  i, j : Integer;
begin
  Bmp        := TBitmap.Create;
  Bmp.Width  := 1024;
  Bmp.Height := 768;
  Bmp.Pixelformat := pf32bit;

  for i := 0 to 1023 do
  begin
    for j := 0 to 767 do
    begin
      Bmp.Canvas.Pixels[i,j] := 0;
    end;
  end;

  Bmp.SaveToFile('C:\Test.bmp');
end;

Ich verstehe es einfach nicht...
MFG Alex

[Martin K]

Und wenn du das schwarze Quadrat einfach mal mit FillRect() füllst, anstatt jedes Pixel einzeln zu zeichnen?
(Farbe setzt du vorher mit Brush.Color)

[mkinzler]

Das mit der 0 ist wohl nur ein Test. Er hat wohl vor Bilddaten per INDY zu versenden