QuickReport und Delphi6 Enterprise

[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:

Zitat von thion007 (Beitrag 1141126)

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,

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

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;