Consejos Firebird con Delphi 2010

[waly2k1]

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]

[..] 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.
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]

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]

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

(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]

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í (http://www.clubdelphi.com/foros/search.php?searchid=2221150).

[waly2k1]

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.


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]

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!!!


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]

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]

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]

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 :
SP := TIBCStoredProc.Create(nil);
En este caso hay q destruirlo. Sino AV asegurada :eek:
SP.Free;

[Delfino]

Aqui (http://delphi.about.com/od/kbcurt/ss/dynamiccreateno.htm) 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]

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

[Delfino]

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]

[..] Mejor con nil y liberarlos inmediatamente..
Pues sí, mejor tomar el control :)

[waly2k1]

Aqui (http://delphi.about.com/od/kbcurt/ss/dynamiccreateno.htm) 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]

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?

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]

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

[Delfino]

Intente usar dbExpress pero maaal
Lo hiciste con ClientDataset o con SQLDataset directamente?

[waly2k1]

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]

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 [-] (http://www.clubdelphi.com/foros/#)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.

[Delfino]

Tengo un PDF muy explicativo pero no me deja subirlo. Pero yo con Delphi XE he probado conectarme a Firebird y va de lujo. Para la prueba utilce un TSimpleDataset informando sus propiedades Connecion y Dataset. Luego el TSimpleDataset puede ser sustuido por la dupla ClientDataset y DatasetProvider..

[waly2k1]

Si me interesa mucho, mi correo hotmail es el mismo del nick
del club, nose si esta permitido o no, pero podrias enviarmelo por favor
ya despues preguntemos como subirlo para compartirlo con todos, yo nose
hacerlo, tampoco el tamaño maximo permitido.

Bueno, desde ya muchas gracias!!!
Walter