Google SOAP Search API - キャッシュ機能のサンプル(VB.NET)

ここではコードのみを示します。説明は、C#のサンプルにあります。

コード

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
<%@ Page Language="VB" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<script runat="server">
 
    Protected Sub Button1_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs)
        'キーを必ず指定する
        Dim key As String = "XXXXXXXXXXXXXXXXXXX"
 
        Dim gs As New Google.GoogleSearchService()
        Dim data As Byte() = Nothing
        Try
            'キャッシュを取得する
            data = gs.doGetCachedPage(key, urlTextBox.Text)
        Catch ex As System.Web.Services.Protocols.SoapException
            message.Text = "エラー:" + Server.HtmlEncode(ex.Message)
            Return
        End Try
        If data Is Nothing Then
            message.Text = "キャッシュデータが取得できませんでした。"
            Return
        End If
 
        'キャッシュデータを出力する
        Me.Response.Clear()
        Me.Response.BinaryWrite(data)
        Me.Response.End()
    End Sub
</script>
 
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>キャッシュの表示</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="Label1" runat="server" Text="URL:">
        </asp:Label>
        <asp:TextBox ID="urlTextBox" runat="server">
        </asp:TextBox>
        <asp:Button ID="Button1" runat="server"
        OnClick="Button1_Click" Text="キャッシュの表示" />
        <br />
        <asp:Label ID="message" runat="server" ForeColor="Red"
         EnableViewState="False"></asp:Label></div>
    </form>
</body>
</html>

ページ情報
[ トップ ]   [ 編集 | 凍結 | 差分 | バックアップ | 添付 | 複製 | 名前変更 | リロード ]   [ 新規 | 子ページ作成 | 一覧 | 単語検索 | 最終更新 | ヘルプ ]