DBImage et table Paradox / D6

Bonjour à Tous,

Var
     Image      : TJpegImage;
     PicMem     : TMemoryStream;
     Pict       : TPicture;
begin
     PicMem := TMemoryStream.Create;
     Image  := TJpegImage.Create;    // TJpegImage.Create;
     Pict   := TPicture.Create;

     Form1.IdHTTP1.Get (Url ,PicMem);
     PicMem.Position :=0;
     Image.LoadFromStream(PicMem);
     Form1.Image1.Picture.assign(Image);
     PicMem.Position := 0;
     Pict.Assign (Image);

Dans cette procédure, j'utilise le composant "IdHTTP1" pour récupérer des images sur le Web, en suite l'image (format JPG) est chargée dans "TImage".

Dans une table "Paradox", j'ai un champs "Image" de type "G" et 240 caractère.

Pourriez vous m'indiquer comment faire pour enregistrer ces image dans le champs "Image" de ma table et comment les consulter SVP ?

Merci à vous !!! 

Voilà une démo de Borland :

c:\Program Files\Borland\Delphi7\Demos\Db\FishFact\

... avec des petits poissons..

cantador

@ cantador " c:\Program Files\Borland\Delphi7\Demos\Db\FishFact\
" c'est pas un trés bone,
  @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..
 
As-tu seulement testé ton bout de code Matrix1 ?

cantador

Merci à vous !!!

ça marche !!!

C'est un poisson d'Avril..

cantador

...car cette écriture :

sql.Add('insert into image_table code, image) values( '1000, '+:param0  )');

n'est pas correcte..

cantador

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 .

J'ai en vie de ,you make me feel sick .

Oh la vilaine formule !

Et il y a encore des erreurs...


Moi ce que j'en dit..
C'est pour ton bien..


cantador

Moralité :

Si tu estimais que je n'avais pas la qualification pour répondre à bshaka, alors il fallait intervenir directement par MP auprès de ton collègue.

Quand on intervient dans un débat, on évite de criquer les autres en balançant un fourbi mal présenté et mal indenté et de plus comportant des erreurs.

..et de qualifier les autres de "malade", lorqu'on met le doigt sur les anomalies.

Mais c'est peut-être beaucoup demandé, je le reconnais...

A bon entendeur

cantador