VT ye bağlanamıyorsa mesaj ver ve prg.kapat

[bobasturk]

Merhaba,

Forumda araştırdım ama beceremedim. veritabanına ağdan erişiliyor ve database veritabanı yolunu text dosyadan alıyor. Buraya kadar sorunum yok fakat kullanıcılar bilgisayarları bazen internete bağlıyorlar ve ip adreslerini ağ ip adresine döndürmeyi unutuyorlar, haliyle programı çalıştırmaya kalkınca bağlanamama sorunu oluyor. gelen hata mesajınida anlamıyorlar ve programı üstü üste çalıştırıyorlar.

Forumda bulduklarım doğrultusunda mesajı verdirdim fakat showmessage den sonra programın arka planda çalıştırmasını durduramadım. kodlarım şöyle;

Kod: Tümünü seç

procedure TSistemDM.DataModuleCreate(Sender: TObject);
var
  f:textfile;
  s:string;
  begin
  try
    assignfile(f,extractfilepath(paramstr(0))+'\datayolu.txt');
    reset(f);
    readln(f,s);
    closefile(f);
    sistemibdbase.Close;
    sistemibdbase.databasename:=s;
    sistemibdbase.Open;
  except
    showmessage('Veritabanına Bağlanamadı. Lütfen IP Adresini Kontrol Ediniz.');
    //??????????
  end;
end;

burada uyarıyı veriyor fakat program taskmanager de çalışmaya devam ediyor. Application.terminate; kodu ise hata veriyor, ne önerirsiniz.

saygı ile kolay gelsin.

[Ertugrul]

baglanti kodunuzu datamodule yerine anaformun oncreate ya da showuna yapin, except blogunda hata mesajindan sonra modalresult:=mrCancel; exit; yazin

[bobasturk]

teşekkür ederim ustam,

[bobasturk]

özür dilerim. aynı mesaj iki kere gitmiş. ertuğrul usta yardımın için teşekkürler. yönetimden de özür dilerim bağlantı sorunundan dolayı iki kere tıklayınca mesaj ikinci kere çıkmış. bu başlığı silerseniz sevinirim. zira diğer başlıkta sorunuma çare buldum.

kolay gelsin