Fastreport 5 VCL: Image nicht verzerren?

[Darlo]

Ich hatte so ein ähnliches Problem bei transparenten TCharts. Kannst Du den Hintergrund des QR-Codes weiß machen, bzw. als jpg speichern?
Der einzige Weg bei mir, da ich die Transparenz brauchte, war den Hintergrund und alle Bilder erst als JPG erstellen und anschließend als Hintergrundbild in den Report laden.

[SearchBot]

Zitat von Darlo:

Ich hatte so ein ähnliches Problem bei transparenten TCharts. Kannst Du den Hintergrund des QR-Codes weiß machen, bzw. als jpg speichern?
Der einzige Weg bei mir, da ich die Transparenz brauchte, war den Hintergrund und alle Bilder erst als JPG erstellen und anschließend als Hintergrundbild in den Report laden.

Der Hintergrund ist weiß; im Foto sieht es halt nicht so toll aus.
Falls du den Hintergrund in der Bitmap meinst, der ist auch clWhite.

Speichern hatte ich auch mal versucht, um zu gucken, ob das Problem schon in der Bitmap liegt - aber irgendwie hat er mir die Bilder nicht gespeichert.

[nahpets]

Funktioniert das Speichern eventuell mit Pict.Picture.Bitmap.SaveToFile('qr.bmp'); ?

Ein bisserl sieht mir das Bild so aus, als sei es ein JPeg, das mit sehr hohem Qualitätsverlust gespeichert / verarbeitet wurde.

Was genau verbirgt sich hinter QRCodeBitmap?

Ein Bitmap?

Dann versuch es mal mit Pict.Picture.Bitmap.Assign(QRCodeBitmap);

Oder

Delphi-Quellcode:

Pict.Picture.Bitmap.Assign(Nil); // Alternative zum fehlenden .Clear ...
Pict.Picture.Bitmap.Assign(QRCodeBitmap);

[sko1]

Zitat:

Pict.Picture.Bitmap.Assign(Nil); // Alternative zum fehlenden .Clear ...

Genial ))
Da muss man erst mal drauf kommen!

Ciao
Stefan

[SearchBot]

Zitat von nahpets:

Funktioniert das Speichern eventuell mit Pict.Picture.Bitmap.SaveToFile('qr.bmp'); ?
Ein bisserl sieht mir das Bild so aus, als sei es ein JPeg, das mit sehr hohem Qualitätsverlust gespeichert / verarbeitet wurde.
Was genau verbirgt sich hinter QRCodeBitmap?
Ein Bitmap?
Dann versuch es mal mit Pict.Picture.Bitmap.Assign(QRCodeBitmap); Oder

Delphi-Quellcode:

Pict.Picture.Bitmap.Assign(Nil); // Alternative zum fehlenden .Clear ...
Pict.Picture.Bitmap.Assign(QRCodeBitmap);

Ja, QRCodeBitmap ist vom Typ TBitmap.
Die Zuweisung klappte auch vorher schon und die Anpassung auf deinen Code brachte auch keinen Unterschied. Das gespeicherte Bild nach der Zuweisung sieht einwandfrei aus.
Im Ausdruck hingegen weiterhin diese Unschärfe, die wahrscheinlich durch Graustufen gedithtert (?) wird.

Wenn es zwischen sauberer Vorlage (Bitmap) und Ausdruck zu einer solchen Veränderung kommt, müsste Fastreport wohl das Bild neu aufbauen?
Kann man das irgendwo beeinflussen?

[mikhal]

TPicture hat bei FastReport eine Property Stretched, die steht per Default auf True, setz die mal auf False

Edit: schon geschehen... habe ich übersehen
Edit2: HighQuality steht auf True?

Grüße
Mikhal

[SearchBot]

Zitat von mikhal:

Edit2: HighQuality steht auf True?

Am Image auf dem Report?
Die Eigenschaft heißt bei mir HightQuality - meinst du die? Oder habe ich noch eine andere übersehen?
Diese hier ändert nichts.

Ich gebe den QRCode jetzt auf XPS aus (hab an dem PC kein PDF-Drucker und auch keine Lust, das zu ändern ).
Im diesem "Ausdruck" ist der QRCode auch schon unscharf (graue Aura um die Module [Modul werden die schwarzen Punkte im QRCode genannt]), also daher kommen die "Flecken".

Scheinbar ist die Auflösung meines Bildes mit dem Code zu gering, daß Fastreport das Bild hochrechnet auf die anderen Elemente im Report, und es daher unscharf macht (obwohl es das Bild nicht stretchen soll).
Wie kann ich die Auflösung für die zur Laufzeit generierte Bitmap ändern? Oder gibt es einen anderen Grund?

Zitat von haentschman:

Moin...
Die Kaufversion kann das schon.

Näää - ich hab ja eine Lösung, nur noch die mangelnde Auflösung fixen.

[blawen]

Ich habe die gleiche Ausgangslage (QR-Code) und im Prinzip das gleiche vorgehen.
Allerdings klappt es bei mir ohne Probleme. Zum generieren des Bildes verwende ich die Zint-Bibliothek.

Delphi-Quellcode:

var
  PictureView: TfrxPictureView;

begin
  PictureView := frxReport1.FindObject('Picture1') as TfrxPictureView;
  PictureView.Picture := imgQR_Code.Picture;