PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile 2024 → [WM17] SOAP JPG base64 crypte et decrypte
[WM17] SOAP JPG base64 crypte et decrypte
Started by tff, Jun., 21 2012 4:55 PM - 2 replies
Registered member
16 messages
Posted on June, 21 2012 - 4:55 PM
Bonjour,

J'ai un web service qui renvoie une image JPG. Ce webservice fonctionne parfaitement en PHP et l'image est bien envoyée.
Sur Windev, je n'arrive pas à afficher l'image, il reçoit bien les données encodées en base 64.
J'essaye de décoder et d'enregistrer le tout au format jpg mais le résultat n'est pas lisible

// mareponse.image est mon flux binaire encodé en base 64
pChaine = mareponse.image
T = Remplace(pChaine,"=","")
MonFichier = Décrypte(T,"",compresseAucun,encodeAucun )
idFichier= fCrée(fRepExe()+"/tmp.jpg")
fEcrit(idFichier,MonFichier)
fFerme(idFichier)
FEN_debut.IMG_fond = fRepExe()+"/tmp.jpg"
Registered member
16 messages
Posted on June, 21 2012 - 5:57 PM
Je réponds à moi même.
La solution est de changer le type dans le WSDL pour passer de base64Binary à string
Puis, à l'arrivée, on utilise ce petit bout de code trouvé sur ce forum

sPChaine = mareponse.image
monimage = B64D(sPChaine)
idFichier= fCrée(fRepExe()+"/tmp.jpg")
fEcrit(idFichier,monimage)
fFerme(idFichier)


Procedure B64D(sPChaine est une chaîne)
T est une chaîne
T = Remplace(sPChaine,"=","")
RENVOYER Décrypte(T,"",crypteAucun)
Registered member
5 messages
Posted on January, 14 2013 - 8:36 PM
Bonjour

Avec ce code, as tu réussis à envoyer une image prise d'un iPhone par exemple vers un serveur Web de façon à récupérer l'image de l'autre côté?

Cordialement