Discussion :

[damene]

Bonjour.

Je travaille avec Delphi7 et Rave5.

Je cherche à imprimer une image avec Rave.
Lorsque à la conception j'intégre l'image je peux imprimer l'image.

Mais lorsque je veux paraméter l'image à travers OpenPictureDialog, je me plante.

Dans l'état Rave j'ai intégré un DataText Composant pour le titre (TitreRecap) et un Bitmap Composant pout l'image.

Pour le paramètre Titre de l''Etat je sais le faire

Code :

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

    Forme.GCabGastro.SetParam('TitreRecap','Cliché Echographie');

peut-on m'indiquer la ligne de code à écrire car avec le code

Code :

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

    Forme.GCabGastro.SetParam('Echo',MFichier);

je n'arrive pas à imprimer l'image

Voici mon code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForme.Button1Click(Sender: TObject);
var MFichier : String;
begin
  if OpenPictureDialog.execute then   // Choix de l'image à imprimer
  MFichier:=ExtractFilepath(OpenPictureDialog.Filename)+
            ExtractFileName(OpenPictureDialog.Filename);

  GCabGastro.SetParam('TitreRecap','Cliché Echographie'); // parametre Titre (DataText Composant)
  GCabGastro.SetParam('Echo',MFichier);      // parametre image (Bitmap Composant)

  GCabGastro.SelectReport('ImageEchoEndo',True);
  GCabGastro.ExecuteReport('ImageEchoEndo');
  GCabGastro.close;
end;

Merci

[SergioMaster]

Passer un bitmap via un paramètre n'est pas la bonne méthode (je hait les paramètres rave) .

Le mieux serait de passer un un TrvCustomConnection ou encore mieux un TrvDatasetConnection et d'utiliser l'évènement onValidateRaw .

Je suis sur d'avoir mis au moins un Post sur ce sujet (et même plusieurs)
permettant également de ne pas traiter que des Bitmaps (lourds) mais aussi des Jpeg

[damene]

Passer un bitmap via un paramètre n'est pas la bonne méthode (je hait les paramètres rave) .

Le mieux serait de passer un un TrvCustomConnection ou encore mieux un TrvDatasetConnection et d'utiliser l'évènement onValidateRaw .

Je suis sur d'avoir mis au moins un Post sur ce sujet (et même plusieurs)
permettant également de ne pas traiter que des Bitmaps (lourds) mais aussi des Jpeg

Bonjour SergioMaster. Toujours aussi prompt à mettre les gants.

j'avais contourné la difficulté en attendant. J'ai effectivement ajouté un TrvCustomConnection relié à un fichier temporaire ImageProv avec un champ cliché ou je mets l'image avec le rajout donc d'un TdataSource et la création d'une vue dans Rave rattachant le champ cliché au Bitmap Composant. on fait ce qu'on peut. Je ne suis pas informaticien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForme.Button1Click(Sender: TObject);
var MFichier : String;
begin
    if OpenPictureDialog.execute then
    begin
      ImageProv.Edit;
      (ImageProv.FieldByName('Cliche') as TBlobField).LoadFromFile(OpenPictureDialog.FileName);
      ImageProv.Post;
    end;
    try
      Except on E:Exception do
      begin
        ImageProv.Cancel;
        Showmessage('Erreur lors de l''insertion de l''image dans la base de données : ' +E.Message);
      end;
    end;
end;

Pour ce qui concerne ta solution le help de onValidateRaw ne m'indique pas comment opérer. J'ai poutant lu toutes les discussions du forume depuis sa création je ne trouve pas le post que tu signales.

Peux-tu m'expliciter ta solution et comment utiliser TrvCustomConnection et onValidateRaw ou bien m'indiquer le lien du post dont tu parles.

merci encore.

[SergioMaster]

Je pensais a ce post
il doit même être possible de faire sans CustomConnection et donc ValidateRaw s'il n'y a qu'une seule image a imprimer . Cependant je n'ai pour l'instant pas la force/courage de me mettre en garde

[damene]

Je pensais a ce post
il doit même être possible de faire sans CustomConnection et donc ValidateRaw s'il n'y a qu'une seule image a imprimer . Cependant je n'ai pour l'instant pas la force/courage de me mettre en garde

Merci SergioMaster.

Ce post je l'ai déjà lu, relu et trois fois lu mais je n'ai pas su l'adapter comme l'a fait Patrick25300. Je n'ai pas su utiliser onValidateRow. Je ne vais pas vous importuner outre mesure.

Je me contenterai de ma solution, elle n'est pas élégante mais me permet d'imprimer un cliché sur un état contenant des informations (provenant d'une BD) en intégrant cette photo dans un fichier temporaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForme.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog.execute then
  begin
    if ImageProv.RecordCount=0 then ImageProv.Append else ImageProv.Edit;
    (ImageProv.FieldByName('Cliche') as TBlobField).LoadFromFile(OpenPictureDialog.FileName);
    ImageProv.Post;
  end;
  Forme.GCabGastro.SetParam('TitreRecap','Cliché Echographie');
  Forme.GCabGastro.SelectReport('SyntheseCompterendu',True);
  Forme.GCabGastro.ExecuteReport('SyntheseCompterendu');
  Forme.GCabGastro.close;
end;

Merci encore.

[SergioMaster]

Question : C'est une édition unique juste de l'image ? j'ai l'impression que oui , au vu de l'opendialog .
Je pense trouver facilement la réponse dans ce cas (un bon WE ensoleillé fait des miracles)