ich habe folgendes Problem, wenn ich einen Report als PDF Expotieren will, kommt folgende Fehlermeldung
Error: Incompatible type for arg no. 1: Got "Class Of TfrTNPDFExport", expected "TfrExportFilterClass"
Hier noch der Quelltext dazu
Code: Alles auswählen
// Aktuelle Rechnung als Mail versenden
procedure TFormMainAboVerwaltung.BitBtnREMailVersandClick(Sender: TObject);
var
sProgDir: string;
frPdfExportFilter: TfrExportFilterClass;
PDFExp: TfrTNPDFExport;
ExportStream: TFileStream;
aFileName: string;
begin
if EMail = nil then
begin
EMail:= TEMail.Create;
EMail.SetUserName(Stammdaten.GetEMail);
EMail.SetPassword(Stammdaten.GetEMailHostPW);
EMail.SetHost(Stammdaten.GetEMailHost);
EMail.SetPort(StrToInt(Stammdaten.GetEMailPort));
end;
if Rechnung.GetDatei = '' then
begin
sProgDir:= ExtractFilePath(Application.ExeName);
frReportRechnung.LoadFromFile(sProgDir + 'Rechnung.lrf');
if frReportRechnung.PrepareReport = true then
begin
frReportRechnung.ExportTo(TfrTNPDFExport, sProgDir + 'blubb.pdf');
end;
end;
end;