TIBdatabase
Olá pessoal! Fiz um sistema que vai funcionar em rede. No TIBdatabase eu indico o nome da máquina, porem não existe uma maneira de o usuario final mesmo selecionar o nome da maquina, caso ele queria mudar o servidor. Por ex, que ele leia o nome do servidor num arquivo txt. Ou que digite o nome do servidor na primeira vez que o sistema for acessado.
Qualquer toque me ajuda!
Muito obrigado pela atenção!
Um forte abraço a todos!
Qualquer toque me ajuda!
Muito obrigado pela atenção!
Um forte abraço a todos!
Jorgerock
Curtidas 0
Respostas
Gandalf.nho
12/05/2005
Como vc usa a paleta IBX, use o componente IBDatabaseINI que irá ajudá-lo nisso
GOSTEI 0
Jorgerock
12/05/2005
Eu uso delphi 7, e tem a paleta Interbase, não têm este componente nela.
Mas eu fiz assim:
procedure Tdmdados.DataModuleCreate(Sender: TObject);
var
cserver: TStringList;
begin
cserver := TStringList.Create;
cserver.LoadFromFile(´C:\Bavaresco\DAS\Sistema\SERVER.INI´);
IBDas.DatabaseName := Trim(cserver.Text)+´:C:\BAVARESCO\DAS\DADOS\DAS.GDB´;
cserver.Free;
dmdados.IBdas.Connected:=true;
end;
Funcionou beleza!
Tambem consegui fazer gravando o valor no registro, mas assim é mais facil!
Muito obrigado pela atenção!
Um forte abraço!
Mas eu fiz assim:
procedure Tdmdados.DataModuleCreate(Sender: TObject);
var
cserver: TStringList;
begin
cserver := TStringList.Create;
cserver.LoadFromFile(´C:\Bavaresco\DAS\Sistema\SERVER.INI´);
IBDas.DatabaseName := Trim(cserver.Text)+´:C:\BAVARESCO\DAS\DADOS\DAS.GDB´;
cserver.Free;
dmdados.IBdas.Connected:=true;
end;
Funcionou beleza!
Tambem consegui fazer gravando o valor no registro, mas assim é mais facil!
Muito obrigado pela atenção!
Um forte abraço!
GOSTEI 0
Vinicius2k
12/05/2005
Colega,
Para ter este componente(TIBDatabaseINI) e também o TIBScript vc precisa atualizar seu IBX.
Além destes dois novos componentes vc terá correção de alguns bugs e o acréscimo da propriedade AlowStreamedConnect no TIBDatabase que, setada para false, previne que o TIBDatabase tente se conectar sem sua ordem explícita, mesmo vc ´esquecendo-o´ conectado em tempo de projeto.
Baixe a versão 7.08, disponível em:
http://codecentral.borland.com/codecentral/ccweb.exe/author?authorid=102
Sua solução foi interessante, mas, se me permitir, sugiro vc utlizar mais o a força do ´.ini´, estudando a classe TIniFile. Vc poderá criar soluções não só para este caso, mas para outras necessidades que venham a surgir.
T+
Eu uso delphi 7, e tem a paleta Interbase, não têm este componente nela.
Para ter este componente(TIBDatabaseINI) e também o TIBScript vc precisa atualizar seu IBX.
Além destes dois novos componentes vc terá correção de alguns bugs e o acréscimo da propriedade AlowStreamedConnect no TIBDatabase que, setada para false, previne que o TIBDatabase tente se conectar sem sua ordem explícita, mesmo vc ´esquecendo-o´ conectado em tempo de projeto.
Baixe a versão 7.08, disponível em:
http://codecentral.borland.com/codecentral/ccweb.exe/author?authorid=102
Sua solução foi interessante, mas, se me permitir, sugiro vc utlizar mais o a força do ´.ini´, estudando a classe TIniFile. Vc poderá criar soluções não só para este caso, mas para outras necessidades que venham a surgir.
T+
GOSTEI 0
Jorgerock
12/05/2005
Valeu pela dica! Eu achei estranho não ter este componente.
Eu tava lendo na edição 10 da clube delphi (antiga...), e nela fala do applicationevents do delphi 5. Não achei no delphi 7. Têm algum componente que faz a mesma coisa?
Obrigado!
Um forte abraço!
Eu tava lendo na edição 10 da clube delphi (antiga...), e nela fala do applicationevents do delphi 5. Não achei no delphi 7. Têm algum componente que faz a mesma coisa?
Obrigado!
Um forte abraço!
GOSTEI 0
Gandalf.nho
12/05/2005
O TApplicationEvents não tem no Delphi 7? No D6 está na paleta Additional, dê uma olhada. Em último caso, o RxLib tem um componente desses.
GOSTEI 0