SHOEISHA iD

※旧SEメンバーシップ会員の方は、同じ登録情報(メールアドレス&パスワード)でログインいただけます

CodeZine編集部では、現場で活躍するデベロッパーをスターにするためのカンファレンス「Developers Summit」や、エンジニアの生きざまをブーストするためのイベント「Developers Boost」など、さまざまなカンファレンスを企画・運営しています。

VB6プログラマのためのCurl入門(AD)

VB6プログラマのためのCurl入門
ファイルアクセスとWebアクセス

第5回

  • X ポスト
  • このエントリーをはてなブックマークに追加

Webサーバーと通信する(HTML版)

 今度は、Webサーバーと通信するプログラムをCurlで作ってみましょう。ここでは、WebサーバーとしてWindows XP Professionalに装備されているIIS(Internet Information Service)を使い、1台のマシンにWebサーバーとWebクライアントを兼務させます。

 Windows XP Professionalには、標準ではIISがインストールされていません。Windowsのコントロールパネルにある「プログラムの追加と削除」を起動し、「Windowsコンポーネントの追加と削除」のリストにある「インターネットインフォメーションサービス(IIS)」を選択してインストールしてください。なお、Webサーバーを起動したままにしておくとセキュリティ上の問題が生じる恐れがあるので、サンプルプログラムの動作を確認したらIISを停止するか、IISをアンインストールすることをお勧めします。

 Webサーバーのホームディレクトリ(C:¥Inetpub¥wwwroot)にVBScriptで記述したASPのスクリプトを置き、それをCurlプログラムと連携させます。Windowsのメモ帳(NotePad.exe)を使ってリスト3に示したスクリプトを記述し、WebサーバーのホームディレクトリにGetFruitPrice.aspというファイル名で保存してください。このスクリプトは、Webクライアントから送られたフルーツの価格を返すものです。

 フルーツの種類を示す文字列は、"リンゴ"、"ミカン"、"メロン"の3種類です。それぞれに対して、"300"、"400"、"500"という価格を文字列で返します。3種類以外の文字列が送られて来た場合は、エラーを表す"-1"という文字列を返します。

リスト3 フルーツの価格を返すVBScriptのスクリプト
<%
FruitName = Request.Form("FruitName")

If FruitName = "リンゴ" Then
    Price = "300"
ElseIf FruitName = "ミカン" Then
    Price = "400"
ElseIf FruitName = "メロン" Then
    Price = "500"
Else
    Price = "-1"
End If

Response.Write(Price)
%>

 後で紹介するCurlのプログラムと比較するために、通常のHTMLで記述されたWebページから、リスト3のスクリプトを呼び出してみましょう。Windowsのメモ帳を使ってリスト4に示したHTMLを記述し、WebサーバーのホームディレクトリにHtmlSample.htmlというファイル名で保存してください。

リスト4 リスト3のスクリプトを呼び出すHTMLファイル
<HTML>
<BODY>
<FORM ACTION="http://localhost/GetFruitPrice.asp" METHOD="POST">
フルーツの名前
<INPUT TYPE="TEXT" NAME="FruitName">
<INPUT TYPE="SUBMIT" VALUE="Webサーバーに送信">
</FORM>
</BODY>
</HTML>

 Webブラウザを起動したら、アドレス欄に「http://localhost/HtmlSample.html」と入力して[Enter]キーを押してください。図3に示したWebページが表示されたら、「フルーツの名前」欄に適当なフルーツの名前を入力して[サーバーに送信]ボタンをクリックしてください。これによってGetFruitPriceo.aspが呼び出され、図4のようにフルーツの価格が返されます。

図3 WebページからWebサーバーにフルーツの名前を送る
図3 WebページからWebサーバーにフルーツの名前を送る
図4 WebサーバーからWebブラウザにフルーツの価格が返される
図4 WebサーバーからWebブラウザにフルーツの価格が返される

次のページ
Webサーバーと通信するプログラム(Curl版)

修正履歴

この記事は参考になりましたか?

  • X ポスト
  • このエントリーをはてなブックマークに追加
VB6プログラマのためのCurl入門連載記事一覧

もっと読む

この記事の著者

矢沢久雄(ヤザワヒサオ)

パッケージソフトの開発・販売に従事するかたわら、書籍や雑誌記事の著作活動、セミナーやカンファレンスにおける講演活動も精力的にこなす自称ソフトウエア芸人です。 

※プロフィールは、執筆時点、または直近の記事の寄稿時点での内容です

【AD】本記事の内容は記事掲載開始時点のものです 企画・制作 株式会社翔泳社

この記事は参考になりましたか?

この記事をシェア

  • X ポスト
  • このエントリーをはてなブックマークに追加
CodeZine(コードジン)
https://codezine.jp/article/detail/3518 2009/02/03 15:41

おすすめ

アクセスランキング

アクセスランキング

イベント

CodeZine編集部では、現場で活躍するデベロッパーをスターにするためのカンファレンス「Developers Summit」や、エンジニアの生きざまをブーストするためのイベント「Developers Boost」など、さまざまなカンファレンスを企画・運営しています。

新規会員登録無料のご案内

  • ・全ての過去記事が閲覧できます
  • ・会員限定メルマガを受信できます

メールバックナンバー

アクセスランキング

アクセスランキング