Foros del Web » Programación para mayores de 30 ;) » .NET »

Subir ficheros a google Drive

Estas en el tema de Subir ficheros a google Drive en el foro de .NET en Foros del Web. Buenos días compañeros. Estoy tratando de subir ficheros desde una aplicación de consola a Google Drive y estoy teniendo el siguiente problema. El código es ...
  #1 (permalink)  
Antiguo 10/10/2014, 01:03
 
Fecha de Ingreso: junio-2007
Mensajes: 327
Antigüedad: 16 años, 10 meses
Puntos: 0
Pregunta Subir ficheros a google Drive

Buenos días compañeros.
Estoy tratando de subir ficheros desde una aplicación de consola a Google Drive y estoy teniendo el siguiente problema.
El código es el siguiente:

Código:
Dim CS As New ClientSecrets
CS.ClientId = "CODIGO DEL CLIENTE"
CS.ClientSecret = "CONTRASEÑA DEL CLIENTE"
Dim vScopes() As String = {DriveService.Scope.Drive}
Dim sUser As String = "MI CORREO GMAIL QUE ES EL USUARIO"
Dim credential As UserCredential = GoogleWebAuthorizationBroker.AuthorizeAsync(CS, vScopes, sUser, CancellationToken.None).Result


            'Creamos el Servicio
            Dim ObjBaseClientService As New BaseClientService.Initializer()
            ObjBaseClientService.HttpClientInitializer = credential
            ObjBaseClientService.ApplicationName = "NOMBRE DE LA APLI"
            Dim service As New DriveService(ObjBaseClientService)
    

            'Creamos un fichero
            Dim body As New File()
            body.Title = "Mi documento de Prueba"
            body.Description = "Prueba de Javi"
            body.MimeType = "text/plain"

            Dim byteArray() As Byte = System.IO.File.ReadAllBytes("document.txt")
            Dim stream As New System.IO.MemoryStream(byteArray)
            Dim request As FilesResource.InsertMediaUpload = service.Files.Insert(body, stream, "text/plain")

            Dim Resutado As Google.Apis.Upload.IUploadProgress
            'Resutado = request.Upload()
            request.Upload()

          
            If Resutado.Status <> Google.Apis.Upload.UploadStatus.Completed Then
                Throw New Exception("No fue posible subir el fichero al Drive")
            End If

            Dim Objfile As File = request.ResponseBody


            Console.WriteLine("Fichero creado")
            Console.ReadKey()
Este código funciona perfectamente con mi GoogleDrive personal y sube los ficheros, o los lee alterando el código, perfectamente. Sin embargo, cuando apunto al google drive de mi empresa... la cosa cambia. Conecta perfectamente, pero a la hora de subir el fichero, en el request.Upload() el status captura el resultado como "FAIL{4}" y la excepción que contiene dicta:

El valor no puede ser nulo.
Nombre del parámetro: baseUri


¿Alguien sabe por donde van los tiros de este problema????

Mil gracias

Última edición por Javichechu; 10/10/2014 a las 01:22

Etiquetas: drive, ficheros, google
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:52.