md gstorage uploader y enlace
conexión a gstorage de google
conexión a gstorage de google
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.