サービスでADOの接続先を変更するには？ (ID:24387)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

原因を突き止めるには、データベースのエラーメッセージを見るのが一番です。

1.リソースエディタをインストールして、起動します。
http://www.wilsonc.demon.co.uk/d10resourceeditor.htm
2.右クリックして、MessageTableを追加します。
3.右クリックでAddStringを選択します。
4.%1と入力します。
5.もう１つエントリを作成します。3-4を繰り返します。
6.右クリックでChangeIDを選択し、0番にします。
7.resファイルをプロジェクトのディレクトリに保存します。

1.Delphi のプロジェクトファイルに{$R 名前.res}を追加します。
2.AfterInstall イベントに
var
  reg : TRegistry;
  keyName : string;
begin
  reg := TRegistry.Create (KEY_READ or KEY_WRITE);
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    keyName := 'SYSTEM\CurrentControlSet\Services\EventLog\Application\' + Service1.Name;
    if reg.OpenKey (keyName, True) then
    begin
      reg.WriteExpandString('EventMessageFile', ParamStr (0));
      reg.WriteInteger('TypesSupported', 7)
    end
  finally
    reg.Free
  end;
end;
3.AfterUnInstallイベントに
var
  reg : TRegistry;
  keyName : string;
begin
  reg := TRegistry.Create (KEY_READ or KEY_WRITE);
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    keyName := 'SYSTEM\CurrentControlSet\Services\EventLog\Application\';
    if reg.OpenKey(keyName, False) then
      reg.DeleteKey(Service1.Name);
  finally
    reg.Free
  end
end;
4.StartServiceイベントに
begin
  try
    ADOConnection1.Close;
    ADOConnection1.ConnectionString := 
    ADOConnection1.Open;
  except
    on E: exception do
    begin
      Sender.LogMessage(E.Message, EVENTLOG_WARNING_TYPE, 0, 1);
      raise;
    end;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る