[firebase-br] Off topic? Fb255+ZeosDbo+ZeBeDee+D XE(1)
Mário Reis
mariodosreyx em gmail.com
Sáb Jan 25 17:12:22 -03 2014
Olá Amigos
Para que, quem possa necessitar, não perca o tempo que eu perdi.
Depois de passar um mau bocado a tentar uma ligação remota com
Fb255+ZeosDbo+ZeBeDee eis que surge a solução. Nada dificil, porém só por
tentativa e erro. Aqui está a solução. Não ponha nada no con1.Host=''.
Atenção, tenho o ZebeDee começo carregar o MyFile.INI no meu FormCreate:
const
Secao = 'Banco de Dados';
var Ini: TIniFile;
ArqIni, Host, Caminho, sStringConnection: String;
begin
// DmHost = 'myIpAdress.gotdns.org' ;
// DmPAth ='C:\Program Files (x86)\Fd\Fb2522\OsDados\MyDatabase.FDB';
// Se abriu em modo Design fecha sempre para não dar erro. On Fly:
ZConnection1.Disconnect;
ZConnection1.Database:='';
ArqIni:=ChangeFileExt(ParamStr(0), '.ini');
Ini := TIniFile.Create(ArqIni);
Try
DmHost := Ini.ReadString(Secao, 'Host', '');
DmPath := Ini.ReadString(Secao, 'Caminho', '');
DmIpAdr:= Ini.ReadString(Secao, 'Endereco', '');
DmZbd := Ini.ReadString(Secao, 'Zbd', '');
If (DmZbd<>'') Then
begin
//arranco com o ZeBeDee do lado do cliente (no servidor é um Serviço
sStringConnection:='ZeBedee 3051:'+ DmIpAdr +':3050';
WinExec(PAnsiChar(sStringConnection), 0 ); // Silencioso
end;
Finally
Ini.Free;
End;
end;
De seguida OnLogin faça assim:
ZConnection1.HostName:=''; GARANTA que o HOSTNAME=''
e depois ligue assim:
ZConnection1.Database:=DmHost+':'+DmPath ;
ZConnection1.User:= myUser;
ZConnection1.Password:=myPassword;
try
ZConnection1.Connect;
except
usrcntrl1.StartLogin; // uso o ucp2.30 com XE(1)
end;
Mais detalhes sobre a lista de discussão lista