physikalische Kopie einer Bitmap

[bernhard_LA]

wir wollen von einer TBitmap in eine andere Bitmap kopieren und verwenden das assign commando
Aktuelle Fehler : das Bitmap zeigt ein anderes Muster, wir könnnen und den Inhalt nicht erklären



bitmap1.assign (bitmap2) ;


hat oft funktioniert, aktuell jedoch nicht. Speziell wenn das Bitmap zwischen div. Funktionsaufrufen so hin und her bewegen

[Gyrospeter]

Schon mit einem CopyRect probiert, ob es dann den Fehler dort auch gibt?

zb.

Code:

SR := Rect(0,0,Bitmap1.Width,Bitmap1.Height);
DR := Rect(0,0,Bitmap2.Width,Bitmap2.Height);

Bitmap2.Canvas.CopyRect(DR,Bitmap1.Canvas,SR);

[bernhard_LA]

ist dieses Problem bekannt für Delphi, bug in der assign function ?

[Rollo62]

Zitat von bernhard_LA:

ist dieses Problem bekannt für Delphi, bug in der assign function ?

Eventuell zu große Bitmaps / Speicherprobleme ?

[dummzeuch]

Zitat von bernhard_LA:

wir wollen von einer TBitmap in eine andere Bitmap kopieren und verwenden das assign commando
Aktuelle Fehler : das Bitmap zeigt ein anderes Muster, wir könnnen und den Inhalt nicht erklären



bitmap1.assign (bitmap2) ;


hat oft funktioniert, aktuell jedoch nicht. Speziell wenn das Bitmap zwischen div. Funktionsaufrufen so hin und her bewegen

Eigentlich sollte das immer funktionieren. Wenn es nicht klappt, und es sich um multithreaded Code handelt hilft meist ein
MyBitmap.Canvas.Lock. bzw.
MyBitmap.Canvas.Unlock.

[himitsu]

Assign kopiert nicht den Bildinhalt.
Es kopiert nur die Referenz auf das interne TBitmapImage und die Eigenschaften Transparent, TransparentColor, TransparentMode, PixelFormat und AlphaFormat.
Vor allem bei Multithread oder wenn in den Bitmaps nachher noch was geändert wird, dann können schon komische Dinge rauskommen.

Delphi-Quellcode:

  TBitmapImage = class(TSharedImage)
  private
    FHandle: HBITMAP;     // DDB or DIB handle, used for drawing
    FMaskHandle: HBITMAP; // DDB handle
    FPalette: HPALETTE;
    FDIBHandle: HBITMAP;  // DIB handle corresponding to TDIBSection
    FDIB: TDIBSection;
    FSaveStream: TMemoryStream; // Save original RLE stream until image is modified
    FHalftone: Boolean;   // FPalette is halftone; don't write to file
    ...
  end;

Bei Draw, CopyRect und Dergleichen passiert sowas nicht, da dort nur der Bildinhalt kopiert wird, aber der Rest nicht.

[dummzeuch]

Zitat von himitsu:

Assign kopiert nicht den Bildinhalt.
Es kopiert nur die Referenz auf das interne TBitmapImage und die Eigenschaften Transparent, TransparentColor, TransparentMode, PixelFormat und AlphaFormat.
Vor allem bei Multithread oder wenn in den Bitmaps nachher noch was geändert wird, dann können schon komische Dinge rauskommen.

Delphi-Quellcode:

  TBitmapImage = class(TSharedImage)
  private
    FHandle: HBITMAP;     // DDB or DIB handle, used for drawing
    FMaskHandle: HBITMAP; // DDB handle
    FPalette: HPALETTE;
    FDIBHandle: HBITMAP;  // DIB handle corresponding to TDIBSection
    FDIB: TDIBSection;
    FSaveStream: TMemoryStream; // Save original RLE stream until image is modified
    FHalftone: Boolean;   // FPalette is halftone; don't write to file
    ...
  end;

Ich mag ja falsch liegen, aber folgendes Testprogramm:

Delphi-Quellcode:

procedure test;
var
  bmp1: TBitmap;
  bmp2: TBitmap;
  ScanLine1: Integer;
  ScanLine2: Integer;
begin
  bmp1 := TBitmap.Create;
  bmp1.SetSize(20, 20);
  bmp2 := TBitmap.Create;
  bmp2.Assign(bmp1);
  ScanLine1 := Integer(bmp1.ScanLine[0]);
  ScanLine2 := Integer(bmp2.ScanLine[0]);
  if Scanline1 <> Scanline2 then
    WriteLn('Unterschiedlich')
  else
    WriteLn('gleich');
end.

Liefert mir unter Delphi 2007 "unterschiedlich".

[bernhard_LA]

d.h. eine stabile Copyfunktion , ich will nachher zwei physikalische Bitmaps haben geht dann so

Delphi-Quellcode:

procedure  CLoneBitmaps ( Bitmap1, Bitmap2 : TBitmap); 

begin

SR := Rect(0,0,Bitmap1.Width,Bitmap1.Height);
DR := Rect(0,0,Bitmap2.Width,Bitmap2.Height);

Bitmap2.Canvas.Lock;
Bitmap2.Canvas.CopyRect(DR,Bitmap1.Canvas,SR); 
Bitmap2.Canvas.Unlock;

end;

ist dies der richtige Weg ?

[himitsu]

Lock/Unlock brauchst vor allem bei Multithread, damit nicht zwei Zeichenoperationen gleichzeitig auf dem Bitmap arbeiten.

Delphi-Quellcode:

R := Rect(0, 0, Bitmap1.Width,Bitmap1.Height);  // deine Rects sind ja gleich, da brauchst dann nur Eins
//Bitmap2.PixelFormat := Bitmap1.PixelFormat;
Bitmap2.SetSize(Bitmap1.Width, Bitmap1.Height);
Bitmap2.Canvas.CopyRect(R, Bitmap1.Canvas, R);

// bzw.

//Bitmap2.PixelFormat := Bitmap1.PixelFormat;
Bitmap2.SetSize(Bitmap1.Width, Bitmap1.Height);
Bitmap2.Canvas.Draw(0, 0, Bitmap1);

@dummzeuch: Hmmm, hab hier grad eben nur 'nen XE am Laufen, (glaub aber kaum, dass am TBitmap in den letzten Jahrzehnten viel geändert wurde)
aber procedure TBitmap.Assign(Source: TPersistent); kopiert da nirgendwo irgendwas
und selbst das TBitmap(Source).FImage.Reference; darin macht am Ende nichts.

Delphi-Quellcode:

procedure TSharedImage.Reference;
begin
  Inc(FRefCount);
end;

Aber vielleicht wird erst beim Zugriff auf die Pixels die Referenz dann aufgelöst, damit es dort dann keine weitere Referenz auf den Bildspeicher gibt.