Image an QRImage zuweisen

[needatip]

Hallo,
ich möchte der Quickreport Komponente QRImage ein Bitmap einer Image Komponente zuweisen. Dies soll aber nur geschehen wenn auch ein Bild in der Image vorhanden ist. Was muss ich aber übergeben, wenn nun der Inhalt der Image Komponente leer ist? Ich erhalte den Fehler "Bitmap ist ungültig".

und zwar

Delphi-Quellcode:

  if Image1.Picture.Bitmap <> nil then
  Form1.QRImage1.Picture.Assign(Image1.Picture.Bitmap);

Muss ich die QRImage frei geben mit "Free" oder ähnlich ?

[dataspider]

Hi,

ungeprüft...

Delphi-Quellcode:

if not Image1.Picture.Bitmap.Empty then 
  Form1.QRImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);

Cu, Frank

[needatip]

Ok danke. Ich weise die Bitmap in Abhängigkeit einer RadioGroup zu.
d.h. wenn das Image1 beim 2. Aufruf nichts enthält kommt wieder diese Fehlermeldung.
Was muss ich also der QRImage Komponente übergeben, damit die dann eine "leere" Grafik anzeigt.

Meine Radiogroup:
0. Grafik A
1. Grafik B
2. Keine Grafik

Beim Start steht ItemIndex von RadioGroup auf 2, somit funzt das auch. Beim wählen von Grafik A oder B funztst auch, nur wenn ich dann zum 2.Mal keine Grafik wähle bekomme ich den Fehler.

[dataspider]

Hi,

mir ist noch nicht ganz klar, wieso ein Fehler auftritt.
Wenn das Bitmap leer ist, sollte einfach nichts gedruckt werden.
Aber du kannst auch das Bitmap im QRImage mit FreeImage leeren.

Delphi-Quellcode:

if not Image1.Picture.Bitmap.Empty then 
  Form1.QRImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap)
else
  if not Form1.QRImage1.Picture.Bitmap.Empty then
    Form1.QRImage1.Picture.Bitmap.FreeImage;

Frank

[needatip]

Also bei mir kommt trotzdem noch der Fehler : "Bitmap ist ungültig"
Image1 hat beim 1. Aufruf des Quickreports keine Grafik.

[needatip]

Endlich, hab es selber rausgefunden !

Delphi-Quellcode:

if not Image1.Picture.Bitmap.Empty then
       QRImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap)
    else
       QRImage1.Picture.Assign(nil);

Trotzdem danke.