Imágenes en Interbase

[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