pdoxusrs.lck ile başım dertte

[akipek]

paradox için mevcut makalelerdeki herşeyi yaptım.

ana makinada programın bir raporunu çalıştırdığımda *.lck dosyaları f:\data\2006har klasorunun içinde olusuyor. ve rapordan çıkınca siliniyor.
rapor ekrandayken (dbgrid) başka bir pc db ye bağlanmaya çalıştığında meşhur hatayı alıyorum bu .lck ve .net dosyalarını nasıl sorunsuz çalıştırabilirm.

[rsimsek]

Çalışan program normal şekilde kapanıyor/sonlanıyorsa .lck dosyasının burada bir kabahatı olamaz. Belki de programdaki Table bileşenlerinde Exlusive True demişsindir Malum BDE için Table ve/veya Database bileşeninin Exlusive özelliği True demek özel/tek kullanıcılı çalışmak içindir. False olunca birden fazla kullanıcı VT veya tabloya erişebilir

[akipek]

yok exclusive false
sonlanmada problem yok.
f:\data daki table grid ile goruntulenirken kesinlikle boş bir formda bile open yapamıyorum.

[akipek]

acaba ben bu dosyaları table.before open da lck ları silsem olurmu ?

[akipek]

saolasin hocam buldum problemi tesaduf eseri. Afedersiniz programı yazan eleman net diri program içine koymuş

[rsimsek]

Zaten NetDir in

Kod: Tümünü seç

procedure TDM.DMCreate(Sender: TObject);
var
  tc: int64;
  Buf : array[0..256] of char;
  T : TSearchRec;
  i: integer;
  AppDir: string;
begin
  Screen.Cursor := crHourglass;
  AppDir := ExtractFilePath(Application.ExeName);

  Database1.Connected := False;
  Database1.Params.Clear;
  Database1.Params.Add('PATH=' + AppDir);

  if Session.Active then
    Session.Close;
  Session.NetFileDir := AppDir; //ExtractFilePath(Application.ExeName);
  GetTempPath(255, Buf);
  Session.PrivateDir := Buf;

  try
    Database1.Connected := True;
  except
    ShowMessage('Veritabanı açılamıyor');
    Application.Terminate;
  end;

// tabloların açılması..

end;

şeklinde tanımlanmasında fayda var..

[prolcay]

Kod: Tümünü seç

 const
  FDbDriver = 'PARADOX';
  SubDir = 'Data';
var
Buf : array[0..256] of char;
  FAlias: string;
  FAliasDir: string;
  appdir:string;
begin
    if Session.Active then  Session.Close;
    FAlias := 'medi';
     AppDir := ExtractFilePath(Application.ExeName);
    Session.ConfigMode := cmPersistent;
    FAliasDir :=DirectoryListBox1.Directory; //ExtractFilePath(ParamStr(0)) + SubDir;
    Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver);
    

  Session.NetFileDir := DirectoryListBox1.Directory;//AppDir;
  GetTempPath(255, Buf);
  Session.PrivateDir := Buf;
  Session.SaveConfigFile; 

hocam biliyorum eski bi konu ama projem yarım kaldı herşeyide bunu üzeirne kurdum aslında eskiden böyle probrllememler olmuyodu ama
herşey tamam ama net dir i bi ttürlü değiştiremiyorum.
sizin verdiğiniz kodun üzeridne oyandım biraz alias tamam program çalışıyo ama bi türlü olmuyo net diri değiştiremiyorum bu kodla
bide local share tru yaptığım zaman belli bi süre sonra invalid parameter diye bi hata beriyo onu false yaptım ama vu net dir beni yiyip bitiecek.

lütfen yardım!