io ho provato questo:
codice:
var
cod,i:integer;
nome:String;
bmp: TBitmap;
buffer:TStream;
begin
//crea l'immagine dall componente di disegno
bmp:=TBitmap.create;
getBmp(foto,Bmp);
buffer := TMemoryStream.Create;
bmp.SaveToStream(buffer);
//inserisce la sagoma nell'archivio
qry.SQL.Text:='INSERT INTO tabella VALUES(:cod,:nome,:tipo,:imm)';
qry.ParamByName('cod').asInteger:=cod;
qry.ParamByName('nome').asString:=nome;
qry.ParamByName('tipo').asInteger:=e_tipo.ItemIndex;
qry.ParamByName('imm').LoadFromStream(buffer,ftBlob);
qry.ExecSQL;
qry.close;
buffer.free;
end;
dove cod e nome sono stati precedentemente impostati ed e_tipo è un TListBox..
Il problema ora sta che qualsiasi cosa metto al posto di ftBlob(o se lascio ftBlob) mi da sempre lo stesso errore Invalid Conversion...perchè?
qualcuno sa darmi un esempio usando i TBlobField?