bshaka
Messages postés22Date d'inscriptionmercredi 11 avril 2007StatutMembreDernière intervention17 juin 2008
-
29 mars 2008 à 18:39
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
15 avril 2008 à 20:49
]
[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.
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 1 avril 2008 à 15:23
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..
cs_matrix1
Messages postés169Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention15 avril 2008 2 avril 2008 à 15:46
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 .