Mensajes

Porque no lo debugueas? me pare ce que es mas facil que esperar a que alguien mas lo haga por vos.

Agria Menstruacion Infernal!

Claro, yo ya se hacer eso, es más ya lo probe de esa manera, pero no me funciona, osea, no me conecta con el server, como que me queda Cargando ..
Pero yo se que desde el cliente esta cifrando, pero el problema es el server que no encirpta .

Edit... no se pero hago un quote y un edit asi soy como los demas! =D

Código [Seleccionar] Expandir

Redim or

Código [Seleccionar] Expandir

Redim Preserve si queres conservar los datos al redimensionar.


Por ejemplo si de antemano sabes cuantos datos tenes usas Redim variable(cantidad de datos)

y si los agregas de a 1 podes usar Redim Preserve para que no se borren los datos que estaban ingresados.

Lo que te puse ahi es muy basico, mejor mirate algun tuto donde explique como redimensionar arrays y udts

mmmm Eso es una locura, tenes que encontrar otra manera de hacer eso, son muchos datos, posiblemente hacer crecer la estructura dinamicamenete.

@Leandro son diferentes estadisticas para diferentes funciones.

@All, yo personalmente uso midl para hacer las tlb, viene con Visual Studio.

Pone esto al inicio de tu proyecto

Código [Seleccionar] Expandir

Private Declare Function LoadLibrary Lib "Kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Código [Seleccionar] Expandir

Call LoadLibrary("shell32.dll")

Edit: Y no termines con END usa unload me

Tendrias que expandir esto un poco mas, yo personalmente y creo que muchos, sino todos los del foro estamos como dios nos trajo al mundo en cuanto respecta a GBA.

La imagen esta cifrada? comprimida? tiene algun formato standard? un ejemplo del archivo que queres procesar con una breve explicacion de los offsets y demas no vendria mal.

Ups recien lo veo a este, pase por el otro foro y vi la solucion que plantearon. Ahora me gustaria comentar algunas cosas, que si no te pasaron te van a pasar. Primero que nada para registrar un COM vas a necesitar privilegios (no se si este es un problema para vos) que utilizando otros metodos, no son necesarios.

Bueno la primer cosa para comentar es que, si bien podes usar la shell, me parece mucho mas limpio invocar 'DllRegisterServer'.

Ejemplo:

Código [Seleccionar] Expandir


Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

Private Function RegisterLib(ByVal sPath As String) As Boolean
    Dim lLib    As Long
    Dim lProc   As Long

    lLib = LoadLibrary(sPath)
    If Not lLib = 0 Then
        lProc = GetProcAddress(lLib, "DllRegisterServer")
        If Not lProc = 0 Then
            Call CallWindowProc(lProc, 0&, 0&, ByVal 0&, ByVal 0&)
            RegisterLib = True
        End If
        Call FreeLibrary(lLib)
    End If
End Function


Ahora, el problema con este metodo y el de la shell es que ambos utilizan el registro y como comentaba anteriormente puede ser un problema en muchas situaciones.

Hay varias soluciones posibles pero obviamente va a depender de lo que estes haciendo, la primera y mas comun seria simplemente utilizar algun packager (eg: Molebox) , la otra mas standard es (siempre y cuando corras tu programa en XP SP2 o mayor) utilizar un manifest junto con alguna herramienta para automatizar el proceso de creacion como ser Make My Manifest. Por ultimo la que mas me gusta para cosas simples es una clase hecha por Arne Elster que permite crear objetos en base a su ruta, algo asi como lo que querias hacer inicialmente.

Links:

Registration-Free Activation of COM Components
http://msdn.microsoft.com/en-us/library/ms973913.aspx

Make My Manifest
http://mmm4vb6.atom5.com/

CreateObjectFromFile
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=67459&lngWid=-10

Yo creo que el titulo y la pregunta estan mal. Me parece que en este caso seria, donde aprendo a usar sockets?.

No se si hay una manera mas directa de hacerlo, pero esta funciona.

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim objForm As Object
    Dim objCaller As Object
   
    For Each objForm In Forms
        If objForm Is Me Then Exit For
        Set objCaller = objForm
    Next
   
    Debug.Print "Caller: " & objCaller.Caption
End Sub

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim bvData() As Byte
    Dim sData As String

    bvData = CStr(bvData) & sData

End Sub