Zeos na rede
Galera, tô com um sistema que tenho que dar suporte agora, e ele usa o Zeos com FireBird 2.0.
Estou tentando colocar em rede mas não estou conseguindo.
Quais são as dll necessárias para rodar no caso do Zeos?
Grato,
João
Estou tentando colocar em rede mas não estou conseguindo.
Quais são as dll necessárias para rodar no caso do Zeos?
Grato,
João
Jpauloss
Curtidas 0
Respostas
Silviogs
13/03/2008
Olá amigo
para o zeoslib nehuma dll. O acesso é direto a base dados. Eu faço assim:
tenho uma arquivo ini com esta informação numa pasta no servidor contendo estes dados abaixo.
[SYSCONFIG]
HOSTNAME=192.168.3.4
DATABASE=caimp
USER=postgres
PASSWORD=(senha do postgres)
PROTOCOL=postgresql
no seu caso:
PROTOCOL=interbase-6 ou PROTOCOL=firebird-2.0
no sistema leia esta informação para abrir a base de dados.
1 - SysConfig.CarregaArquivoIni;
procedure TSysConfig.CarregaArquivoIni;
var
Arq: TIniFile;
ListaAtributos: TStrings;
NovoNome: string;
i: Integer;
begin
ListaAtributos := TStringList.Create;
NovoNome := Copy(Application.ExeName, 1, Pos(´.EXE´, UpperCase(Application.ExeName)) - 1) + ´.ini´;
if not FileExists(NovoNome) then
ShowMessage(Format(´Arquivo ´¬s´ não foi localizado!´,[NovoNome]));
Arq := TIniFile.Create(NovoNome);
SysConfig := TSysConfig.Create;
Arq.ReadSectionValues(´SYSCONFIG´, ListaAtributos);
SysConfig.DIRETORIO_RELATORIOS := Arq.ReadString(´SYSCONFIG´,´DIRETORIO_RELATORIOS´,´´);
SysConfig.HOSTNAME := Arq.ReadString(´SYSCONFIG´,´HOSTNAME´,´´);
SysConfig.DATABASE := Arq.ReadString(´SYSCONFIG´,´DATABASE´,´´);
SysConfig.USER := Arq.ReadString(´SYSCONFIG´,´USER´,´´);
SysConfig.PASSWORD := Arq.ReadString(´SYSCONFIG´,´PASSWORD´,´´);
SysConfig.PROTOCOL := Arq.ReadString(´SYSCONFIG´,´PROTOCOL´,´´);
SysConfig.TELAFUNDO := Arq.ReadString(´SYSCONFIG´,´TELAFUNDO´,´´);
SysConfig.TELAPRINCIPAL := Arq.ReadString(´SYSCONFIG´,´TELAPRINCIPAL´,´´);
SysConfig.OPCAOMENSXP := Arq.ReadInteger(´SYSCONFIG´,´OPCAOMENSXP´,0);
Arq.Free;
ListaAtributos.Free;
end;
2 - SysConfig.AbirConexao(DM_Principal.Conexao,DM_Principal.QrySysConfig);
procedure TSysConfig.AbirConexao(Conexao: TZConnection; Config: TZQuery);
begin
Conexao.Connected := false;
Conexao.Database := SysConfig.DATABASE;
Conexao.HostName := SysConfig.HOSTNAME;
Conexao.User := SysConfig.USER;
Conexao.Password := SysConfig.PASSWORD;
Conexao.Protocol := Sysconfig.PROTOCOL;
Conexao.Connected := true;
end;
vc pode instalar o friebird 2.x que funciona normalmente.
http://downloads.sourceforge.net/firebird/Firebird-2.0.3.12981-1-Win32.exe
\\Servidor\sistemas\Sistema.exe
crie um icone em cada estação apontando para a pasta do servidor.
Atenciosamente
Silvio Guedes
para o zeoslib nehuma dll. O acesso é direto a base dados. Eu faço assim:
tenho uma arquivo ini com esta informação numa pasta no servidor contendo estes dados abaixo.
[SYSCONFIG]
HOSTNAME=192.168.3.4
DATABASE=caimp
USER=postgres
PASSWORD=(senha do postgres)
PROTOCOL=postgresql
no seu caso:
PROTOCOL=interbase-6 ou PROTOCOL=firebird-2.0
no sistema leia esta informação para abrir a base de dados.
1 - SysConfig.CarregaArquivoIni;
procedure TSysConfig.CarregaArquivoIni;
var
Arq: TIniFile;
ListaAtributos: TStrings;
NovoNome: string;
i: Integer;
begin
ListaAtributos := TStringList.Create;
NovoNome := Copy(Application.ExeName, 1, Pos(´.EXE´, UpperCase(Application.ExeName)) - 1) + ´.ini´;
if not FileExists(NovoNome) then
ShowMessage(Format(´Arquivo ´¬s´ não foi localizado!´,[NovoNome]));
Arq := TIniFile.Create(NovoNome);
SysConfig := TSysConfig.Create;
Arq.ReadSectionValues(´SYSCONFIG´, ListaAtributos);
SysConfig.DIRETORIO_RELATORIOS := Arq.ReadString(´SYSCONFIG´,´DIRETORIO_RELATORIOS´,´´);
SysConfig.HOSTNAME := Arq.ReadString(´SYSCONFIG´,´HOSTNAME´,´´);
SysConfig.DATABASE := Arq.ReadString(´SYSCONFIG´,´DATABASE´,´´);
SysConfig.USER := Arq.ReadString(´SYSCONFIG´,´USER´,´´);
SysConfig.PASSWORD := Arq.ReadString(´SYSCONFIG´,´PASSWORD´,´´);
SysConfig.PROTOCOL := Arq.ReadString(´SYSCONFIG´,´PROTOCOL´,´´);
SysConfig.TELAFUNDO := Arq.ReadString(´SYSCONFIG´,´TELAFUNDO´,´´);
SysConfig.TELAPRINCIPAL := Arq.ReadString(´SYSCONFIG´,´TELAPRINCIPAL´,´´);
SysConfig.OPCAOMENSXP := Arq.ReadInteger(´SYSCONFIG´,´OPCAOMENSXP´,0);
Arq.Free;
ListaAtributos.Free;
end;
2 - SysConfig.AbirConexao(DM_Principal.Conexao,DM_Principal.QrySysConfig);
procedure TSysConfig.AbirConexao(Conexao: TZConnection; Config: TZQuery);
begin
Conexao.Connected := false;
Conexao.Database := SysConfig.DATABASE;
Conexao.HostName := SysConfig.HOSTNAME;
Conexao.User := SysConfig.USER;
Conexao.Password := SysConfig.PASSWORD;
Conexao.Protocol := Sysconfig.PROTOCOL;
Conexao.Connected := true;
end;
vc pode instalar o friebird 2.x que funciona normalmente.
http://downloads.sourceforge.net/firebird/Firebird-2.0.3.12981-1-Win32.exe
\\Servidor\sistemas\Sistema.exe
crie um icone em cada estação apontando para a pasta do servidor.
Atenciosamente
Silvio Guedes
GOSTEI 0
Jpauloss
13/03/2008
Vou tentar! Valeu!
GOSTEI 0