Consejos Firebird con Delphi 2010

[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 Noteví]

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]

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

Código Delphi [-]
SP.Free;

[Delfino]

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 Noteví]

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

[Delfino]

Empezado por Casimiro Notevi

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 Noteví]

Empezado por Delfino

[..] Mejor con nil y liberarlos inmediatamente..

Pues sí, mejor tomar el control

[waly2k1]

Empezado por Delfino

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

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 Noteví]

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

[mcs]

Empezado por 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?
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.

[Delfino]

Empezado por waly2k1

Intente usar dbExpress pero maaal

Lo hiciste con ClientDataset o con SQLDataset directamente?

[waly2k1]

Empezado por Delfino

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