サービスアプリケーションの作成～Delphiソースコード集

Delphiでサービスアプリケーションを作成してみます。作成したアプリはコントロールパネル⇒管理ツール⇒サービスに登録することができます。
サービスに登録すると、WindowsにログオンしなくてもPCの電源をＯｎにするだけでアプリケーションが動作します。
ただし、ウィンドウ等を表示させることはできません。今回はＷＥＢサーバー（といっても超簡易です）のWindowsサービスを作成してみます。
プログラムも10行程度しか入力しません。

Delphiを起動して新規作成を行う

Delphiを起動し、ファイル→新規作成→その他・・・をクリックします。

左ペインの「Delphi プロジェクト」を選択し、右ペインの「サービスアプリケーション」をクリックし「OK」ボタンをクリックします。

以下の表示が出た場合は「OK」をクリックします。

以下画面になります。

Unit1のタブをクリックします。

ツールパレットからTIdHTTPServerをドラッグ＆ドロップします。

プロパティのDefaultPortを8100にします。

とりあえず保存する

そろそろプログラムを記述する

IdHTTPServer1をクリックして選択し、「イベント」タブに切り替えます。
次にOnCommandGetの右側の個所をダブルクリックします。

以下ソースコードを記述します。

procedure TService1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var strm:TStringStream;
    st:string;
begin
  AResponseInfo.ContentType:='text/html; charset=UTF-8';
  st:='<html>'+
    '<head><meta charset="UTF-8"></head>'+
    '<body>リクエストに応答</body>'+
    '</html>';
  strm:=TStringStream.Create(st,TEncoding.UTF8);
  AResponseInfo.ContentStream:=strm;
end;

キーボードの「F12」キーをおして、デザインモードに切り替え、フォームの何もないところ（下図の青い矢印あたり）をクリックし、「イベント」タブに切り替えます。
次にOnExecuteの右側の個所をダブルクリックします。

以下ソースコードを記述して、保存ボタンを押しましょう。プログラムはこれで終了です。

procedure TService1.ServiceExecute(Sender: TService);
begin
  IdHTTPServer1.Active:=True;
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(True);
  end;
  IdHTTPServer1.Active:=False;
end;