2011年1月24日月曜日

Googleドキュメントの全てのドキュメントの一覧を表示する(VB)

Googleドキュメントの全てのドキュメントの(名前の)一覧を表示するVB(.NET)のプログラム。
フォームForm1に配置されたButton1をクリックすると一覧が表示される。
Visual Basic 2008 Express Editionを使用する。

①先ず、Google Data APIの参照設定。
   [Google Data API SDKのインストール先]\Redistフォルダーの
     Google.GData.Client.dll
     Google.GData.Documents.dll
   を参照設定。


②プログラムは下記の通り:

Imports Google.GData.Documents
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                     Handles Button1.Click
        Dim myService As DocumentsService
        Dim query As DocumentsListQuery
        Dim feed As DocumentsFeed
        '
        myService = New DocumentsService("exampleCo-exampleApp-1")
        'ログイン

        myService.setUserCredentials("hogehoge@gmail.com", "passhoge")
        '
        query = New DocumentsListQuery
        feed = myService.Query(query)
        '
        For Each entry As DocumentEntry In feed.Entries
            Debug.WriteLine(entry.Title.Text)
        Next
    End Sub
End Class

Googleドキュメントにファイルをアップロードする(VB)

ローカルフォルダー内のExcelファイルをGoogleドキュメントにアップロードするVB(.NET)のサンプル・プログラム。
フォームForm1にButton1を配置し、Button1をクリックすると、
  D:\Temp\Sample.xls
をGoogle Docsに
  「サンプルSpreadSheet」
という名前でアップロードする、という簡単なもの。
Visual Basic 2008 Express Editionを使用する。


①先ず、Google Data APIの参照設定。
   [Google Data API SDKのインストール先]\Redistフォルダーの
     Google.GData.Client.dll
     Google.GData.Documents.dll
   を参照設定。


②プログラムは下記の通り:

Imports Google.GData.Documents
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                     Handles Button1.Click
        Dim myService As DocumentsService
        Dim newEntry As DocumentEntry
        '
        myService = New DocumentsService("exampleCo-exampleApp-1")
        'ログイン
        myService.setUserCredentials("hogehoge@gmail.com", "passhoge")
        'D:\Temp\Sample.xlsをGoogle Docsに「サンプルSpreadSheet」の名前でアップロード
        newEntry = myService.UploadDocument("D:\Temp\Sample.xls", "サンプルSpreadSheet")
        '
        Debug.WriteLine("Now accessible at: " + newEntry.AlternateUri.ToString())
    End Sub
End Class

2011年1月13日木曜日

.NET library for the Google Data APIのインストール

VB/C#でGoogleドキュメントを操作する為(だけではないが)の.NETライブラリー、
「.NET library for the Google Data API」を、下記手順でインストール。
尚、URL、バージョン等は今日現在のもの。
インストール先PCのOSはWindows Vista Ultimate SP2。


①Google Codeのダウンロードサイトより.msiファイルをダウンロード。
     URL : http://code.google.com/p/google-gdata/downloads/list
     ファイル : Google Data API Setup (1.7.0.1).msi    (ファイルサイズは21MB)


②上記ファイルをダウンロード後、.msiを実行。
   デフォルトのインストール先は
     C:\Program Files\Google\Google Data API SDK
   特に変更する必要性もないのでそのまま。途中、Select Installation Folderの画面の
   下の方に、
     "Install Google Data API SDK for yourself, or for anyone who uses this computer."
   との記載があり、ラジオボタンでEveryoneかJust Meのいずれかを選択させられるので、
   Everyoneを選択し、インストールを続行。


③"Google Data API SDK has been successfully installed."と表示されたらCloseボタン
   をクリックして、インストール完了。