Fórum Alterar Alias do BDE via delphi #16803
02/03/2010
0
Adriano Silva
Curtir tópico
+ 0Posts
03/03/2010
Wesley Yamazack
Um abraço
Wesley Y
Gostei + 0
04/03/2010
Wesley Yamazack
Para resolver teu problema, você pode criar no BDE Adminsitrador, os dois alias que deseja, e em tempo de execução trocar os parametros da DataBase1 da seguinte forma
Database1.Params[0] :='C:\Program Files\Common Files\CodeGear Shared\Data'; //INforme aqui os dados do novo //alias
Database1.Params[1] :='PARADOX';
Database1.Params[2] :='FALSE';
Database1.Connected;
Seria esta tua dúvida ?
Um abraço
Wesley Y
Gostei + 0
08/03/2010
Adriano Silva
Gostei + 0
09/03/2010
Wesley Yamazack
Um abraço
Wesley Y
Gostei + 0
09/03/2010
Wesley Yamazack
procedure AliasCreate2(AliasName, caminho: String);
begin
with session do
begin
if IsAlias(AliasName) then
begin
DeleteAlias(AliasName);
SaveConfigFile;
end;
AddStandardAlias(AliasName, caminho, 'PARADOX');
SaveConfigFile;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
AliasCreate2('DevMedia', 'C:\Program Files\Common Files\CodeGear Shared\Data')
end;
Veja se isso consegue te ajudar em alguma coisa, estou procurando como alterar o caminho.
Um abraço
Wesley Y
Gostei + 0
18/03/2010
Wesley Yamazack
Att,
Wesley Y
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)