c'est une string en retour du webservice encodé en base64

En gros :

    nv_codec_base64 b64
    blob lbl_data64
    string ls_res
    lbl_data64 = b64.decode("SGVsbG8gV29ybGQgIQ==")
    ls_res = string(lbl_data64) //  ==>  Hello World !

Une version un peu plus élaborée, si on ne sait pas ce qui peut se trouver dans la chaîne (gère l'unicode) pour écrire le résultat dans un multilineedit :

    nv_codec_base64 b64
    blob lbl_data64
    byte lb
    lbl_data64 = b64.decode(as_some_b64_string)
    //heuristique utf16
    if len(lbl_data64) > 1 then
      getbyte(lbl_data64, 2, lb)
      if lb = 0 then
        //probable utf16
        mle_decoded.text = string(lbl_data64)
      else
        mle_decoded.text = string(lbl_data64, encodingansi!)
      end if
    else
      mle_decoded.text = string(lbl_data64, encodingansi!)
    end if

Maintenant si la chaîne en question est un fichier PDF, à la place d'affecter mle_decoded.text comme dans l'exemple il faudra faire un FileWrite du lbl_data64.

PS: pour que ça fonctionne dans un projet test, il faut aussi récupérer l'extension pbnicw (disponible sur la même page que nv_codec_base64) que j'utilise pour faire des calculs de bits rapidement. Il est possible de recoder ces calculs en pbscript pur mais ça va être encore plus lent.

J'ai trouvé comment faire,
j'utilise pour cela une dll base64.dll.
1) Je l'enregistre C:\Windows\System32\REGSVR32.EXE C:\Base64.dll
2) puis après dans mon script je mets le code ci dessous

oleobject   uo_64
Int=pb        li_rc, li_file
String      ls_result

uo_64 = CREATE OLEObject
li_rc=uo_64.ConnectToNewObject("Base64Lib.Base64") 
IF li_rc<0 THEN
    MessageBox("Error","Connect to Base64 dll failed")
    RETURN
END IF

uo_64.DecodeToFile (ls_return, "C:\ls_return_web_service + ".PDF")

Dernière modification par pkhayat (24-11-2011 18:20:20)

pkhayat a écrit:

J'ai trouvé comment faire,
j'utilise pour cela une dll base64.dll.

Par curiosité, c'est une lib qui provient d'où .