Club Builder

[ZHAX1]

Gracias de ante mano, Utilizo en mis aplicaciones en red habitualmente la siguiente configuracion sin problemas, usando paradox.

Declaro un componente TSesion, indicando siempre por ejemplo:
DM->sesi->PrivateDir = ".\\TMP\\";
DM->sesi->NetFileDir = "D:\\";

Siendo DM un data module y sesi el componente TSession, el netfile dir siempre uso el mismo para todos, caracter a caracter.

Todas las TTables y TQuerys usan la sesion que creo y para ello pongo el nombre de la sesion. Tambien en estas configuro el DatabaseName introducioendo la carpeta donde se encuentran las tablas paradox.

Hasta aqui siempre me ha funcionado bien en red sin ningun probema.

El problema surge cuando uso mas de 1 programa en el mismo pc, me acaba apareciendo el famoso directory is busy. Por ejemplo si ejecuto el programa 2 veces, el segundo en cargar falla (directory is busy) y aunque siempre me encargo de borrar los .lck y el .net, en este caso no tiene sentido ya q la aplicacion ya estaba abierta, es decir, no puedo abrir 2 veces la aplicacion a la vez en el mismo pc.

Además también me ocurre que puedo tener la aplicacion en distintas carpetas, en el mismo pc, e incluso otras aplicaciones que usen paradox corriendo en mi pc sin ningun problema, pero cuando tengo 2 aplicaciones mias corriendo sobre la misma base de datos, aunque esten en carpetas distintas, pero en el mismo pc, pasa lo siguiente:

Mi primera aplicacion carga bien, genera los lck y el .net.
La segunda carga bien, genera sus lck y en su private dir y funciona bien.
Pero si cierro la segunda aplicacion y la vuelvo a abrir, ERROR: directory is busy

y hasta que no cierro todas las aplicaciones que corren en paradox no vuelve a funcionar.

En resumidas cuentas usando pcs distintos no tengo problemas, pero usando mas de una aplicacion en el mismo me acaba saltando el error.

Huyo del componente TDatabase, lo he intentado usar pero siempre me da Param error, y no se si me solucionaria algo, tambien huyo de los aliases porque hasta ahora no me han echo falta, he estado mirando codigo por ahi en el foro, algo parecido a lo siguiente:

[Luis Anibal]

Yo tuve el mismo problema, lo he solucionado poniendo el siguiente codigo en el ONCREATE de mi datamodule.

void __fastcall Tdm::dmCreate(TObject *Sender)
{
#define KEY_INSTANCIA "Instancia"

AnsiString exename = ExtractFilePath(Application->ExeName);

AnsiString rkey = REGWIN_Leer(KEY_INSTANCIA); // lee instancia
if ( rkey.Length()==0 )
rkey = "0"; // si no existia la pone en cero

rkey = ( StrToInt(rkey)==0 ? "1" : "0" ); // cambia 0 x 1 o 1 x 0
REGWIN_Grabar(KEY_INSTANCIA, rkey); // graba nuevo rkey

TIniFile *pDBIni = new TIniFile( exename + "\\GestCred.ini" );

db->Connected = false; // desconecto la DB
Session->Active = false; // tambien la session

// establezco private dir
Session->PrivateDir =
pDBIni->ReadString("PRIVATEDIR", "PDIR", "C:\\windows\\temp" );

if ( rkey=="1" ) // si es la segunda instancia
{ // le agrego un nivel al Private Directory
Session->PrivateDir = Session->PrivateDir + "\\2";
if ( !DirectoryExists(Session->PrivateDir) ) // no existe ?
ForceDirectories(Session->PrivateDir); // LO CREA ...
}

Session->Active = true; // ahora conecto la session y la DB
db->Connected = true;


A continuacion las definiciones de REGWIN_Grabar
y REGWIN_Leer. Que las he tomado de las colaboraciones
de este foro.
//---------------------------------------------------------------------------
void REGWIN_Grabar(AnsiString clave, AnsiString valor)
{
#define KEY_CLAVE "Software\\GestionCreditos"

TRegistry *rg = new TRegistry;
rg->RootKey = HKEY_CURRENT_USER;

if ( rg->KeyExists( KEY_CLAVE ) )
rg->CreateKey( KEY_CLAVE );

rg->OpenKey(KEY_CLAVE,true);

rg->WriteString(clave,valor);

delete rg;
}
//---------------------------------------------------------------------------
AnsiString REGWIN_Leer(AnsiString clave)
{
AnsiString valor = "";
TRegistry *rg = new TRegistry;
rg->RootKey = HKEY_CURRENT_USER;

if ( rg->KeyExists( KEY_CLAVE ) )
{
rg->OpenKey(KEY_CLAVE,true);

valor = rg->ReadString(clave);
}
delete rg;

return valor;
}


----------------------------
En sintesis, cuando entra la segunda instancia cambia el PRIVATEDIR de la Session. La misma tecnica la puedes mejorar para permitir que el usuario pueda abrir el programa la cantidad de veces que quiera.
Particularmente, prefiero que NO lo haga.
Saludos amigo !!
_________________
Luis Anibal Mendez
Analisis, Programacion, Asesoramiento
luisanibalmendez@gmail.com

[ZHAX1]

vale el tema consiste en cambiar el private dir, como bien dices, para que no coincida y no se bloquee, pero es que yo tengo el problema aunque esten en carpetas distintas, es decir, mis private dir son distintos, ya he explicado arriba como hago me conecto a la base de datos usando solo TSesion, TTable y TQuery.

No uso ni alias ni el componente TDatabase, como ya explique el TDatabase me pide parametros y contraseñas que no se darle.

Me gustaria saber como hace la gente exactamente para crear sus aplicaciones bde en red sin tener los problemas que yo tengo, que en resumidas cuentas es abrir varias de mis aplicaciones bde, sean cuales sean en el mismo pc, que es cuando acabo obteniendo el Table is Busy.

Gracias por contestar.

[Angel]

[ZHAX1]

siempre borro los lcks, y ya he probado ese codigo, pero algo he de hacer mal o algo me falta porque si no no lo entiendo, en el codigo que puse ya se ve que he utilizado ese ejemplo, pero gracias por responder.

[Angel]

[ZHAX1]

Gracias, ya se para que sirve el pdoxusrs.net, hasta ahora eso se me creaba al activar el motor de la bd, en mi caso DM->Session->Active=true;

Cuando tenga un rato haré mas pruebas y trataré de simplificar todo al maxima y a ver que resultados obtengo.