Dans cet exemple, la table suivante a été créée
dans l’analyse :
Elle a été exportée vers l’AS400.
La table de l’analyse a ensuite été effacée, et la table AS400 réimportée.
Une image présente sur l’IFS est chargée dans un buffer avec la fonction ASfChargeBinaire, et ensuite un nouvel enregistrement est inséré dans la table avec la fonction HAjoute.
Le dernier enregistrement est ensuite lu et l’image sauvée sur le PC avec la fonction HExtraitMémo.
id est un entier
bufIn est un Buffer
HOuvreConnexion(MaConnexionpower8)
QUAND EXCEPTION DANS
zsChemin est une chaîne
zsChemin = "/tmp/Photo.gif"
bufIn = ASfChargeBinaire(zsChemin,MaConnexionpower8)
Blobced.Image = bufIn
SI HAjoute(Blobced) ALORS
Info("ajoute done!")
SINON
Info(ErreurInfo())
FIN
// récupération de la valeur de l’ID automatique du dernier
enregistrement
SI HLitDernier(Blobced, Idblobced) ALORS
Info(Blobced.Idblobced)
id = Blobced.Idblobced
SINON
Info("Fichier non trouvé " + ErreurInfo())
FIN
FAIRE
Info("exception!")
Info(ExceptionInfo())
FIN
//////////////////////////////////////////
// Lecture de l’enregistrement
//////////////////////////////////////////
QUAND EXCEPTION DANS
Info(id)
HRAZ(Blobced,Idblobced)
SI HLitRecherchePremier(Blobced,Idblobced,id)
zsCheminc est une chaîne
zsCheminc = "C:\temp\Photo6.gif"
// Extrait le document sur le disque
SI HExtraitMémo(Blobced, Image, zsCheminc) ALORS
Info("extrait!")
SINON
Info(ErreurInfo())
FIN
SINON
Info("Fichier non trouvé " + ErreurInfo())
FIN
FAIRE
Info("exception!")
Info(ExceptionInfo())
FIN
HFermeConnexion(MaConnexionpower8)