Web

[Web][VB]Tips: Twitter APIを使って投稿する

CH3COOH — Fri, 03 Oct 2008 21:30:00 GMT

Twitter APIを使ってPost出来ないという声を聞いたので、
自前のTwitterクライアントで使っているコードを貼り付けておきますね。
Windows Mobile（.NET compact Framwork）でも使えるコードです。

    ''' <summary>
    ''' Twitterへ投稿する
    ''' </summary>
    ''' <param name="status">Twitterへ投稿する文字列</param>
    ''' <returns>サーバーレスポンス(xmlフォーマット)</returns>
    Public Function Post(ByVal status As String) As System.IO.Stream

        Dim userId As String = "screenId"
        Dim password As String = "password"
        Dim url As String = "http://twitter.com/statuses/update.xml"

        ' URI 文字列をエスケープ表現へ変換
        Dim parm As String = "status=" & Uri.EscapeUriString(status)
        Dim data() As Byte = Encoding.ASCII.GetBytes(parm)

        ' POSTメソッドで送信する為のあれこれ
        Dim webReq As WebRequest = HttpWebRequest.Create(url)
        webReq.Method = "POST"
        webReq.ContentType = "application/x-www-form-urlencoded"
        webReq.ContentLength = data.Length

        ' BASIC認証用に関する情報をBase64でエンコード
        Dim basicData() As Byte = Encoding.UTF8.GetBytes(userId & ":" & password)
        Dim auth As String = System.Convert.ToBase64String(data)
        webReq.Headers.Add("Authorization: Basic " & auth)

        ' Postデータの書き込み
        Dim reqStream As System.IO.Stream = webReq.GetRequestStream()
        reqStream.Write(data, 0, data.Length)
        reqStream.Close()

        Dim strm As System.IO.Stream = Nothing
        Dim webRes As HttpWebResponse = Nothing
        Try
            webRes = CType(webReq.GetResponse(), HttpWebResponse)
            strm = webRes.GetResponseStream()
        Catch ex As Exception
            Throw ex
        Finally
            webRes.Close()

            webRes = Nothing
        End Try

        Return strm
    End Function

久しぶりに自作クライアントの改良をしようとしたら、
ソリューション毎全てのソースコードが消滅していました。

BOTを作った時に流用したTwitter APIを叩くClassだけが残っている感じです。
しっかりバックアップを取っておけばこんな事には成らずにすんだのに……

[VB][WEB]Tips:WebサービスとWebサービスを利用したクライアントアプリケーションの作成の仕方

CH3COOH — Wed, 10 Sep 2008 23:52:00 GMT

ソリューションの作成

VisualStudioで空のソリューションを作成します。ソリューション名は「WebServiceSolution」にします。

Webサービスプロジェクトの作成

新しいプロジェクトの追加を行い、テンプレートからASP.NET Webサービスアプリケーションを選択します。F5押してデバッグ開始して、「http://localhost:1735/Service1.asmx」にアクセスすると、こんなサービスが利用出来ますよーっていうページが出ます。

VS2003の場合は……

場所は「http://localhost/SAK01」とかを指定して、IIS上で仮想ディレクトリを作成して、「http://localhost/SAK01」にアクセスする事で初めてWebサービスを使用する事が可能となっていました。

SAK01プロジェクト以下に、Service1.asmxがあるので、コードを表示させて、

    '<WebMethod()> _
    'Public Function HelloWorld() As String
    '   Return "Hello World"
    'End Function

サンプルコードのコメントアウトを外し、SAK01プロジェクトのビルドを行います。

ソリューションエクスプローラーにて、Service1.asmxを右クリックしブラウザで表示させる。この時、URLは「http://localhost/SAK01/Service1.asmx」となっています。正常に画面が表示されればWebサービスが使用可能です。

クライアントアプリケーションの作成

次に、先ほど作成したWebサービスにアクセスする、クライアントアプリケーションを作成します。

新しいプロジェクトの追加を行い、テンプレートからWindowsアプリケーションを選択します。プロジェクト名は「SAK01Client」で作成しました。

Web参照の追加

ソリューションエクスプローラーにて、SAK01ClientプロジェクトからWeb参照の追加を行います。

URLは先程作成したWebサービスのURL「http://localhost/SAK01/Service1.asmx」を指定します。

「このURLで見つかったWebサービス」の欄に

1 個のサービスが見つかりました :
- Service1

と表示されているのを確認し、Web参照名はデフォルトのまま「参照の追加」を実行します。

クライアントの作成

Form1.vbをデザイナの表示で開き、ボタンを貼り付けてButton1のClickイベントハンドラを作成します。Clickイベントハンドラ内にて、追加したWebサービスを使用します。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' Webサービスオブジェクトの生成
        Dim webService As New SAK01Client.localhost.Service1

        ' Webメソッド"HelloWorld"を実行
        Dim respMessage As String = webService.HelloWorld()

        ' 結果を表示する
        MessageBox.Show(respMessage)

    End Sub

先ほど作成したWebサービスが起動した状態で、ボタンをクリックして下記の図の様にHelloWorldが表示されれば、Webサービスを利用したクライアントの作成に成功です。

お疲れ様でした。

[Web]Python と Google App Engine SDK を使ってみた

CH3COOH — Wed, 11 Jun 2008 22:06:00 GMT

今日はGoogle App Engineで遊んでみました。とりあえず、僕にでも出来るHello Worldを表示するところまで。

Python 2.5.2 Windows installer
http://www.python.org/download/

GoogleAppEngine_1.1.0.msi
http://code.google.com/appengine/downloads.html

GoogleAppEngine SDKをインストールすると、標準で
C:\Program Files\Google\google_appengine\new_project_template
にexampleプロジェクトが入っています。

コマンドプロンプトを立ち上げて

C:> cd C:\Program Files\Google\google_appengine
C:\Program Files\Google\google_appengine> dev_appserver.py new_project_template/

と打ち込むと、テストサーバが起動します。

コマンドプロンプトを出した状態にしておき、
ブラウザから http://localhost:8080/ にアクセスすると、「Hello World!」が表示されます。

[Web]WebAPIを使った事無いにも関わらず……(改訂版)

CH3COOH — Fri, 06 Jun 2008 23:30:00 GMT

皆にぬりかべだ、バルカン300だとイジられたので、改訂版｡ﾟ(ﾟ*´Д⊂ｸﾞｽﾝ

WindowsMobileアプリを作る練習に、WebAPIを使った事無いにも関わらず、Twitterクライアントツールを作ってみようと思って、Twitter WebAPIの仕様を調べてました。

[観] Twitter API 仕様書 (勝手に日本語訳シリーズ) にて、簡単に使えるWebAPIがある事を知ったので、どうやら「http://UserName:PassWord@twitter.com/statuses/friends_timeline/UserName.xml」[*1]にアクセスすれば、直近の投稿20件の結果が得られるそうな。

そもそもWebAPIってどうやって扱えば良いんだっけとググってた時に、なんとなしにブラウザのアドレス欄に「http://UserName:PassWord@twitter.com/statuses/friends_timeline/UserName.xml」[*1]を入れてみたら、XMLが返ってきてビックリ。……あぁ、WebAPIってこんなに簡単で良いんだ。

今日学習した事のまとめ。

[*1]UserName＝Twitterでのユーザー名、PassWord＝Twitterでのパスワード

(追記)
これでどうだ！と思ったけど、あまり前の記事と変わってなさげ。
BASIC認証はするようにしたけど、基本性的なxmlへアクセスするだけだもんね。

[Web]WebAPIを使った事無いにも関わらず……

CH3COOH — Fri, 06 Jun 2008 00:03:00 GMT

[観] Twitter API 仕様書 (勝手に日本語訳シリーズ) にて、BASIC認証無しで使えるWebAPIがある事を知ったので、どうやら「http://twitter.com/statuses/public_timeline.xml」にアクセスすれば、直近の投稿20件の結果が得られるそうな。

そもそもWebAPIってどうやって扱えば良いんだっけとググってた時に、なんとなしにブラウザのアドレス欄に「http://twitter.com/statuses/public_timeline.xml」を入れてみたら、XMLが返ってきてビックリ。……あぁ、WebAPIってこんなに簡単で良いんだ。

今日学習した事のまとめ。

[Web]Hello Silverlight(´・ω・)

CH3COOH — Sat, 17 May 2008 12:38:00 GMT

昨日、Sliverlightを囲む会 in 大阪#2 へ参加してきました。

皆さんサクサクっと、Sliverlightを使っていたので、
「なんて簡単にWebアプリが出来んだ！」と思い、
さっそくSliverlight SDKをインストールしてサンプルをぐいぐい動かしました。

ここまで来るのに1時間弱掛かりました。

Hello Worldすら満足に出力出来ないなんて……
XAMLは今の僕には理解出来ない(´・ω・)

[Web]ASP.NETを勉強しなきゃ……

CH3COOH — Thu, 01 May 2008 15:22:00 GMT

つい先日の事です。
「CH3COOH君、APXとかCCSとかやってみない？勉強会を催してくれたら嬉しい」と、偉い人に言われました。

CCSって……カードキャプターさくら？しかも、勉強会って。ニーソについての議論で盛り上がる事はあるけれど、CCSの勉強会って何をすりゃいいんだろう。オタクが与えた経済効果について語れば良いのか、マーケティングについて語れば良いのか、それとも……

頭の中は疑問符だらけです。軽くパニックです。

……あ。CSSの間違いだ。APXはASPか。
そんだこんだで秋頃までにASP.NETをマスターする必要が出てきました。

さてと、何を作ろうかな。

[Web]2008年02月度ページビュー

CH3COOH — Mon, 10 Mar 2008 23:07:00 GMT

こうして一覧でみると技術系タグよか日常タグの方が多い。
今月はもうちょっと頑張ってみます……(´･ω･`)

2008/02/01	1,106	[日常]プログラマっぽくない？ [日常]「おにいちゃんCD」を発見！
2008/02/02	234	-
2008/02/03	252	-
2008/02/04	471	[開発状況]きんきょう
2008/02/05	1,231	[日常]友達が転職しました [開発状況][C#]MarketSpeedの自動ログイン機能を作ってみた
2008/02/06	1,076	[日常]フィットネスクラブに行きたいな……
2008/02/07	934	[日常]フィットネスクラブに行くことにしました！
2008/02/08	902	[マネジメント]「ニアショア」をご存知でしょうか？ [日常]ええい、連邦のノーブランドメモリは化け物か！？
2008/02/09	379	-
2008/02/10	278	-
2008/02/11	519	[日常]大阪電気通信大学の「なわてん」
2008/02/12	747	-
2008/02/13	1,054	[日常]なんかリーダをすることになりました。
2008/02/14	578	-
2008/02/15	513	-
2008/02/16	603	[日常]今日は「わんくま同盟大阪勉強会 #16」ですよ [日常]フィットネスクラブに行ってきた
2008/02/17	451	[日常]今日は「わんくま同盟大阪勉強会 #16」でした
2008/02/18	530	-
2008/02/19	436	-
2008/02/20	946	[日常]Googleからの手紙 [日常]Microsoft，大学生と高校生に開発／設計ツールを無償提供へ [BREW]エミュレータでスモールフォントを使う方法(BREW4.0対応版)
2008/02/21	775	-
2008/02/22	628	-
2008/02/23	463	[日常]Microsoft DreamSparkは大学生と高校生全てが対象という訳では無い
2008/02/24	307	-
2008/02/25	799	[日常]居酒屋にて
2008/02/26	924	[日常]東のアキバ、西のポンバシ
2008/02/27	998	[日常]いや、だからこそ今HD-DVDレコーダを買う！！
2008/02/28	994	[開発状況]近況……何も進んでいません(´･ω･`)ﾉｼ
2008/02/29	970	[日常]ニーソックス
合計PV	20,098	-