Visual Basic.NET - Crear ejecutable a partir de una función

   
Vista:

Crear ejecutable a partir de una función

Publicado por Felix Rodrigo (1 intervención) el 12/09/2011 22:42:26
Hola necesito vuestra ayuda.

Alguien puede crearme un ejecutable o dedirme como hacerlo , a partir de la siguiente función en VisualBasic.Net, pues yo trabajo con VisualFoxPro y en este lenguaje no tiene implementado el tema de :

Decodificar el string obtenido desde Base64 a un array de enteros de 8 bits sin signo (tipo byte)

La idea es ejecuatr el ejecuatble creado y que me devuelva el fichero ya decodificado de BASE64 y descomprimido en GZIP.

Fichero descargado Base64 y comprimido GZIP : Fichero_B64_Gzip.txt
Fichero tratado : Fichero_fianl.txt

Uso: Fichero_final.txt = Exe_creado.exe ( Fichero_B64_Gzip.txt)

Se aclarara cualquier pregunta el respecto, asi como se abonara el precio marcado por el tiempoq ue se dedique a este tema quien pueda ayudarme

Espero vuestras noticias

Un saludo

Felix Rodrigo



----------------------------------------------------------------------------------------------

Te adjunto un código de ejemplo escrito en VisualBasic.Net que efectúa esta operación, lamentablemente no disponemos de nadie que conozca Visual Fox Pro para poder ayudaros más. De todas formas, si queréis podéis enviarnos el código que estáis utilizando para efectuar la operación por si somos capaces de ver algo que estéis haciendo mal aunque sea en Visual Fox Pro.

El parámetro zippedXmlData debe ser informado con el valor del string que se devuelve en ServiceReturnValue por parte del Web Service



Public Shared Function UnZipDataSetString(zippedXmlData As String) As DataSet

Dim gzBuffer As Byte() = Convert.FromBase64String(zippedXmlData)

Using ms As New MemoryStream()

Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)

ms.Write(gzBuffer, 4, gzBuffer.Length - 4)


Dim buffer As Byte()

ReDim buffer(msgLength)


ms.Position = 0

Using zip As New GZipStream(ms, CompressionMode.Decompress)

zip.Read(buffer, 0, buffer.Length)

End Using


Dim ds As New DataSet()

Dim r As New StringReader(Encoding.UTF8.GetString(buffer))

ds.ReadXml(r)

Return ds

End Using

End Function


-------------------------------------------------------------------------------------------------
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