Alias Pathı

[vedatkaba]

Herkese merhaba,, Cumanız mubarek olsun arkadaşlar..

Benim sorum şöyle,, kodla aliasın yolunu nasıl kendimiz verebiliriz.

ben bir yol buldum ama burdaki mantığı anlamadım daha kısa yolu vardır herhalde.

Kod: Tümünü seç

procedure createalias(aliasname, servername, servertype, filename:string);
var
 List: TStringList;
 lang,
 user,
 pdox : string;
begin
  lang:='ANTURK';
  user:='SYSDBA';
  pdox:='PARADOX';
  List := TStringList.Create;
  with List do
  begin
    Clear;
    if servertype='INTRBASE' then
    begin
      Add(Format('SERVER NAME=%s',[filename]));
      Add(Format('LANGDRIVER=%s',[lang]));
      Add(Format('USER NAME=%s',[user]));
    end;
    if servertype='STANDART' then
    begin
      Add(Format('DEFAULT DRIVER=%s',[pdox]));
      Add(Format('PATH=%s',[filename]));
    end;
  end;
  if session.isalias(aliasname) then
    Session.ModifyAlias(aliasname, List)
  else
    Session.addAlias(aliasname,servertype, List);
  Session.SaveConfigFile;
  List.Free;
end;

burda sıfırdan alias oluşturmuş ben olan bir aliasın pathnı programdan kendim atıyacamğım.

[vedatkaba]

sorun halloldu arkadaşlar kod örneğine göre birşeyler yapmıştım çalışmıyordu hatayı düzelttim.galiba bendeki BDE sorunlu her çalıştırdığımda .dll hatası veriyor.

son hali ;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
filename:string;
list:Tstringlist;
begin
filename:=extractfilepath(application.ExeName)+'data';
list:=Tstringlist.Create;
with list do
begin
clear;
add(format('PATH=%S',[filename]));
end;
if session.IsAlias(aliasadı) then
session.modifyalias(aliasadı,list)
else
       {eğer yeniden alias oluşturuluyorsa şu kod yazılabilir}
       (session.addalias(aliasadı,servertype,list);)
session.SaveConfigFile;
list.Free;
table1.TableName:='adi';
database1.DatabaseName:='data';database1.Connected:=true;
table1.Active:=true;
end;
end.