interbase em rede...

Firebird

01/11/2005

Tenho um aplicativo em delphi 5 e interbase funcionando a algum tempo e agora quero coloca-lo em rede como faço? alguem tem algum material que possa me passar ou alguma dica legal....
Valeu!!!

[b:ebbcda7b5f][color=blue:ebbcda7b5f]Tópico movido por Vinicius2K:[/color:ebbcda7b5f][/b:ebbcda7b5f] [list:ebbcda7b5f][b:ebbcda7b5f][color=red:ebbcda7b5f][*:ebbcda7b5f]Fórum original: Delphi[/color:ebbcda7b5f][/b:ebbcda7b5f][/list:u:ebbcda7b5f]



Lemaf

Lemaf

Curtidas 0

Respostas

Martins

Martins

01/11/2005

Tenho um aplicativo em delphi 5 e interbase funcionando a algum tempo e agora quero coloca-lo em rede como faço? alguem tem algum material que possa me passar ou alguma dica legal.... Valeu!!!


Vc tem q instalar o IB no servidor e nos clientes além de instalar seu aplicativo e ele ter q setar a localização do banco q estará no servidor.
[b:329836547e]
Database=Servidor_IB:C:\Sistema\Dados\SeuBanco.GDB
UserName=SYSDBA
Password=masterkey
[/b:329836547e]

vc tem q rodar algumas libs do Ib ou então instalar o client dele.

Boa Sorte!!!


GOSTEI 0
Silviogs

Silviogs

01/11/2005

Olá amigo

´Vc tem q instalar o IB no servidor e nos clientes além de instalar seu aplicativo e ele ter q setar a localização do banco q estará no servidor.´

não precisa instalar ibclient nas máquinas, o acesso é feito de forma direta ao banco de dados. Vc pode criar um aquivo ini onde contenha as informaçãoes sobre o banco de dados:

[SYSCONFIG]
DIRETORIO_RELATORIOS=
HOSTNAME=192.168.1.1
DATABASE=BasedeDados
USER=sysdba
PASSWORD=masterkey
PROTOCOL=interbase-6
TELAFUNDO=TelaFundo.JPG
TELAPRINCIPAL=mppb.JPG


crie essas funcoes:

TSysConfig = class
public
FArquivoSysConfig: string;


DEFINICOES: string;

DIRETORIO_RELATORIOS : string;
CONEXAO : TZConnection;
HOSTNAME : string;
DATABASE : string;
USER : string;
PASSWORD : string;
PROTOCOL : string;
COR_TEXTO_MENU : string;
COR_TEXTO_MODELO_NAV : string;
CONFIGURACAO : string;
CODIGO_OPERADOR : integer;
DIREITOS_OPERADOR : string;
NOME_OPERADOR : string;
TELAFUNDO : string;
TELAPRINCIPAL : string;
OPCAOMENSXP : integer;
TESTADATA : boolean;
MDATA : TDateTime;
public
//Procedimentos de Carregamento
procedure CarregaArquivoIni;
procedure SetaFonteTexto;
procedure AbirConexao(Conexao : TZConnection; Config : TZQuery);
procedure FecharConexao(Conexao : TZConnection);
end;

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;

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;

procedure TSysConfig.FecharConexao(Conexao: TZConnection);
begin
Conexao.Connected := false;
end;

como chamar no sistema:

begin
Application.Initialize;
SysConfig.CarregaArquivoIni;
Application.CreateForm(TFmMain, FmMain);
Application.CreateForm(TDM, DM);
SysConfig.AbirConexao(DM.Conexao,DM.QrySysConfig);
Application.Run;
end.


Obs: Eu uso o Zeoslib 6.5.1 com delphi7:

http://sourceforge.net/projects/zeoslib

Atenciosamente

Silvio Guedes


GOSTEI 0
POSTAR