RAVE REPORT 5 DELPHI 7 traveEANBARCODE

Question

dabord bonjour a tous et a toutes,

voila mon probleme ,

je profite de mon dimanche pour decouvrir et utiliser ravereport dans le futur

j'ai regarder les exemples et les aie aplique avec succes
pour les travetext sa fonctionne nickel

mais par conde lorsque je veux modifier un traveeanbarcode dans un fichier.rav
ou je cr&#233;e dynamiquement j'ai toujour un probleme j'ai regarder sur les forum et dans le delphi studio7 de d'eyrolles mais j'ai toujour mon erreur

erreur qui est invalid type class

Voici mon code
***********************************************************
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RpDefine, RpRave, StdCtrls, shellapi,


 


  RVClass, RVProj, RVCsStd, RpBase, RpFiler, RpSystem, RpRender,
  RpRenderCanvas, RpRenderPrinter, RpRenderPreview, RpRenderHTML, RpCon,
  RpRenderText, RpRenderRTF, RpRenderPDF, ExtCtrls;

-> la procedure concern&#233;e par l'erreur
procedure TForm1.Button3Click(Sender: TObject);


  var
  MyPage: TRavePage;
  myean: travetext;

begin
  RvProject1.Open;
  With RvProject1.ProjMan do begin        <- voici ceci fonctionne parfaitement 
    MyPage := FindRaveComponent('report1.page1',nil) as TRavePage;
    MyText := FindRaveComponent('text12',mypage) as TRaveText;
        mytext.Text:=form1.Edit2.Text;
        MyText.Color := clGreen;
        MyText.Font.Size := 11;
        MyText.Font.Style := [fsBold];
        end;

*************************************************
 With RvProject1.ProjMan do begin <--- ici est la zone a probleme
  MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
  Myean := FindRaveComponent('TrAveEanbarcode1',MyPage) as TRaveText; <-PROBLEME
  myean.Text:='00000012';
    end; 


TrAveEanbarcode1 <<<--- existe dans le raport.rav


  RvProject1.ExecuteReport('report1');
  RvProject1.Close;


end;

je vous remercie d'avance pour votre aide peut etre que j'ai rater une petite partie dans la doc je sais pas mais j'ai bien chercher et la je donne ma langue au chat.

WhiteHippo · Answer

bonjour au lieu d'utiliser un transtypage avec "as", essaye plutot le code suivant : With RvProject1.ProjMan do begin MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage; if ( MyPage<>NIL) then begin MyEAN := TRaveText(MyPage.FindComponent('TrAveEanbarcode1')); if (MyEAN<>NIL) then begin myean.Text:='00000012'; end ; end; end ; Cordialement.

WinLin · Answer

white hippo Merci
 merci bcp cela fonctionne parfaitement si une personne peux mettre quelque liens
   on l'on pourrais trouver de la doc complete sur rave en francais et si il n'y a pas en anglais j'ai pompe les quelque truc sur nevrona.com sur rave report mais si vous avez d'autre truc bien fait ce serai gentil merci d'avance

Merci white hippo c'est sympas d'avoir repondu merci encore

RAVE REPORT 5 DELPHI 7 traveEANBARCODE

2 réponses

Votre réponse

Discussions similaires