firebird ağda paylaşım sorunu

[bilbeyi]

selam arkadaşlar.
Program database'in yolunu text dosyasan okuyor. Dün hiç bir sorunum yoktu ancak bugün sorunla karşılaştım.
client ve server aynı anda çalışmaya başlayınca son açan tarafta ' Bu dosya kullanılıyor' şeklinde hata mesajı alıyorum.
dünden bu yana makinaların ayarlarında her hangi birdeğişiklik yapmadım ama ne değişmiş olabilir.

Yardımcı olabilirseniz sevinirim.

Saygılarmla...

[bilbeyi]

firebird serverı ilk kurduğumda sorunsuz çalışıyor makinayı resstart ettiğimde sorun yine oluyor. sorun nerede anlayamadım.

[Salih]

Selamlar,

Aklıma şunlar geliyor ama :...
1- Acaba Text dosyayı okuduktan sonra kapatmıyor musun ?
2- Delphideki Database bileşeni Connected durumda kalmış olabilir mi ?

Aynı amaç için benim kullandığım procedure u yazayım, belki yardımı olur :

Kod: Tümünü seç

procedure TUserForm.FormShow(Sender: TObject);
var
  dosya: TextFile ;
  yol: string;
  say : smallint;
begin
// Database açıksa,  önce kapatmamız lazım
  if SDM.MDODatabase1.Connected then SDM.MDODatabase1.Close;
  AssignFile(dosya,'Data.PTH');
  {$I-}
  Reset(dosya);
  {$I+}
  if IOResult = 0 then
  begin
    ReadLn(dosya,yol);
    CloseFile(dosya);
    Try
      SDM.MDODatabase1.DatabaseName :=yol;
      SDM.MDODatabase1.Connected := True;
      Label2.Caption :=SDM.MDODatabase1.DatabaseName;
    Except
      On exception do raise;
    end;
  end
  else
  begin
    MessageDlg('Data.pth dosyası bulunamadı.Program kapatılacak', mtWarning, [mbOk], 0);
    Application.Terminate;
  end;
end;