Hola todos..

Si quisiera usar un sistema que usa firebird en otra m�quina (no donde est� el sistema ni el servidor de bd), sin andar copiando el ejecutable, obviamente debo tener la carpeta donde est� el sistema compartida. He probado estas 2 formas sin �xito. (aclaro que est� abierto el puerto 3050 en el firewall).

a) Supongamos que no uso los alias de firebird:
En la carpeta donde esta el sistema tengo un ini que uso para establecer los valores de la conexion a firebird:
[DB]
hostname=192.168.1.103
database=d:\carpeta\base.fdb
[Reportes]
path=d:\carpeta\Informes\

esos valores los asigno a las propiedades correspondientes del zconnection (zeos) al inicio.
Una configuraci�n as� funciona perfecto en el servidor, pero en la otra m�quina:

si en la estaci�n de trabajo hago accesos directos de estas formas al ejecutable:
\\pc\d\carpeta\sistema.exe

o mapeando una unidad de red:
z:\carpeta\sistema.exe

no me puedo conectar a la base de datos.

b) suponiendo que defino un alias.
al ini lo modifico:
hostname=192.168.1.103
database=nombre_del_alias
[Reportes]
path=d:\carpeta\Informes\

Tampoco logro conectarme a la base de datos desde la estaci�n de trabajo (desde la misma m�quina donde est� el ejecutable no tengo problemas).

�D�nde est� el problema?

La otra forma, que si me funciona, es tener el ejecutable y su ini en cada m�quina. pero le veo el inconveniente de que es engorroso andar cambiando los exes cuando se hacen actualizaciones.

muchas gracias
chauuuuuuuuu

El 23/10/2010 05:15 p.m., Paola Bruccoleri escribi�:

me contesto sola.... porque dp de tanta prueba al final termina saliendo...

en la carpeta del ejecutable ten�a a firebird.dll, pero me faltaban estas otras!!!!:

icudt30.dll
icuin30.dll
icuuc30.dll

(se que en alguna prueba tb hab�a puesto a msvcp80.dll y msvcr80.dll pero probando ahora, si no las tengo, funciona igual..)

chauuuuuuuuu

Hola a todos
soy nueva en esto de lazarus, necesito hacer una coneccion a una base de datos utilizando firebird, pero no se como hacerlo, lo unico que he hecho es instalar firebird, y alli me quedo,
De antemano gracias por su ayuda!

El 03/11/2010 08:55 p.m., Lissy Amador escribi�:

Hola Lissy..

puedes comenzar leyendo:
http://lazaruszeos.blogspot.com/

que aunque usa sqlite puedes usar perfectamente cq motor de bd.

otra:
http://cacharreandoando.blogspot.com/2008/03/nuestra-primera-aplicacion-con-lazarus.html

http://delphirus-novatos.blogspot.com/
http://purihuaman.blogspot.com/

foro:
http://hispalazarus.tk/

chauuuuuu

Gracias Paola
solo tngo una duda por que usar zeos, porque no solo se trabaja con los componetes que lazarus ya trae

El 03/11/2010 10:03 p.m., Lissy Amador escribi�:

Gracias Paola solo tngo una duda por que usar zeos, porque no solo se trabaja con los componetes que lazarus ya trae

porque los han recomendado muy bien!!.. la verdad, no tengo argumentos por unos u otros..
chauuuuuuu

Hola
Sobre los componentes SQLDB que vienen con Lazarus, los uso en producci�n hace un a�o y medio. Aunque no me manejo con Data Controls (DbGrid,DBedit,etc) para ingresar datos (hace un a�o ten�an algunos errores)

Ventajas
- Ya vienen con cualquier versi�n de Lazarus. (son los oficiales)
- Son livianitos
- Son muy estables, en red local y por internet

Desventajas en Firebird
- No se puede mantener varias transacciones abiertas en una sola conecci�n. (es un error ya reportado)

Saludos

Puedes usar el componente TIBConnection.

Yo tampoco uso ZEOS y me va con lo poco que he realizado me va muy bien (solo pruebas he realizado pruebas y alguna que otra cosa muy, pero muy sencilla).

A mi tampoco me gusta usar ZEOS, pero es m�s bien una cosa de gusto.

Saludos
=========
|| ISMAEL ||
=========

Est�s seguro que no se pueden tener 2 transacciones abiertas?

Yo hice la siguiente prueba de concepto y funcion� perfecto:

  rse.Close;
  if trae.Active then trae.EndTransaction;
  rse.SQL.Clear;
  rse.SQL.Text:='select * from scempresa order by codigo';
  trae.StartTransaction;
  rse.Open;
  rsi.Close;
  if trai.Active then trai.EndTransaction;
  rsi.SQL.Clear;
  rsi.SQL.Text:='select * from scelemento order by codigo';
  trai.StartTransaction;
  rsi.Open;
  icod:=0;
  while (not rse.EOF) and (icod < 5) do begin
   Application.MessageBox(pchar(rse.FieldByName('codigo').AsString + ' ' +
rse.FieldByName('descripcion').AsString), pchar(Self.Caption), 0);
    icod := icod+1;
   rse.Next;
  end;
  icod:=0;
  while (not rsi.EOF) and (icod < 5) do begin
   Application.MessageBox(pchar(rsi.FieldByName('codigo').AsString + ' ' +
rsi.FieldByName('descripcion').AsString), pchar(Self.Caption), 0);
    icod := icod+1;
   rsi.Next;
  end;

Saludos
=========
|| ISMAEL ||
=========

Hola Claudio !
Cuando te refieres que una de las desventajas de transacion en firebird te refieres al uso de componentes de lazarus y firebird, o solamnete es una desventaja de firebird.

Si fuera una desventaja de firebird entonces para ti cual seria la mejor opcion para hacer conecciones a bases de datos

Es un error de SQLDB, que se soluciona con un par de trucos: Usar una coneccion para cada transaccion o poner cambiar una propiedad de SQLQuery.UsePrimaryKeyAsKey (aunque no funcionaria ApplyUpdates, que yo no uso)
http://bugs.freepascal.org/view.php?id=12956

Esto es solo si necesitas mantener abiertas varias transacciones al mismo tiempo.

No probe con Zeos este error en particular.
Por ej. flamerobin (lenguaje C) usa IBPP que no tiene este problema.

Es algo para tener en cuenta.

Claudio la verdad que no se, pero yo acabo de hacer un test con 1 conexi�n, 2 transacciones y 2 querys y funciona bien al menos para realizar consultas. No lo prob� para actualizar datos.

Saludos Reiterados.
=========
|| ISMAEL ||
=========

Funciona, pero no del modo correcto

Aqui hay un ejemplo
http://bugs.freepascal.org/view.php?id=12956

**--
procedure TForm1.Button1Click(Sender: TObject);
begin
    //without try .. finally ..
    //for this example uses table p_ucm_a with blob field in linux firebird
    //I Use a BLOB field, because before this issue caused 'Invalid BLOB ID'
    if not opendialog1.Execute then exit;
    IBConnection1.open;
    //--
    if SQLTransaction1.Active then showmessage('SQLTransaction1.active=true')
    else showmessage('SQLTransaction1.active=false');
    if SQLTransaction2.Active then showmessage('SQLTransaction2.Active=true')
    else showmessage('SQLTransaction2.Active=false');
    SQLQuery2.close;
    SQLQuery2.sql.clear;
    SQLQuery2.sql.add('select * from p_ucm_a');
    SQLQuery2.Transaction:= SQLTransaction2;
    if not SQLTransaction2.active then SQLTransaction2.StartTransaction;
    SQLQuery2.open;
    //--
    if SQLTransaction1.Active then showmessage('After SELECT
(SqlQuery2) SQLTransaction1.Active=true')
    else showmessage('After SELECT (SqlQuery2) SQLTransaction1.Active=false');
    if SQLTransaction2.Active then showmessage('After SELECT
(SqlQuery2) SQLTransaction2.Active=true')
    else showmessage('After SELECT (SqlQuery2) SQLTransaction2.Active=false');
    SQLQuery1.close;
    SQLQuery1.sql.clear;
    SQLQuery1.sql.add('update p_ucm_a set memo=:memo where clave_adhe=4');
    SQLQuery1.Transaction:=SQLTransaction1;
    SQLQuery1.params.paramByName('memo').LoadFromFile(opendialog1.filename,ftBlob);
    if not SQLTransaction1.active then SQLTransaction1.StartTransaction;
    SQLQuery1.ExecSQL;
    SQLTransaction1.Commit;
    SQLTransaction2.Commit;
    //
end;

*--

La segunda consulta usa la primera transacci�n, en vez de la segunda transacci�n. Lo que da unos lios terribles en algunos casos, yo tenia errores cuando maneja BLOBs.

El l�o est� por el c�digo que empleaste para mi entender, no por errores de implementaci�n. Al menos es lo que veo.

Adem�s no necesitas SQLTransaction2.Commit; ya que no has editado nada con ese query.

No podremos esperar que nos salga todo bien si ponemos cosas mal en el c�digo.

Mis m�s sinceros saludos
=========
|| ISMAEL ||
=========

Hola otra vez
estuve revisando los link que me envias, ha proposito gracias

http://purihuaman.blogspot.com/
Al verificar como funciona obtengo error: l alibreria sqlite no ha sido identificada o encontrada.
Para slucionar esto descarge sqlite3.dll pero sigo con el mismo problema

Tambien intente instalar Zeos en Lazarus
y obtengo un error, no me muestra los componentes de zeos Como puedo arreglar esto.

El 04/11/2010 09:04 p.m., Lissy Amador escribi�:

Hola Lissy.. no he usado sqlite, pero creo que solo alcanza tener esa dll en la misma carpeta del proyecto..

Hola,

Ese ejemplo lo puse hace tiempo, por favor dime cual es para revisarlo y te digo como corregirlo.

Saludos.

Fredy G.

descargo, ejecuto cualquiera de tus ejemplos y me muestra el error no se encuentra la libreria sql3.dll

Hello Lissy,

Friday, November 5, 2010, 12:04:37 AM, you wrote:

LA> Hola otra vez
LA> estuve revisando los link que me envias, ha proposito gracias LA> http://purihuaman.blogspot.com/
LA> Al verificar como funciona obtengo error: l alibreria LA> sqlite no ha sido identificada o encontrada.
LA> Para slucionar esto descarge sqlite3.dll pero sigo con el mismo problema LA> Tambien intente instalar Zeos en Lazarus
LA> y obtengo un error, no me muestra los componentes de zeos LA> Como puedo arreglar esto.

La sqlite3.dll debe de estar visible para ello:

Lazarus: O bien en donde tengas el lazarus.exe o en el path del sistema.

Aplicaci�n: O bien en la carpeta donde tengas el exe de tu aplicaci�n o bien en el path del sistema.

A mi en el path del sistema no me gusta tener nada que no sea del sistema operativo, as� que tengo una copia de la DLL en Lazarus y otra copia en cada uno de los proyectos que usan sqlite.

Hola a todos/as...
Lo mio es simple (en apariencia, hasta ahora no pude hacerlo andar ), quiero ponerle a mi aplicaci�n un Splash screen, y por mas que googlee y revis� miles de ejemplos (incluida la web de Lazarus), no vi un ejemplo expl�cito de c�mo hacerlo...todos muestran partes de c�digo de lpr, pero no detallan c�mo...si alguien tiene un ejemplo, agradezco.Ya defin� el formstyle como fsSplash, lo puse para que se cree autom�ticamente y no hay caso...acudo a la ayuda del foro...

El 29/12/2010 04:47 p.m., Walter Mes�n escribi�:

Hola Walter..
la quer�s para pedir por ejemplo el user/pass o para que desaparezca despu�s de x tiempo?
byeeeeeee

El 29/12/2010 04:47 p.m., Walter Mes�n escribi�:

ya vistes esto?
http://wiki.lazarus.freepascal.org/Adventures_of_a_Newbie

Hola Paola...

Es para ocultar el retardo de una aplicaci�n que estoy haciendo...una agenda, con el Splash "entretengo" al usuario hasta que se abra el form principal.Vi tu mail sobre lo que te pas� a vos con el tema del login, lo quise adaptar pero parece que no me sirve...
Salutes...

Hola Paola...

Lo mio es simple (en apariencia, hasta ahora no pude hacerlo andar ), quiero

Si...tambi�n lo vi, pero hay algo que falta...yo tengo dos form, el splash y el principal, lo us� para mi ejemplo y me daba un error como que no exist�a el splash.Us� el .lpr de ese link...algo me est� saliendo mal... El splash lo pongo en el autocreate, pero, el form principal, tambi�n hay que "autocrearlo" ?

El 29/12/2010 06:04 p.m., Walter escribi�:

yo en el que hice para el login, al form de login no lo puse en la lista de "autocreados".
voy a probar el ejemplo de la wiki....

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20101229/3652ea35/attachment.html>

Walter yo en lo personal no conozco nada de Lazarus, pero lo que tengo es un formulario normal sin bordes y lo muestro de la siguiente forma:

  Application.CreateForm(Tfrmsplash, frmsplash);
  frmsplash.Show;
...
...
   frmmp.Show; //muestro el formulario principal
   frmsplash.Free;

Saludos
=========
|| ISMAEL ||
=========

Hello Walter,

Wednesday, December 29, 2010, 9:04:08 PM, you wrote:

W> Si...tambi�n lo vi, pero hay algo que falta...yo tengo dos form, el splash y W> el principal, lo us� para mi ejemplo y me daba un error como que no exist�a W> el splash.Us� el .lpr de ese link...algo me est� saliendo mal... W> El splash lo pongo en el autocreate, pero, el form principal, tambi�n hay W> que "autocrearlo" ?

A ver, para hacer un splash, no necesitas el estilo splash, eso es simplemente para que salga por encima de todas las dem�s ventanas (si mal no recuerdo).

Un buen modo de hacerlo es dise�as el splash y el formulario principal (o m�s si hay). Vas al "autocreate" y pones el splash de primero, y luego el principal de segundo y detr�s el resto si hay. Yo luego al principal le a�ado un Timer con 500 ms. y con enabled:=false. Luego en el OnShow del principal hago:

procedure MyForm.OnShow(...)
begin
  if Assigned(frmSplash) then SplashTimer.Enabled:=true;
end;

Y en el evento OnTimer del Timer pongo:

procedure TTimer1.OnTimer(....)
begin
  FreeAndNil(frmSplash);
  TTimer1.Enabled:=false;
end;

De este modo consigues que el splash salga al principio de todo, y que se quede 1/2 segundo visible despu�s de que cargue el formulario principal, asegurando que el splash no aparezca/desaparezca muy r�pido y de la sensaci�n de que ha sucedido un error.

En el .lpr puedes necesitar (especialmente si no es Windows) meter despu�s de la linea que crea el splash, un "frmSplash.Show; Application.ProcessMessages;" para que se dibuje el splash por completo.

La secuencia de eventos que suceden es:

1) Se crea el splash.
2) Se muestra el splash.
3) Se crea el principal.
4) Se muestra el principal.
5) Se ejecuta OnShow del principal, activando el timer.
6) 500 ms despu�s de desactiva el timer, y se elimina el splash Y se pone la variable del splash a NIL de modo que aunque se vuelva a ejecutar el OnShow del principal el timer no se activar� de nuevo.

Hola, sigo la misma metodolog�a que te indica Jos� ( joshyfun ) y funciona a la perfecci�n.

En el lpr
- Crear y show del splah
- Crear main form

En el main form
- destruir el form splash

P.S: (Para Jos�)
Me ha gustado mucho la idea del TTimer con el retraso, as� que te la copiar� ( si no hay inconveniente ).

________________________________________________________________________

ARTEX TRADING S.A.
Jos� Antonio Cuello Principal

El mi�, 29-12-2010 a las 15:47 -0300, Walter Mes�n escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20101230/72efe091/attachment.html>

Hola Paola...

La lo hice andar, pero tiene un peque�o retardo en cargarse (el tipico retardo del arranque de los programas hechos en Lazarus), me lo muestra una mil�sima de segundo y despu�s aparece el form principal.En lineas generaes, funciona, pero con velocidades "no deseadas", asi que voy a seguir los pasos que me indican los chicos.
Despu�s te paso el link del programejo para que lo pruebes y copies lo que necesites.All� hago uso de todos los "vicios" de programaci�n, incluidos el uso de componentes "non santos" como las RX y hasta ahora, funciona...jajajajaja...!!!, �pudiste con tu reloj marcador de horarios...?

Hola Jose...
Muchas gracias por tus indicaciones, siempre muy completas. Efectivamente, ahora mi Splash funciona, pero desaparece demasiado r�pido, asi voy a probar de implementar lo del retardo...pruebo y cuento...

Hello Walter,

Hola Jose...
Nuevamente, gracias por tu ejemplo, lo implement� y funciona perfecto, haciendo un mix con las demas sugerencias de los forista.Gracias a todos. Me queda una sola duda, que es la siguiente :
Si bien con el ejemplo del splash se hace evidente, me pasa con todos los ejecutables que voy creando.
Cada vez que le doy doble click al .exe y hasta que aparece el form principal (en mi caso ahora seria el splash), hay un retardo casi del mismo tiempo del que se muestra el splash.Reviso el sistema pero no veo nada que se cargue en el inicio como para tener ese retardo...no medi el tiempo pero me animar�a a decir que es casi igual al timer que le puse al splash, 3000 ms.

�Que podr� ser...?, o al menos, �que tendria que tener en cuenta para que se acelere el arranque...?

Nuevamente, gracias....

El 29 de diciembre de 2010 18:06, Jos� Mejuto <joshyfun en gmail.com> escribi�:

Hello Jos�,

Thursday, December 30, 2010, 10:47:15 AM, you wrote:

JAC> P.S: (Para Jos�)
JAC> Me ha gustado mucho la idea del TTimer con el retraso, as� que te la JAC> copiar� ( si no hay inconveniente ).

jejeje, revisa los datos de la licencia de uso (EULA) :) :) :)

Feliz 2+0=1+1

Hello Walter,

Thursday, December 30, 2010, 1:34:30 PM, you wrote:

W> �Que podr� ser...?, o al menos, �que tendria que tener en cuenta para que se W> acelere el arranque...?

Pueden ser varias cosas, por ejemplo si comprimes el exe con UPX esto provoca que todo el exe se cargue en memoria y se ejecute todo junto inutilizando la carga selectiva de partes que hace windows.

Otra causa puede ser un antivirus.

Si no es una de estas lo m�s probable es que sucedan cosas en tu ejecutable de las que no eres consciente de que te est�n retrasando el lanzamiento. Una vez que lanzas un ejecutable de fpc/Lazarus suceden ciertas cosas por orden:

1) Se carga el exe
2) Se ejecutan todos los "initialization" de todas las units usadas en el programa. Lo que no estoy seguro es si se lanzan las que aparecen en el .lpr o todas.
3) Se ejecuta el begin...end del .lpr

Lo m�s probable es que tengas muchos forms y est�s usando el formato de recursos lazarus "*.lfr". Si es as� en el initialization se cargan e interpretan esos recursos lo cual consume cierto tiempo especialmente si los forms tienen muchas im�genes.

Haz una copia de seguridad de todo y despu�s en el .lpr elimina del uses todo lo que no necesites en el .lpr, esto es, normalmente s�lo dejar�as algo como:

uses

  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms,
  ufrmprincipal, ufrmsplash
  { you can add units after this };

Resumiendo, dejar s�lo lo b�sico y los forms que uses en el .lpr nada m�s.

Ah! y en el .lpr pon algo como esto:

var
  j: integer;
begin
  Application.CreateForm(TfrmSplash,frmSplash);
  frmSplash.show;
  for j := 1 to 10 do
  begin
    Application.ProcessMessages;
  end;
  Application.CreateForm(TfrmPrincipal,frmPrincipal);
  Application.Run;
end;

Si as� no cambia el tiempo de arranque (hasta que sale el splash screen) entonces s�lo queda hacer una prueba, cambiar el .lpr por:

begin
  Application.CreateForm(TfrmSplash,frmSplash);
  Application.Run;
end;

Y comparar los tiempos, si son similares el "problema" est� en los initialization casi seguro. Si son bastante/muy diferentes entonces hay que cambiar el sistema de splash.

Si no he entendido la pregunta pulsa ESC :)

Hola a todos/as...
Estoy preparando un reporte en LazReport al que tengo que acotar el rango de datos a mostrar.
Hago :

   frDBSDatos.RangeBegin:=rbFirst;
   frDBSDatos.RangeEnd:=reLast;

o

   frDBSDatos.RangeBegin:=rbCurreant;
   frDBSDatos.RangeEnd:=reCurrent;

y al compilar, me da el mensaje de error en compilaci�n :

Genericos\ABM\frmprincipal.pas(297,38) Error: Identifier not found "rbFirst"
Genericos\ABM\frmprincipal.pas(298,35) Error: Identifier not found "reLast"

Ya prob� de varias formas y no hay caso, me da distintos errores, aunque viendo el c�digo fuente del LazReport estar�a bien...

�Alguna sugerencia...?

Hola Jose...
Nuevamente, gracias por los datos...voya ir probando paso a paso tus indicaciones y escribo los resultados, para ser usado en caso de consultas posteriores en el foro...

Much�simas gracias...

El 30 de diciembre de 2010 10:32, Jos� Mejuto <joshyfun en gmail.com> escribi�:

El 30/12/2010 09:17 a.m., Walter escribi�:

por mi us� lo que quieras!! jajaja.. yo solo prob� el ejemplo que saqu� de la wiki y me funcion�!!... :)
por ahora no he usado eso.. pero mejor que lo hagas ahora, as� est� pronto para otra ocasi�n, no te parece??

todav�a ando con eso del reloj... pero no se atras� x mi culpa sino x el tema c�lculos, que tengo muchas dudas que ellos no me aclaran y el hijo del due�o, que tb es contador, qued� en averiguarme sobre algunos decretos acerca de los descuentos de minutos llegados tardes, etc..

qu� and�s haciendo con esa agenda?? te habr� quedado re-fashion, pero ni se te ocurra mirar el c�digo JAJAJAJAJA

Hello Walter,

Thursday, December 30, 2010, 4:03:09 PM, you wrote:

WM> Genericos\ABM\frmprincipal.pas(297,38) Error: Identifier not found "rbFirst" WM> Genericos\ABM\frmprincipal.pas(298,35) Error: Identifier not found "reLast" WM> Ya prob� de varias formas y no hay caso, me da distintos errores, aunque viendo WM> el c�digo fuente del LazReport estar�a bien... WM> �Alguna sugerencia...?

Te debe de faltar un uses. En la ventana de mensajes pulsa sobre el error con el bot�n derecho y selecciona "Find Identifier" (no se como lo pone en espa�ol, lo uso en ingl�s) y te dir� en que unit est�n esos identificadores. Esta funci�n no se si necesita Lazarus 0.9.29

El 30/12/2010 10:34 a.m., Walter escribi�:

Hola Walter..
si, me hab�a percatado de eso... yo creo que la conexi�n a firebird tb tiene que ver con eso.
Vos hac�s lo mismo que en el otro sistema, de al principio hacer la conexi�n y cerrarla para ver si est� todo correcto? byeeeeeeeeeeee

Hola Paola...

La lo hice andar, pero tiene un peque�o retardo en cargarse (el tipico

por ahora no he usado eso.. pero mejor que lo hagas ahora, as� est� pronto

para otra ocasi�n, no te parece??

Asi es, cuanto antes mejor, antes de que llegue la noche...jejeje...!!!

Ah, esa parte la tuve que hacer una vez y me volv� loco...ese es un trabajo de contador...

qu� and�s haciendo con esa agenda?? te habr� quedado re-fashion, pero ni se te ocurra mirar el c�digo JAJAJAJAJA

Jajajaja...!!!, es una pinturita...!!!, est� relinda,....y funciona...!!!...jajajaja.Es una agenda hiperb�sica, pero ya la voy a ir completando con adicionales...

Aunque no estaba dirigida a mi la respuesta me ayudo a resolver la duda que hab�a planteado anteriormente.

Ahora tengo otra duda.

Como puedo convertir a may�sculas lo que valla tecleando en una columna determinada.

Saludos
=========
|| ISMAEL ||
=========