md gstorage uploader y enlace

Este interfaz permite conectar al servicio gstorage de google (similar a google drive pero para uso profesional y empresa) para subir cualquier tipo de archivo y opcionalmente publicarlo (mediante un enlace) y dejarlo disponible para que otros puedan verlo o descargarlo. 

Desde visual basic 6 (o cualquier otro lenguaje en ambiente windows) el servicio se puede usar con esté código básico. En este ejemplo se conecta al servicio (teniendo las credenciales y acceso ya creados) se sube un archivo PDF guardado localmente y luego se lo publica obtieniendo la url para poder compartir con cualquiera.

Dim gMD As Object

Set gMD = CreateObject("misdatos.gstorage2")

gMD.archivopassword = "credencial generada para gstorage de google"

gMD.tipoarchivopassword = 0

gMD.timeout = 60

gMD.chunksizes = "1048576"

gMD.usuario = "token  generado desde plataforma MisDatos"

gMD.Password = "idem usuario"

gMD.idproveedor = "4"

gMD.plan = "gratuito"

If gMD.conectar("disco creado en gstorage") Then

    If gMD.obteneracceso("d:/carpetalocal/archivo.pdf", 1) Then

        If gMD.subir("0", "d:/carpetalocal/archivopdf", "") Then

            MsgBox ("achivo subido: " + gMD.leerPropiedad("subir", "datos.objeto.name", 0, 0, 0) + " " + gMD.ultimomensajeerror)

            If gMD.publicar() Then

                 curl = gMD.leerPropiedad("subir", "datos.objeto.public_url", 0, 0, 0)

                 MsgBox ("url copiado: " + curl + " " + gMD.ultimomensajeerror)

            Else

                MsgBox ("el archivo ne pudo hacer publico: " + gMD.ultimomensajeerror)

            End If

        Else

            MsgBox ("error al subir " + gMD.ultimomensajeerror)

        End If

    Else

       MsgBox ("error seguridad  " + gMD.ultimomensajeerror)

    End If

Else

     MsgBox ("no conetado: " + gMD.ultimomensajeerror)

End If

Set gMD = Nothing

Para poder usar este servicio debe tener en cuenta los siguientes puntos o requisitos

• El instalador mdpyv009 descargado y registrado.

• Un token de seguridad (usuario / conraseña) creado en la plataforma MisDatos>usar mis servicios>md enlace>Token.

• Una disco o "bucket" en el servicio de google storage

• Una credencial  (usuario/contraseña) para acceder al servicio y al gstorage.

• aseguarse de tener conexión al servidor de seguridad (misql.misatos.com.ar) y el puerto (3309)

• En la plataforma tener contratado un plan para el servicio md enlace (puede comenzar con el plan gratuito) y verificar los costos de alamacenamiento en "bucket" que cree en gstorage

Como se ve en el ejempo básico uno de los métodos ejecutados es: gMD.obteneracceso. Este método conecta al servidor de seguridad de MisDatos (misql.misdatos.com.ar puerto 3309) lo que le permitirá registrar todas las veces que ha conumido o usado el servicio (desde la plataforma MisDatos>usar mis servicios>licencia>md enalce>Mis Consumo)  además de no exederse en su costo o prespuesto ya que el mismo método le avisará si supera el limite de usos para el plan que tiene contratado (puede empezar con el plan "gratuito" que no tiene costos y le permitrá algunos usos diarios y aumentar de plan en cualquier momento)

La planilla de test mdenlacetest (al pie de página, debe descargarla para abrir  la planilla localmente en excel) contiene hojas y macros que replica todos y cada uno de los métodos por lo que es imprescindible para ver como cada métodos, con sus campos de entrada y salida, es implementada desde la interfaz misdatos.gstorage2. La planilla puede ser ejecutada en un excel de 32 bits con las macros habilitadas (puede usar un motor de IA para que lo guie en lo pasos necesarios para habilitar las macro en su versión de excel) y en caso que no pudiera ejecutarlas aun puede usar el código de la macros para ver como todos los métodos son implementados en visual basic.