alias em tempo de execução, por favor ????
06/03/2003
0
Prezado Colega,
Peço a sua ajuda para um problema que está me tirando do sério. Tenho uma Aplicação, onde estou querendo criar um alias via programação, inclusive eu já fiz um exemplo e deu certo, só que quando coloco a rotina no meu sistema dá um erro porque ele inicia o Splash screen antes de executar o formulário principal, no qual encontra-se a rotina.
Rotina:
procedure TPrincipal.FormCreate(Sender: TObject);
begin
{ se o alias não existir... }
if not Session.IsAlias(´Sisescola´) then
begin
{ Adiciona o alias }
Session.AddStandardAlias(´Sisescola´, ´C:\SISESCOLA´, ´PARADOX´);
{ Salva o arquivo de configuração do BDE }
Session.SaveConfigFile;
End;
End;
procedure TForm1.FormShow(Sender: TObject);
begin
if Database1.Connected = false then Database1.Connected := true;
if table1.Active = false then table1.active := true;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Gostaria de chamar um form para que pudesse buscar o diretório onde está minha aplicação, tipo :
Frm_procalias := Frm_procalias.create(self);
Frm_procalias.show;
Só que também não está dando certo, antes de aparecer o form dá um erro.
Obs.: se o teste for feito só com um form, dá certo.
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Peço a sua ajuda para um problema que está me tirando do sério. Tenho uma Aplicação, onde estou querendo criar um alias via programação, inclusive eu já fiz um exemplo e deu certo, só que quando coloco a rotina no meu sistema dá um erro porque ele inicia o Splash screen antes de executar o formulário principal, no qual encontra-se a rotina.
Rotina:
procedure TPrincipal.FormCreate(Sender: TObject);
begin
{ se o alias não existir... }
if not Session.IsAlias(´Sisescola´) then
begin
{ Adiciona o alias }
Session.AddStandardAlias(´Sisescola´, ´C:\SISESCOLA´, ´PARADOX´);
{ Salva o arquivo de configuração do BDE }
Session.SaveConfigFile;
End;
End;
procedure TForm1.FormShow(Sender: TObject);
begin
if Database1.Connected = false then Database1.Connected := true;
if table1.Active = false then table1.active := true;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Gostaria de chamar um form para que pudesse buscar o diretório onde está minha aplicação, tipo :
Frm_procalias := Frm_procalias.create(self);
Frm_procalias.show;
Só que também não está dando certo, antes de aparecer o form dá um erro.
Obs.: se o teste for feito só com um form, dá certo.
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Maranhao
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Marcelo Saviski
[color=blue:0cc58b6ac6]PELO QUE ENTENDI VOCÊ TEM DUAS DÚVIDAS[/color:0cc58b6ac6]
Por acaso oque você quer fazer é criar um novo Frm_procalias
Se for isso , declare uma variavel como TFrm_procalias, e faça
[color=green:0cc58b6ac6][b:0cc58b6ac6]E para buscar o diretorio onde está a sua aplicação use application.exe[/b:0cc58b6ac6][/color:0cc58b6ac6]
[img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cry.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:0cc58b
Por acaso oque você quer fazer é criar um novo Frm_procalias
Se for isso , declare uma variavel como TFrm_procalias, e faça
variavel := TFrm_procalias.create(self);
[color=green:0cc58b6ac6][b:0cc58b6ac6]E para buscar o diretorio onde está a sua aplicação use application.exe[/b:0cc58b6ac6][/color:0cc58b6ac6]
[img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cry.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:0cc58b
Responder
06/03/2003
Marcelo Saviski
6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:0cc58b6ac6][img:0cc58b6ac6]http://www.apriori.com.br/cgi/forum/images/smiles/icon_wink.gif[/img:0cc58b6ac6]
Responder
06/03/2003
Anonymous
Caro colega,
Tente este código, que já inclui a configuração do parâmetros do apelido.
Um abraço,
Jaques.
O código:
var
Lista: TStringList;
Dir, ApelidMain: String;
begin
try
Dir := ´C:\Assistente_Conversao´;
ApelidMain := ´Assistente´;
with (SsMain) do begin
if (ApelidMain <> ´´) then
DeleteAlias (ApelidMain);
SaveConfigFile;
with (SsMain) do begin
Lista := TStringList.Create;
try
with (Lista) do begin
Add(´ENABLE BCD=TRUE´);
Add(´PATH=´ + Dir);
//Add(´USER NAME=MYNAME´);
end;
AddAlias (ApelidMain, ´PARADOX´, Lista);
finally
Lista.Free;
end;
SaveConfigFile;
Active := False;
FindDatabase(Dir);
OpenDatabase(Dir);
Active := True;
Open;
SaveConfigFile;
end;
end;
except
end;
Tente este código, que já inclui a configuração do parâmetros do apelido.
Um abraço,
Jaques.
O código:
var
Lista: TStringList;
Dir, ApelidMain: String;
begin
try
Dir := ´C:\Assistente_Conversao´;
ApelidMain := ´Assistente´;
with (SsMain) do begin
if (ApelidMain <> ´´) then
DeleteAlias (ApelidMain);
SaveConfigFile;
with (SsMain) do begin
Lista := TStringList.Create;
try
with (Lista) do begin
Add(´ENABLE BCD=TRUE´);
Add(´PATH=´ + Dir);
//Add(´USER NAME=MYNAME´);
end;
AddAlias (ApelidMain, ´PARADOX´, Lista);
finally
Lista.Free;
end;
SaveConfigFile;
Active := False;
FindDatabase(Dir);
OpenDatabase(Dir);
Active := True;
Open;
SaveConfigFile;
end;
end;
except
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
