Jovenes ilustres tengo un problema que necesito ayuda de ustedes...
No tengo dinero $
Pasando a términos serios e importantes, resulta que una aplicación que tengo ya funcionando como aplicación con base de datos local me han pedido que una instancia de la misma se pueda ejecutar en una maquina remota. Eso es algo que nunca he hecho así que pido su ayuda (peras y manzanas por favor ). En materia:
La ruta de mi proyecto original:
Programa original con la base de datos en local (127.0.0.1) IP: 192.168.0.105 //Esta es la IP publica (no fija) de la maquina C:\MisDesarrollos\Data\MiDB.fdb C:\MisDesarrollos\MiAplicacion.exe C:\MisDesarrollos\fbClient.dll
Mi conexion con la BD (Uso Unidac y provider Interbase) que es Firebird 2.5
procedure TdmDatabase.DataModuleCreate(Sender: TObject); begin uniConexion.ProviderName := 'InterBase'; uniConexion.Server := '127.0.0.1'; uniConexion.SpecificOptions.Add('InterBase.Charset=UTF8'); uniConexion.SpecificOptions.Add('InterBase.ClientLibrary=fbclient.dll'); uniConexion.Database := GetCurrentDir + '\Data\' + NombreBD; end;
Al iniciar la aplicación el el Source del proyecto:
La función Conectar
Hasta ahí todo me funciona correctamente, no hay problema alguno.
Ahora creo que lo que debo de modificar es solamente en el Create del Form para la aplicación cliente:
procedure TdmDatabase.DataModuleCreate(Sender: TObject); begin uniConexion.ProviderName := 'InterBase'; uniConexion.Server := '192.168.0.105'; uniConexion.SpecificOptions.Add('InterBase.Charset=UTF8'); uniConexion.SpecificOptions.Add('InterBase.ClientLibrary=fbclient.dll'); uniConexion.Database := '192.168.0.105\C:\MiAplicacion\Data\' + NombreBD; end;
Es correcto lo que estoy haciendo o echo marcha atras?
Cuando intente ejecutar me apareció el mensaje de que "no podia conectar con 192.168.0.105"
como siempre agradezco su ayuda y tiempo!