Foros Club Delphi - Conectar FB en red (2)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Conectar FB en red (2) (https://www.clubdelphi.com/foros/showthread.php?t=92130)

Conectar FB en red (2)

Después de la gran ayuda que me habéis prestado en otros dos hilos anteriores (Conectar Firebird en red y Conexión en red a FB) vuelvo a la carga porque me surgen nuevos problemas que por másvueltas que doy no soy capaz de solucionar.

1. Un puesto de la red no se conecta
La aplicación está instalada en una red con tres puestos y un servidor dedicado. En éste última, además del motor y la base de datos, está instalado el programa más que nada por seguridad. Los parámetros para conectarse a la base dedatos están guardados en un fichero INI como este, idéntico para todos los puestos:

Cita:

[DATOS]
Entorno=\\SERVIDOR\D\DatAfi30\
Tablas=SERVIDOR/3050:D:\DatAfi30\Tablas

Esa unidad D es un disco físico del servidor. Y lo leo así:

Código PHP:


		
			
char cEntorno[256], cTablas[256];
memset(cEntorno, '\0', sizeof(cEntorno));
memset(cTablas , '\0', sizeof(cTablas));

GetPrivateProfileString("DATOS", "Entorno", "C:\\DatAfi30\\"      , cEntorno, sizeof(cEntorno), (ExtractFilePath(Application->ExeName) + "PtoDat30.ini").c_str());
GetPrivateProfileString("DATOS", "Tablas" , "C:\\DatAfi30\\Tablas", cTablas , sizeof(cTablas) , (ExtractFilePath(Application->ExeName) + "PtoDat30.ini").c_str());

Uno de los puestos se conecta sin ningún problema y funciona, en lo que se refiere a la BB.DD., sin ningún problema pero el otro cada vez que arranca la aplicación me avisa que la BB.DD. no está creada e intenta hacerlo, lo cual me deja totalmente perplejo ya que debería estar tratando de acceder exactamente a la misma carpeta. He intentado craer una unidad de red sobre ese disco del servidor (por ejemplo X:)y cambiar el acceso a:

Cita:

[DATOS]
Entorno=X:\DatAfi30\
Tablas=X:\DatAfi30\Tablas

pero da lo mismo, sigue intentando crear la base de datos. En el tercer puesto no he podido probar nada porque su usuario está de vacaciones.

2. Guardar ficheros desde programa
En prácticamente todos los listados que genera la aplicación doy diferentes posibilidades de salida: Pantalla, Impresora, Exportar a PDF, a Excel, a Word o a texto. Para las opciones que generan ficheros lo hago a través de esta función:

Código PHP:


		
			
AnsiString EmiteListado(TForm *Form, TQuickRep *Informe, int Destino, int PrinterSelect, bool lInforma)
{
     AnsiString cInforme;
     TComponent *Source;

     Informe->PrinterSettings->PrinterIndex = PrinterSelect;
     Informe->Prepare();

     if (PrinterSelect >= 0)
     {
          fForBln->Show();
          fForBln->IniBarra("Emitiendo impresos");
          fForBln->Barra->MaxValue = Informe->PageNumber;
     }

     if (Destino == 0)
          Informe->Preview();
     else if (Destino == 1)
     {
          if (Informe->Name == "qEtiPer" && Mensaje(4, "Son necesarias " + FormatFloat("0", Informe->PageNumber) + " hojas de etiquetas.", "Continuar\nVolver") == 2)
               return "";

          Informe->Print();
     }
     else
     {
          cInforme = AnsiString(cEntorno) + "Informes\\" + UpperCase(Informe->ReportTitle + Now().FormatString("_hhnnss") + cExtInf[Destino - 2]);
          try
          {
               if (ExtractFileExt(cInforme) == ".PDF")
               {
                    TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
                    filtro->AddFontMap("Arial:Helvetica");
                    filtro->StartConcat();
                    Informe->ExportToFilter(filtro);
                    filtro->EndConcat();
                    delete filtro;
               }
               else if (ExtractFileExt(cInforme) == ".XLS")
               {
                    TQRXLSFilter *filtro = new TQRXLSFilter(cInforme);
                    Informe->ExportToFilter(filtro);
                    delete filtro;
               }
               else if (ExtractFileExt(cInforme) == ".RTF")
               {
                    TQRRTFExportFilter *filtro = new TQRRTFExportFilter(cInforme);
                    Informe->ExportToFilter(filtro);
                    delete filtro;
               }
               else if (ExtractFileExt(cInforme) == ".TXT")
               {
                    TQRAsciiExportFilter *filtro = new TQRAsciiExportFilter(cInforme);
                    Informe->ExportToFilter(filtro);
                    delete filtro;
               }

               if (lInforma)
                    Mensaje(4, "Se ha creado el informe " + ExtractFileName(cInforme) + "\nen la carpeta " + ExtractFilePath(cInforme), "Continuar");
          }
          catch(...)
          {
               Screen->Cursor = crArrow;
               Mensaje(-1, "Se ha producido un error en la generación del documento " + Informe->Name + ".¦" + ExtractFileName(AnsiString(__FILE__)) + FormatFloat("' - '0", __LINE__), "Continuar");
               DeleteFile(cInforme);
               cInforme = "";
          }
     }
     if (PrinterSelect >= 0)
          fForBln->Hide();
     Printer()->PrinterIndex = PrinterDefault;
     return cInforme;
}

Con lo que se ha leido al arrancar el programa el nombre del informe (cInforme) sería por ejemplo:

Cita:

\\SERVIDOR\D\DatAfi30\Informes\Listado.pdf

Sin embargo al ejecutarse cualquiera de las opciones que generan fichero me da siempre el mismo error:

Cita:

Cannot create file \\SERVIDOR\D\DatAfi30\Informes\Listado.pdf

No sé por dónde pillar ninguno de los dos fallos. Especialmente el primero me mosqueda mucho porque no entiendo que diferencias puede haber entre ambas instalaciones.

Ángel, para empezar te recomiendo lo mismo que te he indicado en otras ocasiones, porque es lo más directo, seguro y eficiente (IP, unidad física, ruta completa hasta la base de datos):
192.168.1.100:D:\datos\labasedatos.fdb
Lo de compartir la unidad del servidor, no sirve para nada, cuando un cliente se conecta al servidor lo que hace es enviar peticiones por el puerto 3050 (o el que configures) y es el servidor de bases de datos el que está escuchando ese puerto para hacer lo que se le pida y devolver los datos por ese mismo puerto. NO interviene para nada unidades de red, carpetas compartidas ni nada de eso.

A partir de ahí, para estar seguro, seguimos probando ;)

Hola, como te comentan y es muy importante que se entienda como trabajan los motores y servidores de bases de datos:

Access, dbase, paradox, sqlite (los que conozco): estos se conectan al archivo directamente por lo que es necesario tener permisos de lectura escritura directa, en el caso del servidor es necesario configurar un directorio de red con todos los permisos.

Firebird, MySQL, MsSql, posgresql, oracle (servidores de base de datos): estos son servidores como tal por lo que el acceso es directo y este lo proporcionan mediante un puerto, imagina que quieres compartir la conexion de mysql a nivel mundial (muy usado aunque no recomendado), en este caso no podrias compartir un directorio y en el caso no te serviria de nada, firebird al igual que los otros mencionados sirve desde un puerto y la ruta la utiliza para acceder localmente al archivo de base de datos (otros motores no requieren la ruta en el servidor), que quede claro que el servidor firebird toma la direccion o nombre del servidor (//servidor01 o //localhost o //192.168.1.25) y la ruta que pareciera local la ocupa internamente para acceder al archivo pero esto solo lo hace el servidor mas no el cliente.

Como te menciona Casimiro es importante que pongan un direccion de red valida y visible desde los equipos de tu red, puedes validar si estan en dominio, si estan en el grupo de trabajo o si se encuentran en el mismo nodo de red, el punto es que el equipo sea visible (prueba haciendo ping o telnel al puerto).

Otro punto importante es que debes tener la librerias correspondientes del cliente y algo que siempre recomiendo es que se tenga un cliente standar (heidisql, ems firebird, navicat) y recomiendo aunque no me pagan por ello el dbeaver (http://dbeaver.jkiss.org).

Saludos.

Gracias por vuestra ayuda. Mañana sin falta haré la prueba. Otra pregunta: Si empleo la sintaxis que me recomendáis (IP, unidad física, ruta completa hasta la base de datos), ¿es necesario incluir el puerto de conexión? Es decir, ¿quedaría así?

Cita:

192.168.1.100/3050:D:\datos\labasedatos.fdb

Yo nunca pongo el puerto porque el 3050 es el predeterminado (está guardado en el fichero del sistema), así que nunca vas a necesitar indicarlo. Salvo que lo hayas cambiado, claro.
Además, según creo recordar, usas BCB, por lo que la sintaxis de las barras creo que era poniendolas dobles: 192.168.1.100:D:\\datos\\labasedatos.fdb
Pero eso la sabrás tú mejor que yo.

Cita:

Empezado por Casimiro Notevi (Mensaje 520064)

Yo nunca pongo el puerto porque el 3050 es el predeterminado (está guardado en el fichero del sistema), así que nunca vas a necesitar indicarlo.

Muchas gracias. Probaré y os diré como ha ido.

Cita:

Empezado por Casimiro Notevi (Mensaje 519999)

Vengo ahora mismo de probarlo y sigue dando el mismo error. :(

Si un equipo conecta y el otro no conecta, está claro que el problema es el equipo que no conecta, ¿firebird cliente instalado, antivirus, firewall, etc.?

El cleinte está instalado, aunque ya empiezo a dudar que lo haya hecho de forma correcta. El firewall tiene autorizado tanto al programa como a los puertos. El antivirus no me da ningún aviso pero no me he dado cuenta de comprobarlo; lo haré mañana. :(

Lo que no veas, no te lo creas.
Y de lo que veas, créete solamente la mitad.

^\||/ Totalmente de acuerdo

El tema del telnet es probar la conectividad, si no hay respuesta de telnet o ping pues ese es el problema y deberias de revisar si los equipos se encuentran en la misma red, si tienen acceso o si hay algun problema de red.

Cita:

Empezado por bitbow (Mensaje 520157)

Están en la misma red, seguro. Desde ambos puestos se tiene acceso, vía explorador, a la carpeta en la que está la base de datos.

Cita:

Empezado por Angel.Matilla (Mensaje 520162)

Están en la misma red, seguro. Desde ambos puestos se tiene acceso, vía explorador, a la carpeta en la que está la base de datos.

No has entendido lo explicado antes: eso no tiene nada que ver.

Cita:

Empezado por Casimiro Notevi (Mensaje 520163)

No has entendido lo explicado antes: eso no tiene nada que ver.

Pues efectivamente: Me he perdido. Yo entiendo que si desde los puestos puedo acceder a la carpeta en la que se encuentra la base de datos, el programa debería acceder suponiendo que como comentabas ayer esté bien instalado el cliente FB, abiertos los puertos, etc. Mi respuesta venía por el comentario de bitbow.

Cita:

Empezado por Angel.Matilla (Mensaje 520166)

Yo entiendo que si desde los puestos puedo acceder a la carpeta en la que se encuentra la base de datos, el programa debería acceder.

No, no es así.

CLIENTE:
Los clientes únicamente hacen peticiones a una IP, por un puerto (predeterminado el 3050), se acabó, los clientes no necesitan saber más. (En todo caso la ruta a la base de datos, si no se usa alias).
192.168.1.100:c:\datos\basedatos.fdb

SERVIDOR:
El servidor está oyendo el puerto 3050, recibe una petición, la procesa y responde por el mismo puerto. Se acabó.

Por lo tanto, los clientes no necesitan saber nada más.
Por lo tanto, el servidor no tiene que compartir NADA.

Eso es todo.
Si no hay conexión con la base de datos, es por otro motivo: no está funcionando el servidor, no está funcionando el cliente, está el cable roto, está cortando la conexión el firewall, el antivirus, etc.

Creo que al final estas quedando en las mismas, el acceso mediante red (TCP IP) no es lo mismo que el acceso a puerto 3050 en este caso, que es lo que te comentaba y para eso te indico que uses el telenet o el cliente alternativo como navicat, ems u otro mientras esto no te quede claro no vas a entender bien tu problema.

Puede que tengas acceso al directorio compartido y no tengas acceso al puerto 3050 (bloqueado por firewall, antivirus o cualquier cosa), al final al firebird le vale chetos si ves o no el directorio de red pues el no lo ocupa.

Asi sencillo baja el dbeaver configura una conexion y si tienes un problema al configurar o conectar pues checa los puertos de entrada y salida en el cliente puesto que indicas que otros equipos si se pueden conectar al servidor (ahi no esta el problema).

No te compliques tanto las pruebas son simples.

Saludos.

Gracias por la sugerencia. He descargado la aplicación que me indicas y veo que, básicamente, es similar a EMS SQL Manager. Sin embargo estoy teniendo un problema para utilizarla.

Al configurar la conexión me identifica correctamente la base de datos pero cuando trato de abrirla me sale este mensaje de error.

Por más vueltas que he dado sólo encuentro un sitio en el que indicar el valor del charset, en esta pantalla de las propiedades de la conexión:

Pero a pesar de todo no consigo conectar la base de datos.

No se ven las imagenes, el charset iria por default a menos que tu configuraras algo distinto en tu base de datos.

Saludos.

Vale. A ver si ahora se ven las imágenes.

El mensaje de error es este:

Y la pantalla de configuración a la que hago referencia es esta:

El charset de la BB.DD. es ISO8859_1.

No obstante, y ya además de perplejo empiezo a estar harto, acabo estar comprobando al instalción y aparentemente los dos equipos están configurados igual; miedo me da cuando tenga que instalar la aplicación en un tercer equipo que hace falta. Tengo que hablar con la persona que les lleva el mantenimiento de la red para tratar de averiguar que demonios pasa.

Y si sustituyes el charset que sale en la pantalla (utf-8) por el que tiene la base de datos (iso8859_1, según dices) ¿tampoco conecta?

Tampoco. Me da el mismo error.

Y siogo sin poder resolver el otro problema que planteaba al prinicpio, el de exportar los listados a la unidad de red.

Se supone que el cliente firebird es la misma versión que el servidor... y también se supone que la base de datos está creada con la versión de firebird instalada.

No sé, la cosa es demasiado simple y sencilla, ¿seguro que ese ordenador funciona y no tiene virus ni cosas raras?
Cable de red tendrá, ya es por decir cualquier obviedad.

Cita:

Empezado por Angel.Matilla (Mensaje 520241)

Y siogo sin poder resolver el otro problema que planteaba al prinicpio, el de exportar los listados a la unidad de red.

Eso me lo he perdido, ¿dónde está?

Cita:

Empezado por Casimiro Notevi (Mensaje 520243)

Eso me lo he perdido, ¿dónde está?

En el primer mensaje del hilo. Aunque enpiezo a pensar que tal vez esto sí sea un problema de permisos.

Cita:

Empezado por Casimiro Notevi (Mensaje 520243)

No te creas que no barajéalguna de esas posibilidades.
El equipo tiene instaldo antivirus y está actualizado. Y funciona a la perfección.
La base de datos está creada en mi equipo (problemas de migración) pero con la misma versión del motor en ambos equipos. Acaso la única diferencia es que en el servidor está instalada la versión de 64 bits y en los puestos la de 32, pero vuelvo a lo de antes: desde uno de los equipos sí se conecta sin ningún problema y desde el otro no.
Cable de red claro que sí; de otra forma no "vería" el servidor. Además la aplicación antigua, que corre con tablas Paradox, funciona a la perfección. :)

En ese segundo punto, el de exportar los ficheros, modifiqué el código de forma que primero se crea el informe en la carpeta temporal y luego se debería copiar en la que se gaurdan todos los informes. He modificado el código dejándolo así:
El fichero en que inicialmente se guarda lo monto así:

Código PHP:


		
			
cInforme = AnsiString(getenv("TEMP")) + "\\" + UpperCase(Informe->ReportTitle + Now().FormatString("_hhnnss") + cExtInf[Destino - 2]);

De esta manera le informe se genera en el propio equipo en la carpeta temporal. Luego lo muevo a su destino real así:

Código PHP:


		
			
if (MoveFileEx(cInforme.c_str(), (AnsiString(cEntorno) + "Informes\\" + ExtractFileName(cInforme)).c_str(), MOVEFILE_REPLACE_EXISTING) == 0)
     throw("");

Evidentemente, como está puesto al principio, están los correspondientes try...catch. Pues tampoco funciona; por eso digo que ahora sí que puede ser un problema de permisos.:(

¿Y al final cómo quedó esto?

Cita:

Empezado por Casimiro Notevi (Mensaje 521707)

¿Y al final cómo quedó esto?

Pues estamos dándole vueltas. No obstante estoy totalmente convencido que es problema de permisos a niveld e la red porque el programa antiguo (con un BB.DD. Paradox) usa el mismo código y no da ningún problema, pero esto es algo que a mi se me escapa. El acceso a la BB.DD. nueva desde otros equipos, que era el otro problema, ya se arreglói.