Restsharp Dropbox загрузить в vb.net - PullRequest
Новая
       12

Restsharp Dropbox загрузить в vb.net

0 голосов
/ 22 февраля 2019

Я очень стараюсь написать код, который загружает файл с моего компьютера в Dropbox. Программа работает, но в Dropbox ничего не происходит.Может кто-нибудь объяснить мне, почему это так?Что я делаю не так? 

    Dim client As RestClient = New RestClient("https://api.dropbox.com/1/metadata/link")
    Dim request As IRestRequest = New RestRequest("files_put/auto/{path}", Method.POST)
    Dim fileInfo As FileInfo = New FileInfo("C:\Users\rw\Desktop\logo.png")
    Dim fileLength As Long = fileInfo.Length
    request.AddHeader("Authorization", "myapptoken")

    request.AddHeader("Content-Length", fileLength.ToString())
    request.AddUrlSegment("path", String.Format("home/{0}", fileInfo.Name))
    Dim data As Byte() = File.ReadAllBytes("C:\Users\rw\Desktop\logo.png")
    Dim body = New Parameter With {
   .Name = "file",
   .Value = data,
   .Type = ParameterType.RequestBody


  }

request.Parameters.Add(body)
Dim response As IRestResponse = client.Execute(request)
End Sub

Ответы [ 3 ]

0 голосов
/ 23 февраля 2019

Если вы или кто-либо другой предпочитаете использовать RestSharp, вот рабочий код для загрузки файла размером менее 150 МБ с использованием Dropbox API v2: 

Dim sourceFile As String = "path\Filename.xlsx"
Dim data As Byte() = File.ReadAllBytes(sourceFile)
Dim fileLength As Long = data.Length
Dim targetPath As String = "/path/to/target/folder/in/dropbox/"

Dim js As New RestSharp.Serialization.Json.JsonSerializer
Dim dropboxApiArgs As String = js.Serialize(New With {.path = targetPath & IO.Path.GetFileName(sourceFile)}) ' or use Path.Combine to join path & filename

Dim client As RestClient = New RestClient("https://content.dropboxapi.com")
Dim request As IRestRequest = New RestRequest("2/files/upload", Method.POST)

request.AddHeader("Authorization", "#yourtoken#")
request.AddHeader("Content-Type", "application/octet-stream")
request.AddHeader("Dropbox-API-Arg", dropboxApiArgs)
request.AddHeader("Content-Length", fileLength.ToString())

Dim body As New Parameter With {
   .Name = "file",
   .Value = data,
   .Type = ParameterType.RequestBody
}
request.Parameters.Add(body)

Dim response As IRestResponse = client.Execute(request)

If response.IsSuccessful Then
    console.writeline("SUCCESS: " & response.StatusDescription) ' OK
Else
    console.writeline("FAILED: " & response.StatusDescription) ' Eg: Bad Request
End If

console.writeline(response.Content) ' get upload details such as rev number, etc. when successful; or else the error message
0 голосов
/ 25 февраля 2019

К сожалению, в моей программе все еще есть ошибки, такие как код состояния: 0, длина содержимого: 0 Подробности: невозможно прочитать данные из транспортного соединения.Соединение было закрыто до того, как все данные могли быть прочитаны.

Моя программа теперь выглядит следующим образом: Public Sub Main () 

    Dim sourceFile As String = "C:\Users\rafalwieczorek\Desktop\Proximus_logo.png"
    Dim data As Byte() = File.ReadAllBytes(sourceFile)
    Dim fileLength As Long = data.Length
    Dim targetPath As String = "/home/"

    Dim js As New RestSharp.Serialization.Json.JsonSerializer
    Dim dropboxApiArgs As String = js.Serialize(New With {.path = targetPath & IO.Path.GetFileName(sourceFile), .mode = "add", .autorename = True, .mute = False, .strict_conflict = False})

    Dim client As RestClient = New RestClient("https://content.dropboxapi.com/2/files/upload")
    Dim request As IRestRequest = New RestRequest(Method.POST)

    request.AddHeader("Authorization", "ZHBe8GKc1QAAAAAAAAAAKIFuc-sCarTOFEqEuVYcdlNGLTH2oIzrNO5aEqXg2kF9")
    request.AddHeader("Content-Type", "application/json")
    request.AddHeader("Dropbox-API-Arg", dropboxApiArgs)
    'request.AddHeader("Content-Length", fileLength.ToString())

    '  request.Parameters.Add(body)


    Dim response As IRestResponse = client.Execute(request)

    If response.IsSuccessful Then
        Console.WriteLine("SUCCESS: " & response.StatusDescription)
    Else
        Console.WriteLine("FAILED: " & response.StatusDescription)
    End If

    Console.WriteLine(response.Content)

End Sub

Можете ли вы увидеть какие-либо ошибки?

0 голосов
/ 22 февраля 2019

Вы, похоже, пытаетесь использовать устаревший Dropbox API v1.

Вместо этого следует использовать Dropbox API v2 .Я рекомендую использовать официальный Dropbox .NET SDK .Вот пример загрузки с использованием здесь .

...