[firebase-br] RES: Configurar sistema para rodar na rede ???
Francisco Junior
junior em lagsistemas.com.br
Sex Nov 25 11:43:37 -03 2011
Tente liberar a porta 3050 do windows. Isso já deve resolver o seu problema.
-----Mensagem Original-----
From: Zottis
Sent: Friday, November 18, 2011 9:46 AM
To: 'FireBase'
Subject: [firebase-br] RES: Configurar sistema para rodar na rede ???
o firewall do XP ta Liberado, e o do servidor? É este XP?
No servidor coloca para liberar o fbserver.exe
Tenta também pelo IBExpert para ver se é o FB que esta bloqueado ou a tua
aplicação que não está acessando.
-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Nilton Oliveira
Enviada em: sexta-feira, 18 de novembro de 2011 01:40
Para: FireBase
Assunto: [firebase-br] Configurar sistema para rodar na rede ???
Pessoal, meu sistema está todo configurado para rodar na rede e não condigo.
informa: 'Não foi possivel conectar ao banco de dados!
uso delphi xe, firebird 2.5;
a rede windows xp está funcionando tudo ok; firewall do xp está desativado;
No delphi:
na uses do datamodulo coloquei Midaslib
no datamodule:
--------------
var
DataModule1: TDataModule;
BancoDeDados : String;
ArquivoINI : TIniFile;
procedure TDataModule1.sqlConnection1BeforeConnect(Sender: TObject); const
FileName = 'config.ini';
var
conexao : String;
IniFileName : TIniFile;
begin
IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName);
Try
conexao := Trim(IniFileName.ReadString('Acesso','Database',''));
Finally
IniFileName.Free;
end;
sqlConnection1.ConnectionName := conexao; end;
procedure TDataModule1.DataModuleCreate(Sender: TObject); var i : Integer;
begin
if not FileExists(ExtractFilePath(Application.ExeName)+'config.ini') then
begin
ArquivoINI :=
TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
ArquivoINI.WriteString('Acesso','Database',(ExtractFilePath(Application.ExeN
ame)+'sistema.fdb'));
BancoDeDados := ArquivoINI.ReadString('Acesso','Database','');
sqlConnection1.ConnectionName := BancoDeDados; sqlConnection1.Connected :=
TRUE; for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TSQLConnection then
(Components[i] as TSQLConnection).Connected := TRUE;
end;
ArquivoINI.Free;
end
else
try
sqlConnection1.ConnectionName := BancoDeDados;
sqlConnection1.Connected := TRUE;
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TSQLConnection then
(Components[i] as TSQLConnection).Connected := TRUE;
end;
Application.MessageBox('Conexão realizada com sucesso!','CONEXÃO OK');
ArquivoINI.Free;
except
Application.MessageBox('Não foi possivel conectar ao banco de
dados!','CONEXÃO FALHOU');
end
end;
no arquivo config.ini:
----------------------
[Acesso]
DriverUnit=DBXFirebird
DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver150.bpl
DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxC
ommonDriver,Version=15.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFirebirdDriver15
0.bpl
MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandFactory,Borla
nd.Data.DbxFirebirdDriver,Version=15.0.0.0,Culture=neutral,PublicKeyToken=91
d62ebb5b0d1b1b
GetDriverFunc=getSQLDriverINTERBASE
LibraryName=dbxfb.dll
VendorLib=fbclient.DLL
Role=RoleName
MaxBlobSize=-1
TrimChar=False
ErrorResourceFile=
ServerCharSet=
drivername=FIREBIRD
blobsize=-1
commitretain=False
localecode=0000
rolename=RoleName
sqldialect=3
isolationlevel=ReadCommitted
waitonlocks=True
trim char=False
Database=servidor:d:\projeto\sistema.fdb
usei também o ip do servidor e nada de funcionar
Database=192.168.1.22:d:\projeto\sistema.fdb
sempre a mesma informação do Application.MessageBox:
'Não foi possivel conectar ao banco de dados!
Onde está o erro ???
A quem possa aguardo ajuda
Grato
Nilton Oliveira
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br Para
saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
-----
Nenhum vírus encontrado nessa mensagem.
Verificado por AVG - www.avgbrasil.com.br
Versão: 2012.0.1869 / Banco de dados de vírus: 2092/4622 - Data de
Lançamento: 11/17/11
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
Mais detalhes sobre a lista de discussão lista