Bonjour à tous, j'ai un gros problème de comportement d'un composant frxreport.
J'ai une table sous ACCESS contenant des adhérents ainsi qu'une requête qui récupère les infos des adhérents que je désire. Dans cette table j'ai un cahmp de type OLE Object qui contient des images au format jpg.
Lorsque j'ouvre mon logiciel et que je click sur le bouton d'impression qui charge dans mon frxReport les infos de tous les adhérents, il n'y a aucun problème !!! (waouh trop fort )
Seulement j'ai également dans mon logiciel la possibilité de modifier la photo d'un adhérent. Pour cela j'ai une requête update sur le champ photo de type ftBlob que j'alimente par un stream. Voici le code :
Problème : Dès que je modifie une photo, donc que j'execute mon code avec ma requête update et que je retourne clicker sur le bouton imprimer censé m'afficher les infos de tous les adhérents, le frxReport n'affiche plus rien du tout !!!
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
18
19
20
21
22
23
24
25
26 procedure TAnnuaire.Button1Click(Sender: TObject); Var NomFichier: string; Str: TMemoryStream; JpgImage: TJpegImage; begin If OpenPictureDialog1.Execute Then Try frxDBDataSet1.DataSource.DataSet.Active:=false; NomFichier:=ExtractFileName(OpenPictureDialog1.FileName); Str:=TMemoryStream.Create; JpgImage := TJpegImage.Create; JpgImage.LoadFromFile(OpenPictureDialog1.FileName); JpgImage.SaveToStream(Str); Str.Seek(0, soFromBeginning); DataModule1.ADOQueryModifPhoto.Parameters.ParamByName('photo').LoadFromStream(Str, ftBlob); DataModule1.ADOQueryModifPhoto.ExecSQL; Str.Free; Finally; frxDBDataSet1.DataSource.DataSet.Active:=true; end; end;
Ca fait quelques jours que j'essaye de trouver d'où vient le problème mais rien à faire.
ps: si je modifie la photo de l'adhérent (grâce au code et à l'execution de la reuqête update, que je ferme le logiciel, que j ele réouvre et que je click sur imprimer, la liste des adhérents dans le report s'affiche très bien ! C'est uniquement lorsque je click sur le bouton imprimer après avoir fait le update sans femer le logiciel entre temps que ça ne fonctionne plus.
Un coup de main serait vraiment très appréciable. Merci à celui ou celle qui pourrait m'éclairer.
Partager