Hola amigos estoy con un problema, y lo mas probable es que se deba a mi ignorancia.
La rutina en cuestion debe cargar un campo blob con un codigo de barra, pero al compilar me sale un mensaje de error "Undeclared Identifier ftBlob".
Esta rutina es en Delphi7 con Firebird 1.5
Código Delphi
[-]
IbQuery6.close;
IbQuery6.sql.clear;
IbQuery6.sql.Add('UPDATE STOCKMAESTRO');
IbQuery6.sql.Add('SET CODIGOBARRA = :CodigoBarra');
IbQuery6.sql.Add('WHERE Id_Producto = :Id_Producto');
bs := TMemoryStream.Create;
if Grafico.Picture <> nil Then
if Grafico.Picture.Graphic <> nil Then
Grafico.Picture.Graphic.SaveToStream(bs);
IbQuery6.ParamByName('Id_Producto').AsString := Edit2.Text;
IbQuery6.ParamByName('CodigoBarra').LoadFromStream(bs, ftBlob);;
IbQuery6.Open;
ibTransaction1.CommitRetaining;
Como apreciaran esa instruccion ftBlob me esta causando problemas.
Me faltara algo en el "Uses"
Desde ya muchas gracias.