Bağlantı Hatasını Tesbit Edip Tekrar Bağlanabilme

Firebird ve Interbase veritabanları ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
ertemsoft
Üye
Mesajlar: 129
Kayıt: 19 Nis 2005 01:22
İletişim:

Bağlantı Hatasını Tesbit Edip Tekrar Bağlanabilme

Mesaj gönderen ertemsoft »

mrb arkadaşlar

Anaformun OnCreate Eventinda aşağıdaki gibi database bağlanıyorum
ancak bağlanacağım server kapalı ise "tekrardene" label ına yönlendirip bağlantı
yapmayı tekrar deniyorum ancak Server açık olduğu halde bağlanmıyor
konu hakkında tecrübesi olan arkadaşlardan yardım rica ediyorum.

procedure Tanaformf.FormCreate(Sender: TObject);
Label tekrardene;
begin

tekrardene :

Try
dbm.dbertemsoft.Connected:=false;
dbm.IBDatabaseINI1.ReadFromINI;
dbm.IBDatabaseINI1.WriteToDatabase(dbm.dbertemsoft);
dbm.dbertemsoft.Connected:=true;
Except
hsw:=1;
end;

if hsw=1 then
begin
dbm.dbertemsoft.Connected:=false;
sleep(30000);
goto tekrar;
end;

end;
Bilgi Paylaştıkça Çoğalır

Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7524
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

En kolayı adım adım çalıştırıp, debug ederek, nerde takıldığını görmek.

Kolay gelsin.

Cevapla