Ver Mensaje Individual
  #1  
Antiguo 17-08-2022
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Reputación: 23
José Luis Garcí Va camino a la fama
Mi B.D. No se conecta externamente

Buenas tardes, hace mucho que no me ponía a programar con mi querido Delphi, y ahora lo hago por que la asociación con la que llevo muchos años, tiene necesidades nuevas y la verdad es que me estoy volviendo loco con ello.
El problema es que necesitan que la B.D. este en un equipo fijo encendido y desde cualquier punto poder acceder a los datos, el tema es que he hecho lo siguiente con un equipo de casa, ya que aún no está el equipo donde se quiere montar este servidor.
  • En mi equipo he asignado una ip fija por ejemplo 192.168.25.58
  • He abierto el puerto 3050 del rúter
  • He configurado el firewall de este equipo para el mismo puerto
  • la conexión que hago es de la siguiente forma 192.168.25.58:C\AHINOR\AHINOR.FDB

Si lo hago desde mi casa de un equipo a otro, o a través de la wifi, conecta perfectamente, pero en cuanto lo hago desde otro rúter, no hay manera, me asigna un fallo de conexión y la verdad es que no se cual es el fallo

Uso un IBDatabase, un IBTrasanction y ibdataset como base de datos y el código para conectarme externamente es el siguiente

Código Delphi [-]
begin
   try
     IBD.DatabaseName:='192.168.25.58:C:\AHINOR\AHINOR.FDB';
     ShowMessage(IBD.DatabaseName); //Para ver la ruta de conexión
     IBD.Connected:=True; //Ibdtaabase
     IBT.Active:=True;//ibdtransaction
    //IBDataSet1.Active:=True;
     Label1.Visible:=True;
     Label1.Font.Color:=clLime;
     Label1.Caption:='B.D. conectada';
     ComboBox1.Items.Clear;      // Tablas de la base de datos
     ComboBox1.Items:=GetTableNames(IBD);
   except
     on E: Exception do
     begin
       Label1.Visible:=True;
       Label1.Font.Color:=clMaroon;
       Label1.Caption:='B.D. No conectada';
       ShowMessage('No se ha podido Conectar'+#13+#10+'Fallo: '+#13+#10+e.Message);
     end;
   end;
end;

Estoy probándolo en la versión Comunity edition de Delphi 10.4

Por cierto también he probado con la conexión de la siguiente forma 192.168.25.58/3050:C:\AHINOR\AHINOR.FDB, y dentro del mismo rutér bien, pero desde fura no hay manera, y es un coñazo tener que desplazarme cada dos por tres para hacer las pruebas

Como siempre os doy las gracias de antemano, espero me podáis ayudar a ver por donde está el fallo y si existe alguna manera de probarlo dentro de mi red como si fuese dos redes diferentes, para no tener que estar subiendo a la sede que esta bastante lejos de donde vivo ahora.

Un saludo y gracias
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita