Ich hab nun eben gesehen, dass der z_o_o_m Uploader bei Google exakt das selbe Problem hat Und das nur bei GD.
Ist also doch irgendwie ein GD Problem.
Hier mal der Code
Ein Upload eines Files (Auszug)
Code:
Dim service = newGDService()
Dim uploadStream As FileStream
uploadStream = File.OpenRead(localpath)
Dim insertrequest As FilesResource.CreateMediaUpload = New FilesResource.CreateMediaUpload(service, body, uploadStream, mimeType)
AddHandler insertrequest.ProgressChanged, Sub(e As IUploadProgress) GD_UploadProgressChanged(e, Id)
insertrequest.ChunkSize = 256 * 4 * 1024 * chunksize_
Dim answer = insertrequest.Upload()
uploadStream.Dispose()
Code:
Function newGDService()
' Create Drive API service.
Dim service As DriveService
Using stream = New FileStream(System.AppDomain.CurrentDomain.BaseDirectory + "client_secret.json", FileMode.Open, FileAccess.Read)
credential = GoogleWebAuthorizationBroker.AuthorizeAsync(GoogleClientSecrets.Load(stream).Secrets, Scopes, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result
End Using
service = New DriveService(New BaseClientService.Initializer() With {.HttpClientInitializer = credential, .ApplicationName = "simpleGDM"})
Return service
End Function