FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error al abrir tabla en Winxp, pero en Win98 funciona, por que?
Hola foro, tengo una aplicacion realizada en delphi 5 y que utiliza tablas en paradox 7 . He estado leyendo distintos hilos sobre paradox en red y he llegado a generar el siguiente codigo:
Código:
const ENV_TEMP: PChar = 'TEMP'; ENV_TMP: PChar = 'TMP'; type Talias= Record ano: integer; nombre: string[50]; end; var Fprincipal: TFprincipal; alias: Talias; Archivoatm: File of Talias; procedure TFprincipal.configuracionred(); var temp: PChar; nombre,carpeta: string; begin //para solucionar problemas de impresion del qreport //con windows2000 y xp. //Con estas Lineas se corrigue el error que se daba con los //listados grandes. //El problema es por que la ruta del directorio //temporal es muy larga y con esto la acortamos //El directorio debe existir y en el se guardaran los distintos ficheros //temporales que genera la aplicacion cuando realiza consultas a las tablas. TEMP:= Pchar(ExtractFilePath(ParamStr(0))+'TEMPORAL'); SetEnvironmentVariable(ENV_TMP, TEMP); SetEnvironmentVariable(ENV_TEMP, TEMP); //Definir el directorio Privado y el Net //El directorio privado "privatedir" contiene los ficheros *.LCK--> (LOCK) //Archivos de bloqueo, se crean en cuanto un usuario edita un registro, //contiene la información de qué registros está modificando un usuario, //se creena en el directorio que indiquemos en "PrivateDir". Este directorio //debe estar de forma local, en cada maquina. Session.PrivateDir := ExtractFilePath(ParamStr(0)) + 'PRIV'; //El directorio "Net" contien al fichero *.NET --> Archivo que contiene //los usuarios que estan accediendo a las tablas, por eso es MUY importante //que todas las PCs apunten al servidor. Se crea, logicamente en la carpeta //previamente compartida NETFILEDIR. Es decir, este directorio debe estar //en el servidor. //buscamos el alias seleccionado. AssignFile(archivoatm,ExtractFilePath(ParamStr(0))+'Datos\ALIAS.DAT'); Reset(archivoatm); while not eof(archivoatm) do begin try read(archivoatm, alias); except on exception do begin showmessage('Fallo de lectura del alias.'); abort; end; end; if fprincipal.aliasnombre.text = inttostr(alias.ano) then nombre:= alias.nombre; end; closefile(archivoatm); carpeta:=DBGetPathAlias(nombre); //ruta del servidor. Session.NetFileDir:= carpeta+'\NET'; //definimos el el BDE si el programa esta en modo cliente (datos en otro eq.) //"LOCAL SHARE = FALSE" o esta en modo servidor (datos en el eq.) //"LOCAL SHARE = TRUE". carpeta:=ExtractFilePath(ParamStr(0))+'Datos\NET'; if DirectoryExists(carpeta) then //estamos en el servidor begin LocalShareTrue(); end else begin //estamos en el cliente. LocalShareFalse(); end; end; //Esta funcion necesita en los uses a: Registry // Function sets the "LOCAL SHARE" registry setting // to TRUE in the BDE (32-bit BDE only). procedure TFprincipal.LocalShareTrue(); var Reg : TRegistry; const BDE_LOCAL_SHARE_KEY = '\Software\Borland\Database Engine\Settings\SYSTEM\INIT'; begin Reg := TRegistry.Create; With Reg Do begin Access := KEY_READ or KEY_WRITE; RootKey := HKEY_LOCAL_MACHINE; { Write the BDE keys } OpenKey(BDE_LOCAL_SHARE_KEY, True); WriteString('LOCAL SHARE', 'TRUE'); end; Reg.Free; end; //Esta funcion necesita en los uses a: Registry // Function sets the "LOCAL SHARE" registry setting // to FALSE in the BDE (32-bit BDE only). procedure TFprincipal.LocalShareFalse(); var Reg : TRegistry; const BDE_LOCAL_SHARE_KEY = '\Software\Borland\Database Engine\Settings\SYSTEM\INIT'; begin Reg := TRegistry.Create; With Reg Do begin Access := KEY_READ or KEY_WRITE; RootKey := HKEY_LOCAL_MACHINE; { Write the BDE keys } OpenKey(BDE_LOCAL_SHARE_KEY, False); WriteString('LOCAL SHARE', 'FALSE'); end; Reg.Free; end; Este codigo lo ejecuto antes de crear el datamodule que contiene todas mis tablas. El codigo lo ejecuto y va perfectamente (creo yo). Independientemente que la aplicacion este instalada en win98 o en winxp. El problema esta en el momento que habro una tabla, ya que si lo hago desde el servidor no me da ningun tipo de problema, pero si lo hago desde el cliente me da el siguiente: Cita:
En el servidor tengo instalado win98 y en cliente winxp. Ya he probado a reparar la base de datos con sysutil y TUtility, pero ambas utilidades me dicen que las tablas estan bien. Haber si alguien puede hecharme una mano. Gracias.
__________________
El saber no ocupa lugar. |
#2
|
||||
|
||||
Lo veo todo perfecto, pero tento una duda:
Carpeta debe estar definido como \\nombreservidor\unidad\carpeta, si es así, DirectoryExist encontrará la carpeta y entonces el LocalShare no quedará configurado. Si Carpeta está definida como c:\bla blah, el BDE no trabajará bien en red. Una opción es guardar en el archivo de configuración si ese es el servidor o no. Cuando vayas a hacer el instalador, pues haces 2 copias del archivo, uno como servidor y otro como Cliente y según la instalación copias uno u otro. En cuanto al error que dices, parece que va por otro lado. Se supone (por el error que dá) que es una tabla que forma una relación Master-Detail con otra tabla, y en ese caso, primero tienes que abrir la tabla Maestra y despues la de detalle, siempre en ese orden. No veo que abras la Session y conectes el TDatabase por ningún lado, supongo que para no alargar mucho el código, como sabes, ambos deben abrirse antes de abrir una tabla. Además si están abiertos en tiempo de diseño, al ejecutarse el programa te dará errores, tienes que tener ese detalle en cuenta y desconectar el TDatabase y cerrar la Session en tiempo de diseño, al ejecutarlo lo conectas por código. En cuanto a Windows XP /98 solo he detectado un pequeño problema que el propio Windows lo dice al compartir la carpeta de la Base de Datos. Windows 98 no puede conectarse a un recurso de red que tenga más de 12 carácteres o espacios en blanco en su nombre (con el código que has puesto no sé como lo tienes, lo comento por si acaso ). Un detalle más. En caso de que el alias no esté definido, tambien puede darte errores, puedes subsanarlo así:
Saludos, da gusto ver cómo la gente hace los deberes (muy currado el código)
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
|||
|
|||
Vamos por parte:
1º.- Lo que me comentas de la duda, no te has dado cuenta que mas abajo, vuelvo a inicializar "carpeta" de esta forma: Código:
carpeta:=ExtractFilePath(ParamStr(0))+'Datos\NET'; 2º.- Como tu comentas, el error parece producido por un problema de relacion, pero no lo entiendo, ya que si ejecuto el programa desde el servidor (con win98) y habro las tablas no se produce ningún error, mientras que si ejecuto el programa desde el cliente (con winxp) me da este error. El programa es el mismo, con las mismas lineas de codigo y en el mismo orden, con lo cual no entiendo como en un lado puede darme un error de maestro-detalle y por el otro lado no. Los dos programas acceden a la misma base de datos. Asi pues, pienso que el error debe de estar producido por otro motivo. Por cual? esa es la cuestión. 3º.- Si por ahorrar codigo, no lo he puesto pero hago todo lo que dices antes de abrir las tablas. 4º.- Con la unidad de red no hay problema, ya que es el equipo que tiene WinXP el que se conecta a la base de datos a traves de ella. El que tiene Win98 tiene la base de datos de forma local. 5º.- Lo del alias, gracias por el codigo, pero yo lo que hago es que en la instalacion creo directamente los alias. Bueno, gracias por tus comentarios, pero el error sigue produciendose. Seguiré probando. Si alguien me suguiere alguna otra idea, será bien recibida. Saludos.
__________________
El saber no ocupa lugar. |
#4
|
||||
|
||||
No ví que cambiabas el valor de "carpeta" porque como has usado las etiquetas "code" se ve todo en negro y no resalta, con las etiquetas "delphi" se vería mejor
Quizás esto te sirva, es para modificar: - los bloqueos oportunistas de WinNt (desactivar ) - la cache de escritura en segundo plano (desactivar la cache en los ordenadores clientes, en tu caso, es precisamente el XP) Otra cosa no se me ocurre de momento Saludos y Suerte.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 10-10-2007 a las 20:56:52. |
#5
|
|||
|
|||
Es verdad, utilizare las etiquetas delphi.
Aun no he probado lo que me has comentado, pero te indico una situacion que se esta produciendo y no me habia dado cuenta. Como veras en el código, el directorio PrivateDir es la carpeta "Priv" que se encuentra en el patch donde se encuentra el ejecutable (ej: C:\PROG\TRANS\PRIV) y la base de datos esta alojada en "C:\PROG\TRANS\DATOS". Segun el codigo que yo pongo, los ficheros "paradox.lck" y "pdoxusrs.lck" deben crearse dentro de "Priv" y es así, pero además se crean en "DATOS", es decir, cuando ejecuto la aplicacion se crean dos ficheros (paradox.lck, pdoxusrs.lck) en "Priv" y otros dos en "Datos". Creo que esto no debe ser así. Y ademas, cuando cierro la aplicación se eliminan de forma automatica los ficheros que se habian creado en "Datos", pero los de "Priv" no se eliminan. Anteriormente me comentaste que si abria la sesion y he estado revisando el codigo y despues de asignar los directorios a la sesion , lo que hago es que al database y a las tablas le asigno el alias que apunta a la BD. Lo siguiente que hago es abrir una tabla (Tusuarios.open) y no tengo puesto nada como "Session.open". Puede ser esto la causa? Donde tendría que abrir la session? y Como? Antes de cerrar el programa, debo cerrar la session con codigo o se cierra ella de forma automatica? Bueno, haber si con estos nuevos datos, se te ocurre algo. Gracias por tus comentarios. Saludos.
__________________
El saber no ocupa lugar. |
#6
|
||||
|
||||
Los archivos lck se crean en ambas carpetas. Se deben crear en el servidor para que Paradox sepa los registros que se estan editando en toda la red.
Primero borras los lck de las 2 ubicaciones, despues abres la session y despues conectas el TDabase, por último abres las tablas. En principio, al abrir una tabla, Delphi mira a que Session pertenece, si no tiene Session, mira en el TDatabase, por último conecta el TDatabase (todo lo hace automáticamente). Ya puestos a borrar, borra tambien el archivo .NET del servidor al mismo tiempo de borrar los LCK, porque se queda en un corte de luz o apagados bruscos del sistema. Para cerrar, al revés, primero cierras la Session y despues el TDatabase, Delphi lo hace automáticamente al destruir los objetos, si obtienes algún problema puedes añadirlo, total, son 2 lineas y aclaras el código . Al usar el ConfigXP no notarás nada en especial, pero se sabe que hay que retocar esas propiedades del registro, Ians Marteens lo dice en su artículo "añadiendo estabilidad a Paradox". Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Conexion de base de datos en win98 y winxp | monicasierrar | Conexión con bases de datos | 6 | 25-05-2005 19:54:51 |
Paradox en Red con WinXP y Win98 | EstebanWeb | Conexión con bases de datos | 17 | 11-03-2005 18:10:58 |
Capturar el usuario de WinXp y Win98?? | danytorres | API de Windows | 1 | 25-01-2005 22:08:21 |
Mi Exe no funciona en Win98 | pcicom | OOP | 3 | 13-12-2004 16:43:38 |
Al llevar .dpr de WinXP a Win98 no existe .dpr y problema nombres archivo largos | images | Varios | 2 | 10-09-2004 23:25:27 |
|