QuickReport Fehler beim PDF Export

[FrankJ28]

Hallo,
das ist aber ganz übel (einmal abgesehen von dem Verstorbenen, RIP).
Demnach wäre bei QBS auch niemand in der Lage QR5 und QR6 auf Delphi 10.4 zu portieren?
Ciao
Frank

[ConstantGardener]

[harfes]

Auch ich habe in vielen Projekten QuickReport erfolgreich eingesetzt (aktuell bis Delphi 10.3.3) - auf meine Anfrage was nach dem Tod von Lut mit einer weiteren Entwicklung und einer eventuellen Version für D 10.4. passiert, bekam ich zunächst folgende Antwort vom QBS-Support:

"Unfortunately we currently do not have any plans to release a version for 10.4 due to Lut's passing."

Daraufhin habe ich vorgeschalgen, dann doch bitte den Code von QuickReport als OpenSource freizugeben, damit diese als Freeware weiterentwickerlt werden kann - die Antwort darauf:

"Please give us some time as this might change very soon. I will keep you updated."

Schaunmermal, was da kommt - ich hoffe, es findet sich eine Lösung (bevor ich mit dem Quellcode aus der Pro-Version selber das Basteln anfangen muss...). Da 10.4. gerade erst auf dem Markt ist und auch andere Komponentenhersteller erst noch dafür Ihre Komponenten anpassen müssen, ist ja noch ein wenig Zeit (und ob noch Bugs in der 10.4 sind, wird sich dann ja auch bald zeigen...).

Hartmut

[ConstantGardener]

Das sind alles sehr schlechte Neuigkeiten. Ich setze Quickreport aktuell noch in unserem Hauptprojekt ein und möchte die ganzen Report's (viele mit speziellen Anpassungen) nicht nach FastReport o.ä. umbauen.
Mein naiver Versuch die Packages für 10.4.neu zu kompilieren scheitert natürlich kläglich. Würde schon gern mit 10.4. weiter entwickeln, und jetzt diese kacke

[handson]

Moin!

Das Problem konnte gelöst werden. Ein ungarischer Programmierer konnte es lösen.

Der Fehler liegt in der QuickReport Datei qrpdffilt.pas:

Code:

function cvtDWord(var Buf: array of byte; P: Integer) : DWORD;
begin
  Result:=(256*256*256*Buf[P])+(256*256*Buf[P+1])+(256*Buf[P+2])+Buf[P+3];
end;

function cvtInt(var Buf: array of byte; P: Integer) : Integer;
begin
  Result:=(256*Buf[P])+(Buf[P+1]);
end;

In den beiden Funktionen muss vor dem Buf das Schlüsselword var stehen. Dann geht's.
Problen tritt aber, wie schon gesagt, nur unter Windows 10 auf.

Gruß,
Stephan