QuickReport und Delphi6 Enterprise

[thion007]

Hi Peter,

Zitat von pmoegenb:

...Ich habe noch in Erinnerung, dass in früheren Versionen der Exportteil in einer separaten .dpr-Datei mit der Eingangsbezeichnung Export war. Ob dies auch bei Standard-Version, die in früheren Delphi-Versionen enthalten war, so war, weiß ich nicht...

So eine Datei habe ich leider nicht. Eine Umstellung auf ein anderes Modul ist auch nicht möglich, da die Anwendung erst einmal so wie sie ist weiterverwendet werden muss.
Dann bleibt mir wohl nur der Kauf...

Danke und Gruß,

thion007

[thion007]

Hallo zusammen,

ich habe zwischenzeitlich QuickReport Pro gekauft und installiert.

Die Fehlermeldung ist leider noch da. Wenn ich die qrpdffilt.pas installieren will, kommt eine Meldung, das dclusr.dpk geändert wird und QRPDFFilt entfernt wird, da es bereits im Package QR5RunD6 gefunden wurde. Was kann ich tun?
Oder habe ich mir mittlerweile alles soweit verfummelt, dass ich Delphi besser noch einmal neu installiere?!?

Danke und Gruß,

thion007

[Bernhard Geyer]

dclusr.dpk ist das Packages das (ältere) Delphi(-Versionen) als "Rumkramskiste" für Komponenten verwendet die nicht mittels Package installiert werden.

Du brauchst es auch nicht dort reinfummeln da es ja über das Package QR5RunD6 schon installiert wurde und damit eigentlich zur verfügung steht.

[thion007]

Hi,

leider klappt genau das nicht. Die alte Fehlermeldung "Undefinierter Bezeichner: 'TQRPDFDocumentFilter'" ist immer noch da...
Wo kann denn noch der Fehler liegen?

Danke und Gruß,

thion007

[Bernhard Geyer]

Zitat von thion007:

Hi,

leider klappt genau das nicht. Die alte Fehlermeldung "Undefinierter Bezeichner: 'TQRPDFDocumentFilter'" ist immer noch da...
Wo kann denn noch der Fehler liegen?

Uses-Anweisung erweitern um qrpdffilt?

[thion007]

Hi Bernhard,

Ok, das war wohl schon ein Fehler in dem alten Quellcode. Jetzt komme ich schon bis zur nächsten Fehlermeldung

Danke und Gruß,

thion007

[pmoegenb]

Hallo thion007,
hier ein kleines Beispiel:

Delphi-Quellcode:

uses Hauptmenue, Shellapi, QRPDFFilt;

procedure TJAWVereineFrm.ToolButton4Click(Sender: TObject);
var
   PDFFilt: TQRPDFDocumentFilter;
   Fehler: string;
begin
   PDFFilt := TQRPDFDocumentFilter.Create(HauptFrm.TempPfad+'\Jahresauswertung.PDF');
   PrtJAWVereineFrm.QuickRep1.ExportToFilter(PDFFilt);
   // PDF Reader öffnen
   If Messagedlg('Mit PDF-Reader öffnen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
      // ShellExError selbstdefinierte ausgelagerte Funktion
      Fehler := ShellExError(ShellExecute(0, 'open',
      PChar(HauptFrm.TempPfad+'\Jahresauswertung.PDF'), nil, nil,SW_SHOWMAXIMIZED));
      if Fehler <> '' then
         begin
         Messagedlg(Fehler, mtError, [mbOK, mbHelp], 272);
         end;
      end;
end;