Consejos Firebird con Delphi 2010

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

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]

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

Empezado por waly2k1

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