.NET Google API访问令牌失败，未指定刷新令牌

Question

我试图建立一个类，它可以环绕。NET Google API，这样我就可以使用我以前获得的访问令牌来访问用户的Google驱动器。到目前为止，我只是试图让它工作，这样我就不需要刷新令牌（稍后会有更多）。最终目标是让某人通过我设置的web页面进行身份验证，通过直接调用Google Rest API（我将其存储在数据库中）获得访问令牌和刷新令牌。然后，他们可以请求将文件上载/下载到另一个页面上的驱动器上，该页面将首先从数据库中获取适当的信息，然后在访问驱动器时使用。NET Google API库。

但是，当我试图访问他们的驱动器时，我得到以下错误：

访问令牌已过期，无法刷新。错误：刷新错误，刷新错误，刷新错误

我知道访问令牌是有效的，因为在测试过程中，我只在几秒钟前获得了它。下面是我设置驱动器服务的代码：

  ' NOTE: Code altered for brevity
  Public Sub Initialize(accessToken As String)
        ' Set up the client secret information based on the default constants
        Dim clientSecrets As New ClientSecrets()
        clientSecrets.ClientId = DEFAULT_CLIENT_ID
        clientSecrets.ClientSecret = DEFAULT_CLIENT_SECRET

        ' Set up a token based on the token data we got
        ' NOTE: Is it OK to leave some strings as NULL?
        Dim token As New Responses.TokenResponse()
        token.AccessToken = accessToken
        token.RefreshToken = ""
        token.TokenType = "Bearer"
        token.IssuedUtc = DateTime.Now
        token.ExpiresInSeconds = 3600
        token.Scope = "drive"
        token.IdToken = ""

        ' Set up a flow for the user credential
        Dim init As New GoogleAuthorizationCodeFlow.Initializer()
        init.ClientSecrets = clientSecrets
        init.Scopes = New String() {DriveService.Scope.Drive}
        init.Clock = Google.Apis.Util.SystemClock.Default

        ' Set up everything else and initialize the service
        Dim baseInit As New BaseClientService.Initializer()
        baseInit.HttpClientInitializer = New UserCredential(New GoogleAuthorizationCodeFlow(init), "user", token)
        baseInit.ApplicationName = APP_NAME

        _service = New DriveService(baseInit)
  End Sub

之后不久，我使用下面的代码请求一个文件夹，这样我就可以检查它是否存在。

  Private Function GetDriveFolder(folderPath As String, ByRef folderIds As String(), Optional createMissingFolders As Boolean = False, Optional parentFolderId As String = "root") As Data.File
    Dim creatingFolderPath As Boolean = False
    Dim currentFolder As Data.File = Nothing
    Dim folderPathSplit As String() = folderPath.Replace("/", "\").Trim("\").Split("\")
    Dim folderIdList As New List(Of String)
    folderIds = {}

    ' Loop through each folder in the path and seek each out until we reach the end
    For x As Integer = 0 To folderPathSplit.Length - 1
        Dim result As FileList = Nothing

        If Not creatingFolderPath Then
            ' Build a list request which we will use to seek out the next folder
            Dim request As FilesResource.ListRequest = _service.Files.List()
            request.Q = "mimeType='application/vnd.google-apps.folder' and name='" & folderPathSplit(x) & "'"
            If currentFolder Is Nothing Then
                request.Q &= " and '" & EscapeDriveValue(parentFolderId) & "' in parents"
            Else
                request.Q &= " and '" & EscapeDriveValue(currentFolder.Id) & "' in parents"
            End If
            request.Spaces = "drive"
            request.Fields = "files(id, name)"

            ' Execute the search, we should only get a single item back
            ' NOTE: Error thrown on this request
            result = request.Execute()
        End If
        ' So on.....

因此，我只是试图让它暂时只使用访问令牌，因为如果它最终被刷新，我将需要知道，以便我可以更新我的数据库。但是，如果包含刷新令牌，则会出现以下错误：

错误：“unauthorized_client”，描述：“unauthorized”，URI：“

我猜这与我通过开发控制台配置应用程序的方式有关，但如果我通过Google API库通过启动浏览器来获取我的凭据来进行身份验证，那么一切都很好。所以，我真的不确定从这里到哪里去，因为我没有发现任何人有类似的问题，指南也没有涉及指定您自己的访问令牌。

String.Format("https://accounts.google.com/o/oauth2/v2/auth?client_id={0}&state={1}&redirect_uri={2}&scope=https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fdrive&access_type=offline&include_granted_scopes=true&prompt=select_account%20consent&response_type=code", GOOGLEAPI_CLIENTID, validateState, redirectUri)

谢谢你的帮助！

Answer 1

如果您有一个访问令牌，那么创建google凭据的最简单方法是使用传递访问令牌的GoogleRedential.FromAccessStoken（）方法。

这将返回一个GoogleCredential实例，在构建DriveService时，可以使用该实例设置HttpClientInitializer属性。

如果您在访问驱动器服务时仍然出现错误，那么您请求访问令牌的方式很可能是不正确的。