[firebase-br] Off topic? Fb255+ZeosDbo+ZeBeDee+D XE(1)

[Mário Reis]

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;