Estas 2 dicas peguei aqui na lista. Não testei. Faça o teste e adapte às
suas necessidades.
Inclua na seção uses: DB
{ 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;
*************************************************
procedure TForm1.FormCreate(Sender: TObject);
var
AParams: TStringList;
begin
try
AParams := TStringList.Create;
if not Session.IsAlias('NOME DO ALIAS') then
begin
AParams.add('Server Name=' + 'NOME DO SERVIDOR DO BANCO');
AParams.add('User Name=' + 'NOME DO USUÁRIO DO BANCO');
AParams.add('DATABASE NAME=' + 'NOME DO BANCO');
Session.AddAlias('NOME DO ALIAS', 'MSSQL', AParams);
Session.SaveConfigFile;
end
else
begin
AParams.Clear;
AParams.add('Server Name=' + 'NOME DO SERVIDOR DO BANCO');
AParams.add('User Name=' + 'NOME DO USUÁRIO DO BANCO');
AParams.add('DATABASE NAME=' + 'NOME DO BANCO');
Session.ModifyAlias('NOME DO ALIAS',AParams);
Session.SaveConfigFile;
end;
finally
AParams.Free;
end;
end;
Espero ter ajudado.
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 07, 2005 3:30 PM
Subject: [delphi-br] Configuração de Alias via Programação
Pessoal, estou com o seguinte problema e se alguém me puder ajudar agradeço
desde já. Quando crio um alias em tempo de execução na minha aplicação
dependendo da máquina a configuração de rede fica em TCP/IP (XP) e Pipes no
(98). Alguém por acaso saberia como eu poderia estar além de criar o alias
em tempo de execução modificar as propriedades de rede também????? Pois
gostaria que todos os alias fossem criados como TCP/IP.
Na pasta do Regedit onde é feita a inclusão do novo alias não encontrei
nenhum parâmetro que me indica se a configuração de rede é TCP/IP ou
Pipes.....
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.6.9 - Release Date: 6/1/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.6.5 - Release Date: 26/12/2004
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.6.5 - Release Date: 26/12/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
