Mensajes

Asi es, ahi estuve viendo el ejemplo que hiciste y es cierto. Yo lo que hago es enviar a MegaUpload un GET para que me envien la web de ellos comprimida en gzip, asi se hace mas rapido el tramite. El servidor me responde que esta comprimido en gzip.

CABECERAS
<CrLf>
<CrLf>
CUERPO_DEL_MENSAJE

Con un .Split(respuesta, vbCrLf & vbCrLf, 2), divido la respuesta en 2, por una parte las cabeceras, y por otro lado el cuerpo del mensaje comprimido, a eso lo paso directamente a la funcion UnZip hecha en C#

Subi el proyecto mio por si quiere hecharle un vistazo y saber si funciona lo que estas probando.


Saludos, Sancho.Mazorka   

Recien ayer pude probar, estuve probando muchos ejemplos, modificaciones y demas y me sigue tirano error, por suerte, ahora es otro error xD

Código [Seleccionar] Expandir

Carácter no válido en una cadena Base-64.

Excepción del tipo 'System.FormatException' en zip.dll

Probe con la DLL que subiste, y tambien creando yo mismo la DLL y de las 2 formas, genera un error.

Modificacion: Solo estuve probando la funcion UnZip(), es la que necesito.

Saludos, Sancho.Mazorka    

Espectacular 43H4FH44H45H4CH49H56H45H, ahora instalo el VC++ 9 porque solo instalo el VB yo, y luego pruebo.

Muchas gracias a los 4 que se interesaron en mi problema!!


Saludos, Sancho.Mazorka   

jaja viste, es cualquiera :S yo tambien sospechaba de esa funcion Convert.FromBase64String(string)

Asi que tendre que hacer lo que decis, un ultimo favor  :$

Alguien podria hacer el .DLL de la funcion Zip y UnZip que esta en C# ?


Muchas gracias a todos ustedes por sus respuestas.


Saludos, Sancho.Mazorka   

Si a esos datos, los guardo, y con otra funcion los descomprimo (descomprime un archivo la funcion), funciona de maravilla, el problema es al descomprimir el string sin guardarlo en algun archivo.


Saludos, Sancho.Mazorka   

Es el mismo ejemplo que yo pase de C# a VB.NET mediante esta web

http://www.developerfusion.com/tools/convert/csharp-to-vb/

pero no funciona, yo subi el proyecto por si alguno quiere verlo.

En mi primer thread esta el codigo ese que vos pasaste (solo la funcion UnZip)


Saludos, Sancho.Mazorka   

Encontre este source que comprime el string sample, y luego lo descomprime y devuelve TRUE o FALSE la funcion segun si descomprimio bien o no.

No puedo adaptarlo para que directamente descomprima un string. Me sigue tirando lo de los numeros magicos. Si alguno puede ayudarme a pasarlo les agradeceria mucho.

Código (vbnet) [Seleccionar] Expandir

    Private Function Test() As Boolean
        Dim sample As String = "This is a compression test of microsoft .net gzip compression method and decompression methods"
        Dim encoding As New System.Text.ASCIIEncoding()
        Dim data As Byte() = encoding.GetBytes(sample)
        Dim result As Boolean = False

        ' Compress
        Dim cmpStream As New MemoryStream()
        Dim hgs As New GZipStream(cmpStream, CompressionMode.Compress, True)

        hgs.Write(data, 0, data.Length)
        hgs.Close()


        'DeCompress
        Dim cmpData As Byte() = cmpStream.ToArray()
        Dim decomStream As New MemoryStream(cmpData)

        data = New Byte(data.Length - 1) {}
        hgs = New GZipStream(decomStream, CompressionMode.Decompress, True)

        Dim [step] As Byte() = New Byte(15) {}
        'Instead of 16 can put any 2^x
        Dim outStream As New MemoryStream()
        Dim readCount As Integer

        Do
            readCount = hgs.Read([step], 0, [step].Length)
            outStream.Write([step], 0, readCount)
        Loop While readCount > 0
        hgs.Close()

        Dim sampleOut As String = encoding.GetString(outStream.ToArray())
        result = [String].Equals(sample, sampleOut)
        Return result
    End Function


Saludos, Sancho.Mazorka   

Gracias IT, lo estuve viendo, pero no es lo que necesito, yo necesito descomprimir un string, descomprimir un archivo puedo, el problema es con el string 

PD: yo uso VB.NET, aunque no hay drama, convierto el code y listo

Saludos, Sancho.Mazorka   

Ok, ok! Gracias por los consejos.

Yo programo en Español, no me gusta programar en Ingles, no hace falta, a menos que no sea para mi. Lo que esta en Ingles son codigos que saco de algun lugar, y no los modifico.

Por ahora, voy a seguir con el desarrollo del proyecto, pero lo guardare en un archivo, y utilizare la funcion DecompressFile() y leere el archivo.


Saludos, Sancho.Mazorka   

Ok, no hay drama, muchas gracias igual por la ayuda!

Por si tenes un tiempito, en el ws_dataarrival, esta la llamada a Unzip2() (lo marque con muchos numerales '#########) y al final del archivo principal estan todas las funciones que he ido probando, y te marque la que uso con numerales tambien.

Hay varios archivos, pero por ahora no son utilizados. Subi todo el proyecto asi te era mas comodo.


Saludos, Sancho.Mazorka