Discussion :

[devalender]

Bonjour a tous
Dans une base firebird j'ai stocker dans un champ blob un fichier pdf.
Mon problème maintenant est que je veux extraire ce fichier pour l'imprimer ou l'enregistrer sous un nom.
Comment puis-je m'y prendre ?
merci a tous

[devalender]

Apparemment la fonction HExtraitMémo ne marche pas sur les base externes

[WDKyle]

Bonjour,

Je dis peut-être une bétise mais avec la fonction SQLLitMémo ?

http://doc.pcsoft.fr/fr-FR/?3072020&...on&verdisp=190

[devalender]

Voici un extrait du code que j'ai utilisé mais qui me ramène un fichier vide :
le fichier que j'ai chargé dans mon blob auparavant un fichier de type pdf voici donc mon code de récupération:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
lefichier est un Buffer
MAREQ est une chaîne =ChaîneConstruit("SELECT  GED_INFO.DOC_GED  FROM  GED_INFO WHERE GED_INFO.MAT_GED='%1'",CHAMP1)
SQLExec(MAREQ, "REQ21")
TANTQUE SQLAvance("REQ21") = 0// Il y a encore une ligne à lire
// Récupérer les données
lefichier= SQLLitMémo("REQ21",1)
IMG_SansNom1=lefichier
FIN
HExtraitMémo(SQLLitMémo("REQ21", 1), "C:\Produit.pdf")
SQLFerme("REQ21")

lorsque je tente d'ouvrir produit.pdf c'est impossible et le fichier fait pratiquement o octet
qu’es que j'ai bien manqué.

[devalender]

j'ai juste modifier le code et voici le code qui marche :

Code :

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

1
2
3
4
5
6
7
8
 
MAREQ est une chaîne =ChaîneConstruit("SELECT  GED_INFO.DOC_GED  FROM  GED_INFO WHERE GED_INFO.MAT_GED='%1'",CHAMP1)
SQLExec(MAREQ, "REQ21")
TANTQUE SQLAvance("REQ21") = 0// Il y a encore une ligne à lire
// Récupérer les données
HExtraitMémo(SQLLitMémo("REQ21", 1), "C:\Produit.pdf")
FIN
SQLFerme("REQ21")

j'ai mon fichier pdf qui extrait correctement.
Merci a tous