firebird'ün start stop durumunu öğrenme

[bilbeyi]

selam arkadaşlar.

Yaptığım ufak bir proje windows açışında direkt çalışıyor. Ancak program firebird server başlamadan çalıştığı için normal olarak hata alıyorum.
Öğrenmek istediğim firebird serverın o an çalışıp çalışmadığıdır.

kolay gelsin

[true_false]

başlat- ayarlar -denetim masası-yönetimsel araçlar-hizmetler
firebird guardian
firebird server

[bilbeyi]

bu bilgileri programın oncreate olayında delphi içinden öğrenmem gerekiyor

[mucit]

Merhaba,
Bunun için aşağıdaki gibi FindWindow fonksiyonunu kullanabilirsin.

Kod: Tümünü seç

Function TForm1.ServerRunning: Boolean;
begin
 Result:= (FindWindow('FB_Server', 'Firebird Server') <> 0);
end;

Kolay gelsin..

[rsimsek]

yada

Kod: Tümünü seç

  try
    IBDatabase1.Open;
  except
    showmessage('Bağlantı sağlanamadı!');
   Halt; // Application.Terminate;
  end;

ile bağlantı kurulamazsa programı sonlandırabilirsin.

[lazio]

viewtopic.php?t=3955&highlight=