Power Builder - Convertir array[] de bytes a un archivo

   
Vista:
Imágen de perfil de antonio

Convertir array[] de bytes a un archivo

Publicado por antonio (1114 intervenciones) el 04/04/2014 06:52:00
Hola a todo:

En la pregunta anterior pedia ayuda para convertir un archivo a un arreglo de tipo bytes, esto ya lo solucione, pero ahora estoy en busca de su gran ayuda para hacer lo inverso.

ejemplo:

Un archivo XML lo convertir a una arreglo de tipo BYTES lo mando por web service, el web service me retorna un resultado también en arreglo de tipo BYTES.

Mi problema ahora es convertir ese resultado de tipo BYTES nuevamente a un archivo o a una cadena de texto.

¿Alguien sabe como hacerlo o que tenga un ejemplo?


Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

Convertir array[] de bytes a un archivo

Publicado por xve (16 intervenciones) el 04/04/2014 15:01:15
Hola Antonio, podías compartir como lo lograste respondiendo a tu mensaje.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antonio

Convertir array[] de bytes a un archivo

Publicado por Antonio (1114 intervenciones) el 04/04/2014 18:37:13
Hola XVE:

Para todos les comparto como hacer de un archivo convertirlo en un arreglo en BYES:

Si alguien conoce como hacer el proceso a la inversa o como una variable de tipo ANY la puedo convertir a texto se los agradeceré.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Byte ly_byte[]
blob lbArhivo
long nLen,nBytes
integer iBytes
string sArchivo
 
sArchivo = 'C:\ARCHIVOS\ARCHIVO.XML'  // Aquí pueden poner archivos como BMP, JPG, PDF, etc etc etc
nLen=FileOpen(sArchivo, streammode!)
 
if nLen = -1 then
	MessageBox('Erro Abrir Archivo',sArchivo)
	return
end if
 
 
iBytes = FileReadEx(nLen, lbArhivo)
nBytes = Long(iBytes)
ly_byte[] = GetByteArray(lbArhivo)
lbArhivo = Blob(ly_byte)
FileClose(nLen)

una vez terminado lo pueden guardar en una tabla por mandarlo por web service
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de xve

Convertir array[] de bytes a un archivo

Publicado por xve (16 intervenciones) el 05/04/2014 11:36:31
Muchas gracias por compartirlo Antonio!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Convertir array[] de bytes a un archivo

Publicado por Linknes (13 intervenciones) el 23/07/2016 00:54:47
Estimado, lograste hacer el proeso inverso.
Si puedes compartir tu conocimiento te voy a agradecer mucho
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Convertir array[] de bytes a un archivo

Publicado por Linknes limnes@gmail.com (13 intervenciones) el 25/07/2016 17:35:37
Este es codigo inverso, para quienes en algun momento se topen con este problema, Antonio me ayudo mucho tu codigo. Saludos
1
2
3
4
5
6
7
8
9
10
11
12
//*************** CAPTURAMOS EL ARCHIVO DE RETORNO, PROCESO  INVERSO
 
long  ll_BLen
integer li_WriteTimes
lb_retorno=Blob(resultado_byte[]) //archivo blob
//creamos el archivo de retorno
Sarchivo_retorno='Output/constancia.zip'
 
nSalida=fileopen(Sarchivo_retorno,StreamMode!, Write!, Shared!, Replace!  )//cramos la numeracion del archivo
//llenamos yescribimos el archivo con el archivo blob
FileWriteEx(nSalida, lb_retorno)
fileClose(nSalida)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Convertir array[] de bytes a un archivo

Publicado por Aaron (1 intervención) el 31/03/2015 18:12:19
Hola, pudiste solucionarlo? como lo hiciste?

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar