]
[auteur/CANTADOR/705439.aspx c'est pas un trés bone,]
[auteur/CANTADOR/705439.aspx ]
[auteur/BSHAKA/1031582.aspx @bshaka]
c'est Facile,
je te conseil d'utiliser SQL,
Pour l'ajout:
//***************Ajout*****************************
var ms:Tmemorystream;
dp:string;
begin
try
//************Bloc code SQL******************
with image_qurey do
begin
sql.Clear;
sql.Add('insert into image_table code, image) values( '1000, '+:param0 )');
//************Fin Block SQL********************
if (dbimage1.Picture.Bitmap<>nil) then
begin
dbimage1.Picture.Bitmap.SaveToStream(ms);
ParamByName('param0').LoadFromStream(ms,ftblob); end else
ParamByName('param0').IsNull;
execsql;
ms.free;
end;
except
showmessage('Insertion échoué!!');
end;
//*************Fin d'ajout**************************
//**********Modification******************
Pour la modification tu change le Bloc code sql en haut en que j'ai mentionné:
with image_qurey do
begin
sql.Add('UPDATE image_table SET image=:param0 where code=1000');
//************Fin Modificaion*************************
pour la consultation normalement tu use un TDbImage rien de plus simple.
j'espère que ça va t'aider.
Je n'ai pas fourni la solution complète mais juste un exemple qui permet de visualiser une liaison pour afficher des images dans un TDBImage..
Tout donner d'un seul coup n'est pas très boné et il me semble plus sage de partir d'un exemple qui fonctionne pour aboutir ensuite à la solution finale.
D'autant plus que ce modèle est fourni par Borland lui-même.
Et par ailleurs ton code comporte des erreurs ce qui gâche sévèrement la démonstration..
Pq elle n'est pas correcte il manque un '(' au début ?c tous!
sql.Add(('insert into image_table code, image) values( '1000, '+:param0 )');
j'ai en vie de ,you make me feel sick .