Discussion :

[aimer_Delphi]

Bonjour a tous ,
je vais essayé de bien exposé mon problème .
j'ai une base de donnée Interbase 7.5 , dans la table des produit j'ai un champs de type Blob .
je sauvegarde des fichiers Excel dans ce champ , pour cela j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
blob := MonDataSet.CreateBlobStream(MonDataSet.FieldByName('MonChamp'), bmWrite);
try
   blob.Seek(0, soFromBeginning);
 
   fs := TFileStream.Create('C:\MonFichierExcel.xls', fmOpenRead or fmShareDenyWrite );
   try
     blob.CopyFrom(fs, fs.Size)
   finally
     fs.Free
   end;
finally
   blob.Free
end;

pour l'insertion je n'ai aucun problème.
Maintenant je veux afficher le contenu de mon fichier Blob (et ça le problème )

j'ai trouvais 2 solutions :
1- afficher le fichier Excel (mais j'aimerais bien qu'il soit dans une fiche).
2- copier le contenue du champs blob dans le presse-papier , puis l'afficher sous form d'image.
svp avais vous des idées.
(je ne cherche pas a modifier le fichier Excel).
Cordialement.

[ShaiLeTroll]

Tu fais la procédure inverse !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
blob := MonDataSet.CreateBlobStream(MonDataSet.FieldByName('MonChamp'), bmRead);
try
   blob.Seek(0, soFromBeginning);
 
   TempXLSName := GetTemporaryFileName('.xls');
   fs := TFileStream.Create(TempXLSName, Create);
   try
     fs.CopyFrom(blob, blob.Size);
   finally
     fs.Free();
   end;
finally
   blob.Free();
end;

je te laisse coder ta propre GetTemporaryFileName qui utilise GetTempPath pour créer un fichier temporaire, je le fais de la forme "..\TMP\CompanyName\ExeName\TMP_yyyymmdd_hhnnsszzz.ext"

Ensuite un ShellExecute ou un Excel OLE pour afficher le fichier temporaire, tu le supprimes ensuite !
Pour l'inclure dans une forme, faudra tenter un TWebBrowser qui utiliserait le composant IE qui affiche les documents office (si c'est installé)

Dans le sujet [D7] Ouvrir Excel dans une form , on évoqué FindWindow(XLMain) et SetParent pour inclure Excel dans une form avec tous les risques d'instabilité que cela peut produire !

Pour le mode Image, il faudrait demander à Excel d'imprimer le fichier dans une Imprimante virtuelle BMP (on avait un outil Kodak avec Win2K pour le faire, je n'ai pas trouvé d'équivalent en XP) ou PDF, tu pourras ainsi afficher juste l'image

Idem, il existe une solution avec FindWindow\GetDC ... peut-être forcer excel à se dessiner dans un Canvas, mais cela doit nécessité qu'il soit afficher (en l'affichant en position -32000, tu peux fonctionner ...

Bidouille !