|
ok, gracias, te paso el codigo
sp1:=TADOStoredProc.Create(nil);
sp1.Connection:=ADOConnection1;
sp1.Parameters.CreateParameter('lectura',ftString,pdInput,250,'');
sp1.Parameters.ParambyName('lectura').value:=lecturafinal;
sp1.Parameters.CreateParameter('informacion',ftString,pdOutput,250,'');
sp1.Parameters.CreateParameter('info_tarjeta',ftstring,pdOutput,250,'');
sp1.Parameters.CreateParameter('error',ftstring,pdOutput,250,'');
sp1.Parameters.CreateParameter('foto',ftBlob,pdOutput,250000,'');
sp1.ExecProc; // Ejecuto el procedimiento
// Levantar la foto (foto_blob es una variable de tipo blob)
foto_blob:=sp1.Parameters.ParambyName('foto').value;
Image1.Picture.Assign(foto_blob);
El procedimiento ejecuta bien, y los demas parametros de salida que no son blob los capturo bien.
el tema es que el blob me lo devuelve como variant y no como blob, no se porque porque es definido blob por mi y en la base.
Ese codigo que te pase falla en al penultima linea porque dice que son incompatibles los tipos unos es TBlobField y el otro variant.
Si cargo en un variant el parametro despues no lo pudo poner en el Timage
Gracias
Daniel
|