Discussion :

[Leesox]

Bonjour,

J'ai besoin d'éditer un fichier pdf. Pour celà, je pensais utiliser l'objet OLE de FastReport, mais je n'arrive pas à charger ce fichier.
J'ai posé l'objet OLE sur une bande "MasterDate" sans assignation de base de données, car je veux charger le fichier par le code.

Dans l’événement OnBeforePrint de l'objet j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure OLE1OnBeforePrint(Sender: TfrxComponent);
begin
   TfrxOLEView(sender).OleContainer.CreateObjectFromFile(<image>, true);
end;

<image> correspond à la variable qui contient le chemin du fichier pdf.

Je me retrouve avec cette erreur :


Je ne comprends pas pourquoi TOleContainer n'est pas reconnu !!
Merci pour votre aide sur ce sujet.
Cordialement
Patrick

[SergioMaster]

Bonjour,

je n'ai jamais utilisé un objet OLE .
Si le code se trouve dans le programme Delphi n'est-ce pas dû à l'oubli de l'ajout d'un composant TfrxOLEObject sur la forme forçant ainsi l'ajout de l'unité frxOLE ?
S'il s'agit d'un FastReport Script Pascal pour l'instant, je sèche

[Leesox]

Bonjour et merci pour ta réponse.

C'est du FastReport Script Pascal, mais je viens de tester sous Delphi avec ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
frxReport1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'report\pdf.fr3');
TfrxOLEView(frxReport1.FindObject('OLE1')).OleContainer.CreateObjectFromFile(DM.cheminetat, false);
frxReport1.PrepareReport;
frxReport1.Print;

Avec ce code, je n'ai pas d'erreur générée par Delphi dans la construction du projet et tout compile parfaitement. Le composant TfrxOLEObject est bien sûr sur la fiche.
Par contre, j'ai toujours la même erreur en mode débogage du programme.
Je sèche un peu là.

[SergioMaster]

re,

les recherches que j'ai pu faire indique que si l'on n'a pas les sources de fastreport (il faut modifier le frxRTTI) le meilleur moyen est de faire une fonction Delphi à intégré à fastreport de façon à pouvoir l'utiliser dans le script.
Pour faire une fonction ? se référer au manuel programmeur
Sinon, il ne faut pas utiliser le script et faire comme si l'on avait la version Embarcadero de fastreport (donc non enregistrée)

Je ne suis pas aller plus loin. J'ai déjà fait des états avant d'avoir une version enregistrée donc je sais que cette partie est possible mais la solution fonction, je n'ai jamais tenté encore !

[Leesox]

Je te remercie beaucoup, mais là c'est au-dessus de mes connaissances d'amateur.
J'utilise la version standard de Fastreport 4 que j'avais achetée il y a quelques années et non pas la version XE de Fast report. Mais malheureusement, les sources du fichier à modifier ne sont pas dans cette version standard.
C'est énervant d'avoir un composant présent dans la version et de ne pas pouvoir s'en servir

[Leesox]

En fait, çà fonctionne bien en passant par Delphi. C'est le code qui était resté dans mon état FastReport qui me faisait cette erreur.
Désolé SergioMaster de n'avoir pas vu cela plus tôt.
Merci pour ton aide.
Bonne soirée.