Foros Club Delphi

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)
-   -   Consejos Firebird con Delphi 2010 (https://www.clubdelphi.com/foros/showthread.php?t=69492)

waly2k1 21-08-2010 15:55:16

Consejos Firebird con Delphi 2010
 
Hola muchachos, actualmente tengo una aplicacion funcionando en visual basic e interbase 7 desde ya unos años, las 24 hs. del dia los 365 dias del año sin descansar y jamas tuve ningun problema. Bueno la estoy migrando a Delphi y tengo Interbase 2009 version free. El tema es ¿Puedo usar Firebird y que me brinde la misma seguridad de interbase, a seguridad me refiero a tranquilidad de que lo que tengo es bueno y no se va a caer (en condiciones normales)?
Estoy con los componentes IBDAC y usando Stored Procedures para todo.
Espero consejos sabios de gente con mas experiencia. Saludos y desde ya muchas gracias!!!!

Casimiro Notevi 21-08-2010 16:11:12

Cita:

Empezado por waly2k1 (Mensaje 374125)
[..] tengo Interbase 2009 version free [..]

Hola, waly2k1, no existe ninguna versión free de interbase, todas son de pago. Lo que sí existe es la versión de prueba para desarrolladores, o sea, para tú programar, pero luego debes comprar las licencias para instalarlas en los "servidores/clientes" de tus clientes finales.
Cita:

Empezado por interbase
Non-expiring free edition for development use.

Y en relación a tu pregunta, por supuesto, con firebird no tendrás ningún problema, en realidad es más avanzada que interbase, tienes más posibilidades de versiones, sistemas operativos, multiproceso, etc.
Además es libre y gratis totalmente.

waly2k1 21-08-2010 16:21:27

Gracias...
 
Muy bien Casimiro, muchas gracias por tu pronta respuesta
ya empezare a usar Firebird entonces, o al menos a tenerla mas en cuenta
hace un tiempo hice un intento de usarla, pero tuve problemas con los blob de imagenes que no sabia que dialecto usar, entonces descarte y segui con MySQL.
Bueno nuevamente gracias y te consulto despues algunas dudas en cuanto a dialecto, etc.
un abrazo!
Walter

waly2k1 13-09-2010 09:37:07

Question....
 
Hola Casimiro,
Tengo en mi codigo esta linea que inserta una imagen en una tabla de una bd, ya sea access, mysql, sqlserver y nose que otra. Pero en Firebird 2.1 no me funciona. No da error, pero no hace nada
Código:

(Data.qryCLA.FindField('IMG_RPTFINAL') AS TBlobField).LoadFromFile(sPIC);
Data.qryCLA es una consulta de lectura/escritura, probé varios metodos que encontre en la web y en todos pasa lo mismo, La consulta está bien, está en edicion, probé con begin y commit transaction y todo lo que se me hubiera ocurrido, pero no dio resultado. Con el EMS-IBManager puedo actualizar perfectamente en ese campo la imagen que quiera.
El campo es de Tipo Blob, tamaño de segmento=20 y subtipo=0.

Si tienes un ejemplo valido o el link te estaria muy agradecido. Si lo deseas
podria postearte todos los ejemplos que no me funcionan, pero no creo sea
necesario

Bueno, es todo por el momento. Desde ya muchas gracias por tu tiempo!!!
Saludos,
Walter

Casimiro Notevi 13-09-2010 10:16:29

Hola, con esa línea de código únicamente no puedo decirte si todo está bien o hay algo mal :)

Puedes hacer una búsqueda por clubdelphi, es un tema que se ha tratado infinidad de veces. Por ejemplo... aquí.

waly2k1 13-09-2010 11:00:26

Solucionado
 
Ya lo solucione, muchas gracias!
Lo hice desde un Stored Procedure
Posteo por las dudas el codigo por si a alguien le sucede lo mismo,
es un poco mas largo que una simple linea, pero funciona.

Código:

var
    SP:TIBCStoredProc;
begin
    SP := TIBCStoredProc.Create( Self );
    SP.StoredProcName := 'SP_LOGO_UPD';
    SP.Prepare;
    SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob );
    Data.IBCTran.StartTransaction;
    SP.ExecProc;
    Data.IBCTran.Commit;

Saludos y gracias por tu tiempo!!!
Walter

Casimiro Notevi 13-09-2010 11:08:26

Cita:

Empezado por waly2k1 (Mensaje 376174)
Código:

var
    SP:TIBCStoredProc;
begin
    SP := TIBCStoredProc.Create( Self );
    SP.StoredProcName := 'SP_LOGO_UPD';
    SP.Prepare;
    SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob );
    Data.IBCTran.StartTransaction;
    SP.ExecProc;
    Data.IBCTran.Commit;

Saludos y gracias por tu tiempo!!!
Walter


No olvides liberar la memoria del SP!!!

Código:

var
  SP:TIBCStoredProc;
begin
  try
    SP := TIBCStoredProc.Create( Nil );
    SP.StoredProcName := 'SP_LOGO_UPD';
    SP.Prepare;
    SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob );
    Data.IBCTran.StartTransaction;
    SP.ExecProc;
    Data.IBCTran.Commit;
  finally
    SP.Free;  //  <-----
  end;
end;


waly2k1 13-09-2010 11:15:34

Liberar memoria?
 
Nunca lo hice y no se me hubiera ocurrido
Estoy finalizando mi aplicacion y 100% SP, pero nunca liberaba la memoria utilizada.
Muchas gracias nuevamente!

Saludos,
Walter

Casimiro Notevi 13-09-2010 11:33:26

Pues no lo olvides, es primordial.
Los objectos que nosotros creamos... nosotros lo liberamos.
Los objetos que crea delphi... los libera delphi.

Tu programa irá cogiendo cada vez más y más memoria, cada vez ocupará más en la memoria, surgirán problemas de punteros a memoria direccionada, ¡¡¡crash!!! ;)
¿por qué me sale "acces violation etc...? por eso.

Delfino 21-09-2010 00:19:49

Código Delphi [-]
SP := TIBCStoredProc.Create( Self );
Cuando creas un componente con un Owner (Self) se destruye cuando se destruye el owner.

Mas eficiente es crear el objeto sin owner :
Código Delphi [-]
SP := TIBCStoredProc.Create(nil);
En este caso hay q destruirlo. Sino AV asegurada :eek:
Código Delphi [-]
SP.Free;

Delfino 21-09-2010 16:01:33

Aqui se explica pq hay q utilizar mayoritariamente el owner nil.

Por cierto, si tienes Delphi2010 puedes usar los dbExpress con el driver de Firebird q viene incluido..

Casimiro Notevi 21-09-2010 16:14:46

Cierto, se me olvidó mencionar que si se crea con (self) no hace falta liberar la memoria porque lo hace el (owner).

Delfino 23-09-2010 16:42:58

Cita:

Empezado por Casimiro Notevi (Mensaje 376997)
Cierto, se me olvidó mencionar que si se crea con (self) no hace falta liberar la memoria porque lo hace el (owner).

El caso es q no es eficiente crear los objetos con Self como owner como se explica en el articulo mencionado arriba. Mejor con nil y liberarlos inmediatamente..

Casimiro Notevi 23-09-2010 17:00:30

Cita:

Empezado por Delfino (Mensaje 377282)
[..] Mejor con nil y liberarlos inmediatamente..

Pues sí, mejor tomar el control :)

waly2k1 24-09-2010 22:56:39

Cita:

Empezado por Delfino (Mensaje 376993)
Aqui se explica pq hay q utilizar mayoritariamente el owner nil.

Por cierto, si tienes Delphi2010 puedes usar los dbExpress con el driver de Firebird q viene incluido..

Intente usar dbExpress pero maaal, un dblockupcomboBox por ejemplo me
cargaba mas de 5 veces el mismo item y al hacer click abortaba todo, la
consulta era un simple select de una tabla, o sea no habia records repetidos.
Y asi vi varios casos donde no funcionaba o funcionaba muy mal que es peor.
Luego lei por ahi que estos objetos no funcionaban bien con versiones de
firebird superiores a la 2.1. Asi que buscando encontre estos que andan muy
bien gracias a Dios!. Yo vengo de MySQL con Zeos y no tengo quejas, pero
queria algo mas nuevo o quizas mas especifico para Firebird que Zeos.

Muchas gracias a todos por los consejos que son enormemente recibidos!!!
Walter

Lepe 25-09-2010 15:01:39

Casimiro, quizás sea un error, o quizás me olvido de algo, pero, ¿el crear el objeto no debería estar fuera del try?
Código Delphi [-]
var
  SP:TIBCStoredProc;
begin
  SP := TIBCStoredProc.Create( Nil );
  try
    SP.StoredProcName := 'SP_LOGO_UPD';
    SP.Prepare;
    SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob );
    Data.IBCTran.StartTransaction;
    SP.ExecProc;
    Data.IBCTran.Commit;
  finally
    SP.Free;   //   <-----
  end;
end;

La razón es que si hay un error al crear ese objeto, en tu código iría al finally a destruirlo y muy posiblemente dará otra excepción porque no se pudo destruir (al no estar totalmente creado) ¿no?

Casimiro Notevi 25-09-2010 16:18:56

Pues sí, por lógica, si se va a crear un objeto, será conveniente hacerlo fuera del try .. finally. Tienes razón.

Delfino 26-09-2010 17:50:09

Cita:

Empezado por waly2k1 (Mensaje 377454)
Intente usar dbExpress pero maaal

Lo hiciste con ClientDataset o con SQLDataset directamente?

waly2k1 27-09-2010 21:56:30

Cita:

Empezado por Delfino (Mensaje 377552)
Lo hiciste con ClientDataset o con SQLDataset directamente?

Hum no recuerdo...
pero si, fallaba sin sentido, entonces opte por los IBDAC

Ahora, que es mejor?, o sea la mejor opcion para trabajar con Firebird, si es free$ mejor aun. El tema es que sean objetos actualizables frecuentemente.
O bien como aconsejas el uso de dbExpress?.
Sino buscare despues ejemplos, pero como les decia antes, no tengo ni un poco de XP en Firebird, trabaje antes con interbase y anduvo muy bien, sql server, mysql, etc. Recien veo firebird y va muy bien la cosa, estoy muy confome realmente.
Saludos y muchas gracias muchachos!!!
Walter

mcs 28-09-2010 08:42:40

Cita:

Empezado por Lepe (Mensaje 377484)
Casimiro, quizás sea un error, o quizás me olvido de algo, pero, ¿el crear el objeto no debería estar fuera del try?
Código Delphi [-]var SP:TIBCStoredProc; begin SP := TIBCStoredProc.Create( Nil ); try SP.StoredProcName := 'SP_LOGO_UPD'; SP.Prepare; SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob ); Data.IBCTran.StartTransaction; SP.ExecProc; Data.IBCTran.Commit; finally SP.Free; // <----- end; end;


La razón es que si hay un error al crear ese objeto, en tu código iría al finally a destruirlo y muy posiblemente dará otra excepción porque no se pudo destruir (al no estar totalmente creado) ¿no?

Aquí no daría error, ya que la creación del objecto SP es anterior al bloque try...finally.


La franja horaria es GMT +2. Ahora son las 19:06:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi