TBitmap bleibt leer

[Hazardos]

Hallo, ich habe folgenden Quelltext:

Delphi-Quellcode:

var bmp : TBitmap;
    x,y : integer;
    p : pbytearray;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('C:\test.bmp');
bmp.width := 100;
bmp.height := 100;

for y := 0 to bmp.Height - 1
  do
    begin
      p := bmp.ScanLine[y];
      for x := 0 to bmp.Width*3 - 1
        do p[x] := Random (255);
    end;
Image1.Picture.Assign(bmp);
end;

das Problem ist, dass das Resultat ausbleibt wenn ich die Zeile
<bmp.LoadFromFile('C:\test.bmp');>
entferne. Ich könnte jetzt sicherlich mogeln um das Problem zu umgehen, aber dadurch werde ich ja nicht schlauer... Wär super wenn einer von euch mir weiterhelfen könnte (Ursache, Lösung)...
MfG Jörn

[Hawkeye219]

Hallo Jörn,

woher soll das TBitmap-Objekt die Größe kennen, wenn du sie nicht vorgibst?

Delphi-Quellcode:

bmp := TBitmap.Create;
bmp.Width := gewuenschte_Breite;
bmp.Height := gewuenschte_Hoehe;

Gruß Hawkeye

[Hazardos]

Stimmt, das hab ich hier vergessen...
Der gepostete Quelltext ist nur eine Vereinfachung des Originals, welches die Größenzuweisung natürlich enthält.

[Hawkeye219]

Du solltest auch das richtige Pixel-Format setzen:

Delphi-Quellcode:

bmp := TBitmap.Create;
bmp.Width := 100;
bmp.Height := 100;
bmp.PixelFormat := pf24Bit;  // <<--- hier

Gruß Hawkeye

[Hazardos]

Ne, das hat auch nichts gebracht... Ich denke, dass der Pointer von Scanline nicht zugewiesen werden kann, da die bitmap ja noch leer ist. Vielleicht müsste man sie erst irgendwie initialisieren.... aber wie?

[SirThornberry]

Das Bitmap ist nicht leer. Das Bitmap ist einfach nur einfarbig, aber nicht leer.
@Hazardos. Was soll denn das Resultat sein?
Und warum lässt du die x-Schleife bis zu einer Breite * 3 durchlaufen? Willst du anderen Speicher überschreiben oder hab ich da was übersehen? Ah, ich seh warum. Du verwendest ein ByteArray anstelle eines TRGBTribleArrays

bei mir funktioniert es übrigens wenn ich nach dem setzen der Bildgröße folgendes einfüge:

Delphi-Quellcode:

  bmp.PixelFormat := pf24bit;

zuvor ist das PixelFormat = pfDevice und somit ist es nicht möglich mit scanline darauf zu zugreifen (siehe hilfe)

[Hazardos]

Okay, ich hatte einen kleinen Flüchtigkeitsfehler beim Setzen des Pixel-Formats drin...
Dankeschön für Eure Hilfe!!! :-*