Criar aliás na mão

Delphi

15/03/2005

[size=18:0a9f4f99a3]Pessoal, estou precisando criar um Aliás via código....


Alguém sabe como?


Obrigado.[/size:0a9f4f99a3]


Engcomp

Engcomp

Curtidas 0

Respostas

Faelcavalcanti

Faelcavalcanti

15/03/2005

tenta o seguinte e Inclua na seção uses [b:0659f6f96f]DB[/b:0659f6f96f]:

// se o alias não existir...  
if not Session.IsAlias(´MeuAlias´) then begin 
  // Adiciona o alias  
  Session.AddStandardAlias(´MeuAlias´, ´C:\DirProg´, ´PARADOX´); 
  // Salva o arquivo de configuração do BDE  
  Session.SaveConfigFile; 
end;


Para criar um alias do dBase troque a string ´PARADOX´ por ´DBASE´. No caso acima usei como path o caminho ´C:\DirProg´, mas se você quiser poderá trocar este caminho por ExtractFilePath(ParamStr(0)) para que o alias seja direcionado para o local desejado.

:idea:
Espero ter ajudado!


GOSTEI 0
Rômulo Barros

Rômulo Barros

15/03/2005

tenta o seguinte e Inclua na seção uses [b:9a2165ebd1]DB[/b:9a2165ebd1]: 
// se o alias não existir...  
if not Session.IsAlias(´MeuAlias´) then begin 
  // Adiciona o alias  
  Session.AddStandardAlias(´MeuAlias´, ´C:\DirProg´, ´PARADOX´); 
  // Salva o arquivo de configuração do BDE  
  Session.SaveConfigFile; 
end;
Para criar um alias do dBase troque a string ´PARADOX´ por ´DBASE´. No caso acima usei como path o caminho ´C:\DirProg´, mas se você quiser poderá trocar este caminho por ExtractFilePath(ParamStr(0)) para que o alias seja direcionado para o local desejado. :idea: Espero ter ajudado!


:lol: [b:9a2165ebd1]O velho e bom programinha[/b:9a2165ebd1] ´[color=red:9a2165ebd1][u:9a2165ebd1][b:9a2165ebd1]Deephi[/b:9a2165ebd1][/u:9a2165ebd1][/color:9a2165ebd1]´


GOSTEI 0
Faelcavalcanti

Faelcavalcanti

15/03/2005

[quote:72cf114555=´Undeclared Identifier´]
:lol: [b:72cf114555]O velho e bom programinha[/b:72cf114555] ´[color=red:72cf114555][u:72cf114555][b:72cf114555]Deephi[/b:72cf114555][/u:72cf114555][/color:72cf114555]´[/quote:72cf114555]

:lol:
Ou seria eu ou você no tal do Ctrl+c e Ctrl+v. O ruim é que eu fui descoberto por você. Hehehehehe. Mas a intenção valeu!!!!


GOSTEI 0
Rômulo Barros

Rômulo Barros

15/03/2005

[quote:984e6bd264=´Undeclared Identifier´] :lol: [b:984e6bd264]O velho e bom programinha[/b:984e6bd264] ´[color=red:984e6bd264][u:984e6bd264][b:984e6bd264]Deephi[/b:984e6bd264][/u:984e6bd264][/color:984e6bd264]´


:lol:
Ou seria eu ou você no tal do Ctrl+c e Ctrl+v. O ruim é que eu fui descoberto por você. Hehehehehe. Mas a intenção valeu!!!![/quote:984e6bd264]

:lol: :lol: :lol: :lol:


GOSTEI 0
POSTAR