Mensajes

Hola, estoy vivo no se preocupen , me desapareci unos meses nomas, fue de descanso de 5 años de foro seguidos sin parar un dia, ya me hacian mal, estoy con un desarrollo en Android que me hizo desprender un poco del visual basic nada mas. pero aca estoy, prometo no pegarme otro faltazo como este.

felicidades Leandro y Raul por acompañarme ahora.

saludos.

Hola, lo que quiere si no entendi mal es cambiar el valor de una variable, conociendo su nombre como string...eso lo podes hacer con la funcion CallByName.

saludos.

bueno encontre 2 soluciones, use la segunda porque era la mas rapida.

1 - decodificar esa cadena (que viene codificada en base64), y luego descomprimirla con la clase de GZIP que viene con java.

2 - estuve buscando varias clases para decodificar el base64 en java, hay mas lentas y mas rapidas, pero la mejor que encontre es esta:

http://iharder.sourceforge.net/current/java/base64/

aparte de ser rapida, no tenes que estar descomprimiendo la cadena con el GZIP de java, ya que internamente la clase detecta la compresion y te la descomprime...o sea que en una linea de codigo solucione todo.

saludos.

tema solucionado, pueden cerrar el tema.

y el proyecto Filadelfia ??

[GZipStream]

Hola, tengo un problemita, es bien simple el planteo asi que se los cuento rapido por pasos asi se entiende.

1 - Desde un webservice de .NET 2008 (vb), tengo un metodo que devuelve un array de bytes, este array de bytes en realidad es un string ("Hola Mundo") comprimido con la Clase GZipStream de System.IO.Compression.

2 - El metodo devuelve el string "Hola Mundo" comprimido, y esto es lo que el webservice retorna:

Código (html4strict) [Seleccionar] Expandir

<base64Binary>
H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Ir5dlVn6xXo5q/4f0m5DIgoAAAA=
</base64Binary>

3 - si hago una prueba desde una aplicación de visual basic .NET que ejecute este metodo me retorne ese string y lo Descomprima con otra funcion que tengo, me trae bien el Hola Mundo....

4 - Desde Android (Eclipse) ya he logrado hacer la peticion y que me traiga el string anterior...pero no sabria como hacer para Descomprimirlo y que me muestre Hola Mundo...

5 - ya he probado varios codigos de la web, pero ninguno funciona.

alguien sabe algo de esto ? muchas gracias desde ya.

Saludos.

hablen...que hablar y criticar es gratis

[aca tenes otro que te sigue....]

el pagar al fmi, nacionalizar aerolineas, aumento a los jubilados, salir del defaut, asignacion famiar, derechos humanos, eliminar las ley de obediencia debida y punto final, juicio por la verdad, ley de medios, son en escencia nuestras banderas y si el las llevo y las pudo hacer verdad es lo mejor que le paso a la argentina desde la vuelta de la democracia.....nos sacamos el sombrero ante semejante ya no politico...el fue un estadista...ojala este en el cielo

y todavia hay gente que tiene la cara de decir todo lo contrario, son unos enanos mentales, gorilas e inhumanos, no escribo mas porque me enveneno de tal forma que me da ganas de romper todo.

aca tenes otro que te sigue....

con kirchner hasta la muerte !!!!!

[WH_MOUSE_LL]

para no estar usando Timers, usa un Hook al mouse WH_MOUSE_LL..algo asi..

En un Modulo:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WH_MOUSE_LL = 14
Private Const HC_ACTION = 0

Private Const WM_LBUTTONDOWN As Long = &H201

Public IdProc As Long

Public Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
    If (nCode = HC_ACTION) Then

        Select Case wParam
            Case WM_LBUTTONDOWN
           
                Debug.Print "Click Izquierdo"

            Case Else

        End Select

    End If
   
    MouseProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
End Function


En el Formulario:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    IdProc = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If IdProc <> 0 Then
        UnhookWindowsHookEx IdProc
        IdProc = 0
    End If
End Sub

saludos.

como dijeron son bastante caras, si te compras las 2, minimo 300 pesos sale.

saludos.