ActiveDelphi

[juliorondon]

Como devo fazer em meu projetos para que quando o cliente for instalar o Sistema, ele já cria o caminho do alias, seja em paradox ou interbase?Trabalho com delphi 7.
Obrigado
Julio Rondon

[Camilo]

No Paradox utilize.....

no evento onCreate do Form digite

var
AParams: TStringList;
Dir : String;
begin
AParams := TStringList.Create;
try
Session.GetAliasParams(\'Seu Alias\',AParams);
Dir := copy(AParams.Strings[0],6,255);
Dir := Copy(Dir,1,Length(Dir)-2)+Copy(Edit1.Text,3,2);
AParams.Clear;
AParams.Add(\'PATH=\'+Dir);
Session.ModifyAlias(\'Seu Alias\',AParams);
Session.SaveConfigFile;
finally
AParams.Free;
end;
end;
_________________
<marquee>Porque não ajudar ????<marquee>

[juliorondon]

Devo colocar somente o nome do alias e não o caminho?

[juliorondon]

Fiz um teste, mas está dando erro:
Mensagem:
[Error] FPrincipal.pas(407): Undeclared identifier: \'Edit1\'
Nessa linha:
Dir := Copy(Dir,1,Length(Dir)-2)+Copy(Edit1.Text,3,2);

[Camilo]

desculpe, pensei que voce fosse indicar o path atraves de um Edit, coloque um edit no seu form, com o valor inical do caminho !!!
_________________
<marquee>Porque não ajudar ????<marquee>

[juliorondon]

coloquei o edit e deu a seguinte mensagem:
Projeto Estoque.exe levantado EDBEngineError DE classe de exceção com mensagem
\'Não Podia encontrar objeto\'
Abaixo o código:

Na seguinte linha:
procedure TF_Principal.FormCreate(Sender: TObject);
var
AParams: TStringList;
Dir : String;
begin
AParams := TStringList.Create;
try
Session.GetAliasParams(\'Estoq\',AParams);
Dir := copy(AParams.Strings[0],6,255); [b] (nessa linha esta o erro)[/b]
Dir := Copy(Dir,1,Length(Dir)-2)+Copy(Edit1.Text,3,2);
AParams.Clear;
AParams.Add(\'PATH=\'+Dir);
Session.ModifyAlias(\'Estoq\',AParams);
Session.SaveConfigFile;
finally
AParams.Free;
end;

O valor inicial do edit1 deve estar no propriedade Text.
Se for ele esta assim: C:\\CpuEstoque\\Dados

[Camilo]

desculpe novamente esta função serve para trocar o alias, supondo o alias ja existe e seja Estoq e o caminho C:\\CpuEstoque\\Dados\\DB04 (Ano 2004) . ai você coloca no edit 2005 e o seu novo caminho sera C:\\CpuEstoque\\Dados\\DB05 (Ano 2005) entendeu ???

para criar o alias use ESTE E PARA interbase..

var

MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add(\'SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB\');
Add(\'USER NAME=MYNAME\');
end;
Session1.AddAlias(\'NewIBAlias\', \'INTRBASE\', MyList);
finally
MyList.Free;
end;
end;

[Editado em 20/10/2004 por Camilo]
_________________
<marquee>Porque não ajudar ????<marquee>

[Camilo]

Agora Vai ... desta forma você não precisa colocar edit nenhum, e o alias não deve existir.

var
AParams: TStringList;
begin
AParams := TStringList.Create;
try
AParams.Add(\'PATH=\'+\'C:\\CpuEstoque\\Dados\'));
Session.AddAlias(\'Estoq\',\'PARADOX\',AParams);
Session.SaveConfigFile;
finally
AParams.Free;
end;
end;

_________________
<marquee>Porque não ajudar ????<marquee>

[juliorondon]

Caro Camilo para o Paradox deu OK.Mas para o Iterbase deu erro;

mensagem de erro:
[Error] fPrincipal.pas(265): Undeclared identifier: \'Session1\'
[Error] fPrincipal.pas(279): \'.\' expected but \';\' found
[Fatal Error] CpuHotel.dpr(36): Could not compile used unit \'fPrincipal.pas\'

O código esta da seguinte forma:
procedure TF_Principal.FormCreate(Sender: TObject);
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add(\'SERVER NAME=IB_SERVER:/C:/CPU/cpuhotel/CpuHotel.gdb\');
Add(\'USER NAME=cpuhotel\');
end;
Session1.AddAlias(\'NewIBAlias\', \'INTRBASE\', MyList); [b] ( Erro esta aqui[/b])
finally
MyList.Free;
end;
end;
var
senha: string[6];
begin
senha:=inputbox(\'Código\',\'Digite a Senha de Acesso\',\'\');
if (senha<>\'ADM\')and(senha<>\'adm\') then
begin {no lugar de Master digite sua senha}
SHOWMESSAGE(\'SENHA INCORRETA\');
halt;
end;
end;

[Robertmc]

Se vc usa um acesso a BD via BDE, deixe a conexão dentro do sistema apaenas com o alias, nada de path. Crie un nome padrao de alias! Pronto crie o nome BDE, o install shield faz isso pra vc!
_________________
Robert Martins de Carvalho
Analista de Sistemas Pleno

[Camilo]

Tente apenas session ?
_________________
<marquee>Porque não ajudar ????<marquee>

[juliorondon]

:casstet:
Já tentei e continua dando o mesmo erro.Não teria que declarar o session em algum lugar?
Grato
Julio Rondon

[johnny-walker]

Amigo eis aih...

[johnny-walker]

Usando a unit DBTables vc nem precisa do componente amigo... vc poderia tb usar a api do BDE para criar o alias tb...




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I