Criando alias com um instalador
Pessoal, fiz um programa pra instala o BDE e junto com o BDE eu queria instala um alias junto, me passaram o seguinte codigo:
{ 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;
Mas eu não faço a minima ideia do que seja o session que fala na rotina acima, tentei o componente Tsession e não consegui. Ja procurei em alguns tutoriais e tambem nada achei. Se alguem puder me ajudar desde ja agradeço, um abraço, Henry.
{ 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;
Mas eu não faço a minima ideia do que seja o session que fala na rotina acima, tentei o componente Tsession e não consegui. Ja procurei em alguns tutoriais e tambem nada achei. Se alguem puder me ajudar desde ja agradeço, um abraço, Henry.
Henry
Curtidas 0
Respostas
Balceiro
11/09/2003
[color=red:cbc1658fd8][b:cbc1658fd8]Inclua na seção uses: DB [/b:cbc1658fd8][/color:cbc1658fd8]
{ 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 onde est
{ 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 onde est
GOSTEI 0
Balceiro
11/09/2003
1. Crie um novo projeto.
2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton.
3. Dê um duplo clique no Tdatabase para entrar no Database propriety editor.
4. Configure o Database Name para ´MeuAlias´ .
5. Selecione ´STANDART´ para Drive Name.
6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parâmetros.
7. Configure o PATH= para C:\DELPHI\DEMOS\DATA.
8. Clique no botão OK para fechar a caixa de diálogo.
9. Configure a proporiedade DatabaseName do Ttable para ´MeuAlias´.
10.Configure a proporiedade Dataset do TDatasource para ´Table1´.
11.Configure a proporiedade DataSource do Tdbgrid para ´Datasource1´.
12.Coloque o seguinte código no evento Onclick do TButton:
Procedure TForm1.Button1Click(Sender:Tobjetc);
begin
Table1.TableName := ´CUSTOMER´;
Table1.Active := true;
End;
Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton:
Procedure TForm1.Button1Click(Sender:Tobjetc);
begin
Database1.DataBaseName := ´MeuAlias´;
Database1.DriverName := ´STANDART´;
Database1.Params.Clear;
Database1.Params.Add(´PATH=C:\DELPHI\DEMOS\DATA´);
Table1.DatabaseName := ´MeuALias´;
Table1.TableName := ´CUSTOMER´
Table1.Active := true;
DataSource1.Dataset := Table1;
DBGrid1.DataSource := Datasource1;
End;
2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton.
3. Dê um duplo clique no Tdatabase para entrar no Database propriety editor.
4. Configure o Database Name para ´MeuAlias´ .
5. Selecione ´STANDART´ para Drive Name.
6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parâmetros.
7. Configure o PATH= para C:\DELPHI\DEMOS\DATA.
8. Clique no botão OK para fechar a caixa de diálogo.
9. Configure a proporiedade DatabaseName do Ttable para ´MeuAlias´.
10.Configure a proporiedade Dataset do TDatasource para ´Table1´.
11.Configure a proporiedade DataSource do Tdbgrid para ´Datasource1´.
12.Coloque o seguinte código no evento Onclick do TButton:
Procedure TForm1.Button1Click(Sender:Tobjetc);
begin
Table1.TableName := ´CUSTOMER´;
Table1.Active := true;
End;
Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton:
Procedure TForm1.Button1Click(Sender:Tobjetc);
begin
Database1.DataBaseName := ´MeuAlias´;
Database1.DriverName := ´STANDART´;
Database1.Params.Clear;
Database1.Params.Add(´PATH=C:\DELPHI\DEMOS\DATA´);
Table1.DatabaseName := ´MeuALias´;
Table1.TableName := ´CUSTOMER´
Table1.Active := true;
DataSource1.Dataset := Table1;
DBGrid1.DataSource := Datasource1;
End;
GOSTEI 0
Gilsonlongo
11/09/2003
Bom dia:
Usei este exemplo citado, mas como aqui uso dbf deu problema, pois a rotina não localiza o alias Dbase e sim Piradox.
Será q tem alguma alteração p/ acessar um alias p/ dbf.
Um abraço,
Usei este exemplo citado, mas como aqui uso dbf deu problema, pois a rotina não localiza o alias Dbase e sim Piradox.
Será q tem alguma alteração p/ acessar um alias p/ dbf.
Um abraço,
1. Crie um novo projeto.
2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton.
3. Dê um duplo clique no Tdatabase para entrar no Database propriety editor.
4. Configure o Database Name para ´MeuAlias´ .
5. Selecione ´STANDART´ para Drive Name.
6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parâmetros.
7. Configure o PATH= para C:\DELPHI\DEMOS\DATA.
8. Clique no botão OK para fechar a caixa de diálogo.
9. Configure a proporiedade DatabaseName do Ttable para ´MeuAlias´.
10.Configure a proporiedade Dataset do TDatasource para ´Table1´.
11.Configure a proporiedade DataSource do Tdbgrid para ´Datasource1´.
12.Coloque o seguinte código no evento Onclick do TButton:
Procedure TForm1.Button1Click(Sender:Tobjetc);
begin
Table1.TableName := ´CUSTOMER´;
Table1.Active := true;
End;
Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton:
Procedure TForm1.Button1Click(Sender:Tobjetc);
begin
Database1.DataBaseName := ´MeuAlias´;
Database1.DriverName := ´STANDART´;
Database1.Params.Clear;
Database1.Params.Add(´PATH=C:\DELPHI\DEMOS\DATA´);
Table1.DatabaseName := ´MeuALias´;
Table1.TableName := ´CUSTOMER´
Table1.Active := true;
DataSource1.Dataset := Table1;
DBGrid1.DataSource := Datasource1;
End;
GOSTEI 0