Fotos en Firebird 1.0 y Delphi 6!!!!!!!!!!

[CarlosHernandez]

a todos los del foro reciban un cordial saludo de mi parte.

estoy migrando un programa de paradox a firebird... uso delphi 6,
firebird 1.0, y el Ibacces 1.18.(la extension es .GDB).

este es mi primer programa en firebird.....

¿mi pregunta principal es como inserto en mi tabla la fotografia,
y luego como la busco, la muestro en el form y si quiero la cambio por otra
fotografia?

ya rebice algunos hilos y encontre algunas cosas...

intente algo y medio me dio...

tengo una tabla, se llama personal.
para la fotografia cree dos campos


FOTO: BLOB SUB_TYPE 0 SEGMENT SIZE 80.

FORMATO_FOTO:var char 3


en el boton coloco lo siguiente:

codigo:

var

   cedula,s:string;
   m, f:TStream;
begin


with IBDataSet1 do begin

open;
insert;

 FieldByName('cedula').AsString:=edit1.Text;
 FieldByName('nombre').AsString:=edit2.Text;
 FieldByName('apellido').AsString:=edit3.Text;


 ////**********----------    foto

  m:=CreateBlobStream(IBDataSet1FOTO,bmWrite);
  f:=TFileStream.create(OpenPictureDialog1.FileName, fmopenread);
 m.CopyFrom(f, f.Size);
  s:=AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName));
  IBDataSet1FORMATO_FOTO.AsString:=copy(s,2,3);//elimino el punto

 ////**********----------   foto



post;
IBTransaction1.Commit;
close;

f.Free;
m.Free;

ShowMessage('Ingresado correctamente');
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

la imagen la busco con un openpicturedialog en un image1.

para la consulta por medio de un ibquery:

 IBQuery1.SQL.Clear;                                      
    IBQuery1.Close;
     IBQuery1.SQL.Add('SELECT * FROM personal order by cedula asc' ); //
      IBQuery1.Prepare;
        IBQuery1.Open;

bueno en el grid se ven los datos y en un dbimage1 la foto.


intente hacer el cambio con UPDATE pero el parametro donde voy a colocar
la fotografia no se como colocarle el tipo de datos...

IBQuery1.SQL.Clear;                                      
    IBQuery1.Close;
     IBQuery1.SQL.Add('UPDATE personal SET  foto=:parfoto, 
formato_foto=:parext     WHERE cedula=:parcedula  '); //

//***//IBQuery1.params(???????????????????????);//***//

      IBQuery1.Prepare;
        IBQuery1.Open;

//***//
aqui es donde no se como colocarlo, el valor, el tipo, etc......

necesito cambiar la fotografia una vez localizada, no se si por update sirva
es lo unico que se...

ah en los hilo que encontre dicen lo siguiente...

Empezado por rastafarey

Mira hasta donde se de una manera directa no conozco
nada.

pero con un udf que verifique el contenido lo puedes solucionar.

Pero te puedo dar una solucion que te resulte mejor.

Bueno no mejor para mi fue la mejor. Todo las imagenes la inserto como jpg
ya que es el formato d eimagen mas pequeño que existe(bueno que yo
cocnosco si existe otro me lo pueden decir).

¿que hago?
Bueno desde delphi cuando leen imagen lo que hago es que tranformo de
cualquier tipo a jpg y listo.

Por que una vez realice una aplicacion que aceptara todas las imagenes y
resulta que que los usuarios el unico formato que usaron fue bmp y la base d
edatos se puso muy lenta cada vez que e tria dichas imagnes asi que lo
arregle como te dije anteriormente y la diferencia fue del cielo a la tierra.


Bueno no es la solucion que buscabas pero espero te sirva de ayuda.

Si no es mucho pedir un ejemplo de lo anterior... y disculpen el abuso lo
entendi pero no se como...

de necesitar mas informacion haganmelo saber. agradezco cualquier ayuda....

Saludos.

[rastafarey]

Si mas no recuerdo creo que debes crear un fieldblobstream o blobfieldstream y lees la figura(te recomienso transformar todas las figuras a jpg por lo del tamaño) y luego se lo asignas al camo y listo.

[CarlosHernandez]

ok. podrias por favor darme un ejemplo que la verdad no se como hacerlo...... estoy igual
lo que necesito es como editarla despues de insertarlas.... por medio de sql si es posible gracias...

[CarlosHernandez]

[rastafarey]

Código Delphi [-]
Var
  b: TBlobField;
begin
  b := TBlobField.Create(Self);
  try
    B.LoadFromFile('Archivo');
    IBQuery1.Fields[0] := B;
  Finally
    B.Free;
  End;
end;