「第5回 占いプログラムでレイアウトをマスター」で作った血液型占いを友達に送ったんです。最初は面白がってくれたけど、ラッキーアイテムが限られていて、すぐに飽きられちゃいました。ラッキーアイテムを変更したり、ラッキーアイテムだけじゃなくて、ラッキーナンバーを表示したりするにはどうしたらいいのかな？教えて、高橋先生！

よーし、インストールにはだいぶ慣れてきたから、きっと大丈夫よ。まずは、WindowsのCD-ROMをドライブにセットしてっと。インストール用の画面が表示されますが、今回はコントロールパネルから設定する方法を紹介しますので、閉じてしまいます。スタートメニューから[コントロールパネル(C)]を選択します。

Hide image

図05 コントロールパネル

一覧から、「プログラムの追加と削除」を選択します。画面の左側から[Windowsコンポーネントーの追加と削除(A)]をクリックします。

Hide image

図06 プログラムの追加と削除

次に表示されるコンポーネントウィザードでは、追加する機能をクリックして選ぶことができます。

Hide image

図07 コンポーネントウィザード

一覧から「インターネット インフォメーション サービス(IIS)」をクリックして「レ点」をつけます。確認して、[次へ(N)]ボタンをクリックします。

Hide image

図08 コンポーネントウィザードの完了

しばらくすると画面が切り替わって、コンポーネントウィザードが完了します。完了の画面が表示できたら[完了]ボタンをクリックします。これで、インストールは終わりです。CD-ROMを取り出してかまいません。

それじゃあ、IIS管理用のツールを起動してみます。まず、スタートメニューから[コントロールパネル(C)]をクリックします。コントロールパネルが表示されたら「管理ツール」アイコンをダブルクリックします。

Hide image

図09 管理ツール

一覧に「インターネット インフォメーション サービス」があることを確認します。表示されていなければ、インストールがうまくできなかったかもしれません。もう一度インストールしなおしてみてください。

IISを起動するたびに、ここまでの操作をするのが面倒な場合は、デスクトップにショートカットを作っておきます。シートカットを作るには、はじめにデスクトップの一部が表示できるように、ほかのウインドウを移動しておきます。次にマウスの右ボタンを使って、管理ツールから「インターネット インフォメーション サービス」をデスクトップが表示されている部分に、ドラッグします。表示されるメニューから[ショートカットをここに作成(S)]をクリックします。

作成したショートカットか、管理ツールから「インターネット インフォメーション サービス」のアイコンをダブルクリックします。なんだか、ファイル管理ツールみたいな画面ですね。

起動が確認できたら、IISの機能を止めておきます。画面の左側はフォルダの名称です。「インターネット インフォメーション サービス」の下に、ネットワーク上のコンピューターの名前と「(ローカルコンピュータ)」が表示されています。先頭の「+」マークをクリックすると、「Webサイト」、さらに「+」マークをクリックすると、「既定のWebサイト」が表示されます。「既定のWebサイト」を選択して、ツールバーの[項目の停止](■)ボタンをクリックします。

Hide image

図10 インターネットインフォメーションサービス

これでこのパソコンはインターネット上に公開しなくなりました。

あー、これでほっとしました。次はいよいよプログラミングですね。でも、何から手をつけていいやら。

それでは、Turbo Delphiを起動して、プロジェクトを新規で作成します。起動できたら、メニューバーの「ファイル(F)|新規作成(N)|その他(O)...」を選択します。画面左側の「項目カテゴリ(A):」欄で、「Delphiプロジェクト」の[+]をクリックして展開します。一覧から「WebServices」をクリックして、右側に表示されるアイコンから「SOAPサーバーアプリケーション」を選択します。設定によっては表示されるアイコンの数が異なるかもしれません。

Hide image

図11 オブジェクトリポジトリ

選択を確認して、[OK]ボタンをクリックします。そうすると「WWWサーバーアプリケーションの形式を以下から選んでください」というメッセージが表示されます。一覧から「CGI実行形式(C)」を選択して、[OK]ボタンをクリックします。

Hide image

図12 SOAPサーバーの新規作成

プロジェクトが作成できたら、「SOAPモジュールのためのインターフェースを作成しますか?」というメッセージが表示されますので、[はい(Y)]ボタンをクリックします。

Hide image

図13 インターフェースを作成しますか？

今度は「Webサービスの新規追加」の画面が表示されます。ここでは、「サービス名(N)」に「Uranai」、「ユニット名(U)」にも「Uranai」、「サンプルメソッドの生成(S)」をクリックしてチェックをつけます。

Hide image

図14 Webサービスの新規作成

入力できたら、[OK]ボタンをクリックします。すると、コードエディタに画面が切り替わって、コメントの入ったコードがいくつか表示されます。画面右上のプロジェクトマネージャには通常の「Project1.exe」や、「Unit1.pas」のほかに「UranaiImpl.pas」や「UranaiIntf.pas」ファイルが作成されます。自動的に作成されるプロジェクト名や、ユニット名の末尾の数字は、「Project2」や「Unit3」のように異なっていてもかまわないんですって。

Hide image

図15 プロジェクトマネージャ

できたら名前をつけて保存しましょう。ツールバーの[すべて保存]ボタンをクリックします。「UranaiIntf.pas」と「UranaiImpl.pas」はそのまま、Unit1のユニット名は「UranaiServerUnit」、プロジェクト名は「UranaiServer」とします。

なんだか、いっぱいファイルができましたね。これってどんなユニットなんだろう？

function getUranaiMessage(Blood: Integer): string; stdcall;

では、先にUranaiIntfユニットの関数の定義から設定します。プロジェクトマネージャで「UranaiIntf.pas」をダブルクリックして、表示されたコードエディタでType節を探します。見つかったら、「echoDouble」関数と「end;」の間に空白行を挿入して、太字部分を追加します。

type

  TEnumTest = (etNone, etAFew, etSome, etAlot);

  TDoubleArray = array of Double;
  (中略)
    function echoEnum(const Value: TEnumTest): TEnumTest; stdcall;
    function echoDoubleArray(const Value: TDoubleArray): TDoubleArray; stdcall;
    function echoMyEmployee(const Value: TMyEmployee): TMyEmployee; stdcall;
    function echoDouble(const Value: Double): Double; stdcall;
    function getUranaiMessage(Blood: Integer): string; stdcall;
  end;

入力できたら、今度はUranaiImplユニットの関数を定義します。プロジェクトマネージャで「UranaiImpl.pas」をダブルクリックします。コードエディタのType節の「echoDouble」関数と「end;」の間に空白行を挿入して、太字部分を追加します。

type

  { TUranai }
  TUranai = class(TInvokableClass, IUranai)
  public
    function echoEnum(const Value: TEnumTest): TEnumTest; stdcall;
    function echoDoubleArray(const Value: TDoubleArray): TDoubleArray; stdcall;
    function echoMyEmployee(const Value: TMyEmployee): TMyEmployee; stdcall;
    function echoDouble(const Value: Double): Double; stdcall;
    function getUranaiMessage(Blood: Integer): string; stdcall;
  end;

UranaiImplユニットには、そのまま実装部も記述します。実装部を作成するためのショートカットキーがあるんですって。新しく作成した「getUranaiMessage」の行末にカーソルを移動して、「Ctrl+Shift+C」を押します。そうすると以下のようなコードが自動的に作成されます。設定によっては表示されないかもしれません。その場合はそれぞれ入力して作成します。

function TUranai.getUranaiMessage(Blood: Integer): string;
begin

end;

関数の外枠が作成できたら、中身は、第5回で作成した占いの処理をコピーしてきます。えーっと、占いプログラムは何処に保存したんだっけ？

Windowsの「マイ コンピューター」か「エクスプローラー」を起動して占いプログラムのコードが入ったファイル「FormFortune.pas」ファイルを探します。特に保存先を指定していない場合は、「My Documents」の「Borland Studio Projects」フォルダに入っています。見つかったらマウスの右ボタンでクリックして、サブメニューから[プログラムから開く(H)|Notepad]を選択します。

Hide image

図16 メモ帳で開く

コピーするのは「ShowItem」の関数の部分のvar節から「ShowMessage」の部分までです。太字部分をコピーします。

procedure ShowItem(Blood : Integer);
var
  Blood_Type : string;
  Lucky_No : Integer;
  Lucky_Item : string;
begin
  case Blood of
    1 : Blood_Type := 'A型';
    2 : Blood_Type := 'B型';
    3 : Blood_Type := 'O型';
    4 : Blood_Type := 'AB型';
  end;

  Lucky_No := Random(5);
  case Lucky_No of
    0 : Lucky_Item := '携帯電話';
    1 : Lucky_Item := '手紙';
    2 : Lucky_Item := '鍵';
    3 : Lucky_Item := 'デジカメ';
    4 : Lucky_Item := 'チョコレート♪';
  end;

  ShowMessage(Blood_Type + 'のあなた、ラッキーアイテムは' + Lucky_Item);
end;

コピーできたら、Turbo Delphiの画面に戻ります。UranaiImplユニットに作成したgetUranaiMessage関数にコピーした内容を貼り付けます。「begin」が重複しているかもしれません。削除し忘れないように気をつけなくっちゃ。最後の1行の「ShowMessage」のパラメータの内容を「Result」変数に代入するように書き換えます。太字部分を参考にして入力します。

function TUranai.getUranaiMessage(Blood: Integer): string;
begin  //削除する
var
  Blood_Type : string;
  Lucky_No : Integer;
  Lucky_Item : string;
begin
  case Blood of
    1 : Blood_Type := 'A型';
    2 : Blood_Type := 'B型';
    3 : Blood_Type := 'O型';
    4 : Blood_Type := 'AB型';
  end;

  Lucky_No := Random(5);
  case Lucky_No of
    0 : Lucky_Item := '携帯電話';
    1 : Lucky_Item := '手紙';
    2 : Lucky_Item := '鍵';
    3 : Lucky_Item := 'デジカメ';
    4 : Lucky_Item := 'チョコレート♪';
  end;

  Result := Blood_Type + 'のあなた、ラッキーアイテムは' + Lucky_Item;
end;

これで完成！うまく貼り付けられたらメモ帳は保存しないで終了します。なんだか、よくわからないうちにできちゃいましたね。保存して実行してみます。ツールバーの[すべて保存]ボタンをクリックして保存できたら［実行］ボタンで実行します。コンパイルも通ったし、これで動くのね。あれ？元のコードエディタに戻っちゃいました。エラーとか出なかったのにぃ＠＠。教えて、高橋先生！