Alterar Alias do BDE via delphi
Estou com a seguinte necessidade.
Tenho um programa que ainda esta no paradox e preciso em tempo de execusao alterar o Path de um ALIAS paradox do BDE.
Como faço isso.
Desde já agradeço
Adriano Silva
Curtidas 0
Respostas
Wesley Yamazack
02/03/2010
Olá amigo, vou fazer um exemplo e logo retornarei.
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0
Wesley Yamazack
02/03/2010
Olá amigo,
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
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
Adriano Silva
02/03/2010
Então, não é exatamente isso que eu preciso...eu preciso alterar o alias "fisicamente" ou seja...a alteracao do alias no BDE deve ficar gravada no aquivo de configuracao. Isso eu nao to conseguindo fazer nem a pau.
GOSTEI 0
Wesley Yamazack
02/03/2010
Olá amigo, estou procurando uma forma de fazer aqui a mudança do path, peço que aguarde um pouco
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0
Wesley Yamazack
02/03/2010
Olá amigo, consegui fazer aqui uma forma de criar um determinado alias
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
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
Wesley Yamazack
02/03/2010
Olá amigo , fechamos o chamado por falta de retorno, se existir alguma
dúvida reabrimos o mesmo.
Att,
Wesley Y
Att,
Wesley Y
GOSTEI 0