Web Service SOAP avec BLOB

ROMJERIPA · Message par **ROMJERIPA** » mer. 03 févr. 2016, 16:14:29

Et bien c'est bon cela fonctionne à présent: EN SOAP

Je lis mon pdf généré sur l'IFS, j'appelle l'API de Scott KLEMENT BASE64 et je retourne la chaine convertie dans le paramètre en sortie du Web Service (RPGLE).

La chaîne retournée, une fois décodée peut être enregistrée au format PDF et être ouverte via Acrobat.

Je vais épurer mon source des différents tests effectués et je le posterai ici de façon à ce qu'il puisse éventuellement être utile à quelqu'un...

Merci

ROMJERIPA · Message par **ROMJERIPA** » mer. 03 févr. 2016, 16:38:23

Voici donc un exemple du code

H DFTACTGRP(*NO)
H ACTGRP('SOAP') PGMINFO(*PCML: *MODULE)
F* ---------------------------------------------------------------
F* Ce programme:
F* - Est un programme SQLRPGLE déployé comme
F* Web Service SOAP via IBM Web Administration for i
F* ---------------------------------------------------------------
F* Ce programme (WS000RP)
F* - Est appelé par le Web Service SOAP
F* - Lis un fichier PDF stocké dans l'IFS (MonPDF.PDF)
F* - Encode ce fichier PDF en BASE64
F* - Retourne le fichier PDF dans une chaîne de caractère
F* au format BASE64
F* ---------------------------------------------------------------
// Répertoire de liage de l'API Scott KLEMENT BASE64
CTL-OPT BNDDIR('BASE64BND');
D* ---------------------------------------------------------------
D* Zones de travail
D* ---------------------------------------------------------------
DCL-S NOM_PDF VARCHAR(255);
*
* Variable pour appel de l'API BASE64
*
DCL-S WEncodeDataLen INT(10);
DCL-S WEncodeData CHAR(65535);
DCL-S WReadData CHAR(19998);
DCL-S WI INT(10);
DCL-S Wlen INT(10);
DCL-S WInFile INT(10);
*
/COPY QCPYSRC,BASE64_H
/COPY QCPYSRC,IFSIO_H
*
D* ---------------------------------------------------------------
D* Paramètres
D* ---------------------------------------------------------------
DCL-PR WS000RP extpgm('WS000RP');
// Variable alimentée en retour avec le PDF au format BASE64
WS_DOC_PDF varchar(8386552:4);
END-PR;

DCL-PI WS000RP;
// Variable alimentée en retour avec le PDF au format BASE64
WS_DOC_PDF varchar(8386552:4);
END-PI;
//-----------------------------------------------------------------------
// Initialisations
//-----------------------------------------------------------------------
exec sql set option commit = *none;

//-----------------------------------------------------------------------
// Ouverture du PDF depuis l'IFS via l'API IFSIO de S.KLEMENT
//-----------------------------------------------------------------------
NOM_PDF = '/IFS/MonPDF.pdf';
WInFile = OPEN(%Trim(NOM_PDF): O_RDONLY);
//-----------------------------------------------------------------------
// Encodage du PDF en Base64
// - lecture par bloc de 19998 octets ( %SIZE(WReadData)=19998 )
//-----------------------------------------------------------------------
Wlen = READ(WInFile: %ADDR(WReadData): %SIZE(WReadData));
DOW Wlen >= 1;

// Encodage en BASE64
WEncodeDataLen = base64_encode(
%ADDR(WReadData) // Données à encoder
:%Len(%trimr(WReadData)) // Longueur données à encoder
:%ADDR(WEncodeData) // Résultat de l'encodage
:%len(WEncodeData)); // Longueur des données encodées

// Alimentation du paramètre en retour WS_DOC_PDF
// avec la chaîne de caractères encodés en BASE64
WS_DOC_PDF = %Trim(WS_DOC_PDF)
+ %Subst(WEncodeData:1:WEncodeDataLen);

WI = WI + 1;
DSPLY WI;
WLen = READ(WInFile: %ADDR(WReadData): %Size(WReadData));
ENDDO;
CALLP CLOSE(WInFile);

// Fin Prog
*inlr = *on;

ROMJERIPA · Message par **ROMJERIPA** » mer. 03 févr. 2016, 16:42:57

Bien entendu cette solution nécessite l'installation des API de Scott CLEMENT:

- BASE64 trouvée sur https://www.scottklement.com/base64/
- IFSIO_H trouvé sur https://www.scottklement.com/presentati ... ources.zip

Encore merci à CMASSE pour son attention et ses réponses...

ROMJERIPA · Message par **ROMJERIPA** » mer. 03 févr. 2016, 17:21:20

Je viens de constater que mon source ne marche pas dans tous les cas...
Je poursuis mes recherches et reviens au plus vite pour mettre à jour ce post...

Merci

ROMJERIPA · Message par **ROMJERIPA** » jeu. 04 févr. 2016, 15:48:08

Il manquait juste une ligne de réinitiallisation du tampon de lecture...

WReadData = '';

à placer avant la lecture (en fin de boucle DOW):
WLen = READ(WInFile: %ADDR(WReadData): %Size(WReadData));

Code : Tout sélectionner

H DFTACTGRP&#40;*NO&#41;
H ACTGRP&#40;'SOAP'&#41; PGMINFO&#40;*PCML&#58; *MODULE&#41;
F* ---------------------------------------------------------------
F* Ce programme&#58;
F* - Est un programme SQLRPGLE déployé comme
F* Web Service SOAP via IBM Web Administration for i
F* ---------------------------------------------------------------
F* Ce programme &#40;WS000RP&#41;
F* - Est appelé par le Web Service SOAP
F* - Lis un fichier PDF stocké dans l'IFS &#40;MonPDF.PDF&#41;
F* - Encode ce fichier PDF en BASE64
F* - Retourne le fichier PDF dans une chaîne de caractère
F* au format BASE64
F* ---------------------------------------------------------------
// Répertoire de liage de l'API Scott KLEMENT BASE64
CTL-OPT BNDDIR&#40;'BASE64BND'&#41;;
D* ---------------------------------------------------------------
D* Zones de travail
D* ---------------------------------------------------------------
DCL-S NOM_PDF VARCHAR&#40;255&#41;;
*
* Variable pour appel de l'API BASE64
*
DCL-S WEncodeDataLen INT&#40;10&#41;;
DCL-S WEncodeData CHAR&#40;65535&#41;;
DCL-S WReadData CHAR&#40;19998&#41;;
DCL-S WI INT&#40;10&#41;;
DCL-S Wlen INT&#40;10&#41;;
DCL-S WInFile INT&#40;10&#41;;
*
/COPY QCPYSRC,BASE64_H
/COPY QCPYSRC,IFSIO_H
*
D* ---------------------------------------------------------------
D* Paramètres
D* ---------------------------------------------------------------
DCL-PR WS000RP extpgm&#40;'WS000RP'&#41;;
// Variable alimentée en retour avec le PDF au format BASE64
WS_DOC_PDF varchar&#40;8386552&#58;4&#41;;
END-PR;

DCL-PI WS000RP;
// Variable alimentée en retour avec le PDF au format BASE64
WS_DOC_PDF varchar&#40;8386552&#58;4&#41;;
END-PI;
//-----------------------------------------------------------------------
// Initialisations
//-----------------------------------------------------------------------
exec sql set option commit = *none;

//-----------------------------------------------------------------------
// Ouverture du PDF depuis l'IFS via l'API IFSIO de S.KLEMENT
//-----------------------------------------------------------------------
NOM_PDF = '/IFS/MonPDF.pdf';
WInFile = OPEN&#40;%Trim&#40;NOM_PDF&#41;&#58; O_RDONLY&#41;;
//-----------------------------------------------------------------------
// Encodage du PDF en Base64
// - lecture par bloc de 19998 octets &#40; %SIZE&#40;WReadData&#41;=19998 &#41;
//-----------------------------------------------------------------------
Wlen = READ&#40;WInFile&#58; %ADDR&#40;WReadData&#41;&#58; %SIZE&#40;WReadData&#41;&#41;;
DOW Wlen >= 1;

// Encodage en BASE64
WEncodeDataLen = base64_encode&#40;
%ADDR&#40;WReadData&#41; // Données à encoder
&#58;%Len&#40;%trimr&#40;WReadData&#41;&#41; // Longueur données à encoder
&#58;%ADDR&#40;WEncodeData&#41; // Résultat de l'encodage
&#58;%len&#40;WEncodeData&#41;&#41;; // Longueur des données encodées

// Alimentation du paramètre en retour WS_DOC_PDF
// avec la chaîne de caractères encodés en BASE64
WS_DOC_PDF = %Trim&#40;WS_DOC_PDF&#41;
+ %Subst&#40;WEncodeData&#58;1&#58;WEncodeDataLen&#41;;

WI = WI + 1;
DSPLY WI;

WReadData = '';
WLen = READ&#40;WInFile&#58; %ADDR&#40;WReadData&#41;&#58; %Size&#40;WReadData&#41;&#41;;
ENDDO;
CALLP CLOSE&#40;WInFile&#41;;

// Fin Prog
*inlr = *on;

cmasse · Message par **cmasse** » ven. 05 févr. 2016, 14:08:26

Excellent !

Le fichier en base64 doit-il être décodé du coté client avant d'être lu ou bien est-il lisible directement dans Acrobate sans traitement ?

ROMJERIPA · Message par **ROMJERIPA** » mer. 30 mars 2016, 08:50:45

Il doit être décodé avant de pouvoir être ouvert via acrobat.

Bilbao400 · Message par **Bilbao400** » dim. 26 déc. 2021, 19:54:28

Bonjour,
Pour retourner un blob à l'aide d'un webservice, vous pouvez créer un webservice rest basé sur une procédure sql. Pour cela, vous devez créer une procédure sql ayant un paramètre de sortie de type blob. Exposez votre procédure sql à l'aide iws, spécifiez le type mime du blob retourné, application/pdf par exemple et le tour est joué !
Pour charger votre blob à partir d'un fichier présent sur l’ifs, utilisez la fonction sql get_blob_from_file

nbonnet · Message par **nbonnet** » dim. 02 janv. 2022, 18:33:25

Merci pour l'info !

le forum IBM i

Web Service SOAP avec BLOB

base64

Re: Web Service SOAP avec BLOB

Re: Web Service SOAP avec BLOB