Зададох типа на приложението DropBox Full DropBox; Зададох в приложението си следната функция:
Private Const AppKey As String = "my key"
Private Const AppSecret As String = "my secret"
Private Function Upload() As String
Dim client As DropNetClient
Dim token As UserLogin
Dim userToken As String = My.Settings.userToken
Dim userSecret As String = My.Settings.userSecret
Dim needAccessToken As Boolean = (String.IsNullOrEmpty(userToken) Or String.IsNullOrEmpty(userSecret))
If (needAccessToken) Then
client = New DropNet.DropNetClient(AppKey, AppSecret)
client.UseSandbox = True
client.GetToken()
Dim url = client.BuildAuthorizeUrl()
Try
token = client.GetAccessToken()
Catch ex As Exception
Console.WriteLine("Exception! " + ex.Message)
Exit Function
End Try
userToken = token.Token
userSecret = token.Secret
My.Settings.Properties.Item("userToken").DefaultValue = userToken
My.Settings.Properties.Item("userSecret").DefaultValue = userSecret
My.Settings.Save()
Else
client = New DropNet.DropNetClient(AppKey, AppSecret, userToken, userSecret)
client.UseSandbox = True
End If
Dim rawData As Byte() = File.ReadAllBytes(Server.MapPath("") + "/Fax/" + "Fax.zip")
Dim result As MetaData = client.UploadFile("/", "fax.zip", rawData)
End Function
За съжаление образование tokens = GetAccessToken () получавам грешката:
Получен отговор [Unauthorized]: Очаква се да видите [OK]. HTTP отговорът беше [{" "грешка" ":" "Означението на заявката не е правилно упълномощено от потребител. "}] ".
Проверих URL адреса (client.BuildAuthorizedUrl ()) и ми връща „Неупълномощен“.
Как мога да се свържа с папка Dropbox? правя нещо нередно? Или трябва да настроя по-добро приложение на Dropbox?
