Zeos na rede

Delphi

13/03/2008

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


Jpauloss

Jpauloss

Curtidas 0

Respostas

Silviogs

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


GOSTEI 0
Jpauloss

Jpauloss

13/03/2008

Vou tentar! Valeu!


GOSTEI 0
POSTAR