Imágenes en Interbase

[Buelos]

buenas tardes tengo un problema tengo que almacenar imagenes, paginas html y videos .avi en interbase, la verdad no se si se pueda, por lo pronto las imagenes ke veo ke si se puede pero no he dado con el chiste, debe ser una bobada pero no doy, en estas lineas de codigo:

Código Delphi [-]m:= IBDataSet1.CreateBlobStream(IBDataSet1FOTO(1), bmWrite);
if s='.JPEG' then
s:= '.JPG'; //un caso especial IBDataSet1FORMATO_FOTO(2).AsString(3):=Copy(s,2,3); (2)//elimino el punto

al ejecutarlo me bota el siguiente error
[Error] Unit1.pas(51): Undeclared identifier: 'IBDataSet1FOTO' en (1)
[Error] Unit1.pas(56): Undeclared identifier:'IBDataSet1FORMATO_FOTO' (2)
[Error] Unit1.pas(56): Missing operator or semicolon (3)

agradesco cualquier ayuda ke me puedan brindar chao y suerte

[defcon1_es]

Empezado por Buelos

Código Delphi [-]m:= IBDataSet1.CreateBlobStream(IBDataSet1FOTO(1), bmWrite);
if s='.JPEG' then
s:= '.JPG'; //un caso especial IBDataSet1FORMATO_FOTO(2).AsString(3):=Copy(s,2,3); (2)//elimino el punto

al ejecutarlo me bota el siguiente error
[Error] Unit1.pas(51): Undeclared identifier: 'IBDataSet1FOTO' en (1)
[Error] Unit1.pas(56): Undeclared identifier:'IBDataSet1FORMATO_FOTO' (2)
[Error] Unit1.pas(56): Missing operator or semicolon (3)

Debes declarar los campos FOTO y FORMATO_FOTO como persistentes para que te funcione ese código.

PD: no me fijé que este hilo es de noviembre del 2007

[roman]

Empezado por defcon1_es

PD: no me fijé que este hilo es de noviembre del 2007

De hecho, el hilo comenzó hace tres años casi exactos. Y mira quién participó

// Saludos

[charliewonka]

hola, a mi me funciona muy bien para cualquier tipo de archivo

Código Delphi [-]
        FFile:=FPath + 'salida\'+'Fondo_' + trim(Inttostr(id_participante))+'.jpg';
        if FileExists(FFile) then 
TBlobField(MyDataSet.FieldByName('FONDO')).LoadFromFile(FFile);

Saludos