FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Fotos en Firebird 1.0 y Delphi 6!!!!!!!!!!
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: Código:
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; para la consulta por medio de un ibquery: Código:
IBQuery1.SQL.Clear; IBQuery1.Close; IBQuery1.SQL.Add('SELECT * FROM personal order by cedula asc' ); // IBQuery1.Prepare; IBQuery1.Open; intente hacer el cambio con UPDATE pero el parametro donde voy a colocar la fotografia no se como colocarle el tipo de datos... Código:
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... Cita:
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. Última edición por CarlosHernandez fecha: 05-08-2005 a las 17:33:07. |
#2
|
||||
|
||||
Resp
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.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#3
|
||||
|
||||
Ejemp..
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... Última edición por CarlosHernandez fecha: 05-08-2005 a las 17:26:51. |
#4
|
||||
|
||||
|
|
|
|