Guardar byte array a archivo XML
Hola, estoy consumiendo un web service, y ella me retorna un arreglo de bytes que tengo que pasar a un archivo XML y no sé como hacerlo, espero me puedan ayudar
saludos
1 Respuesta
Respuesta de Aaron A.
1
Listo, ya lo tengo y lo pongo si por a alguien le sirve:
Blob bPic long lBlobLen long lBytePos, ll_tam byte ls_result[] Integer li_rc Long li_FileNo boolean lb_rc string ls_name //ls_result = byte obtenido del webservice lBlobLen = UpperBound(ls_result) bPic = Blob(Space(lBlobLen), EncodingAnsi!) for lBytePos = 1 to lBlobLen BlobEdit(bPic, lBytePos, ls_result[lBytePos], EncodingANSI!) next ls_name = "C:\XML\4.xml" //ruta donde se guardará el XML lb_rc = FileDelete ( ls_name ) li_FileNo = FileOpen (ls_name, StreamMode!, Write!, LockWrite!, Replace!) ll_rc = FileWriteEx ( li_FileNo, bPic ) li_rc = FileClose (li_FileNo)
