Discussion :

[dacid]

Bonjour à tous,

J'essaye de sauvegarder un tImage32 dans un champ "mémo" (equivalent de blob je pense) d'une table Access.

Je procède comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
imgTmp := TBitmap32.Create();
imgTmp.LoadFromFile(opdMain.FileName);
monFlux := TMemoryStream.Create();
imgTmp.SaveToStream(monFlux);
monFlux.Position := 0;
TBlobField(adoqTemplate.FieldByName('impImg')).LoadFromStream(monFlux);
imgTmp.Free;
monFlux.free;

Bon, ca a l'air de marcher (même si je m'étonne que dans mon champ, il n'y ai que: "BM¦?" pour une image, mais je me dis qu'il doit y avoir des caractères invisibles ou cachés).

Seulement, je ne sais pas comment recharger mon flux... Comment remettre la valeur de ce champ dans un nouveau flux.

Pouvez vous m'aider ?

Merci d'avance.

[Cl@udius]

Salut

Malatar a écrit une QR à ce sujet.
Comment insérer et récupérer un fichier dans un champ de type BLOB ?

C'est justement avec des compos ADO. Est-ce que cela répond à ta question?

@+ Claudius

[dacid]

Bonjour Cl@udius,

J'avais vu cette page, mais elle ne semblait pas répondre à mon cas de figure, car lors de lé récupération, un fichier est créé.

Je veux que tout se passe en mémoire.

J'utilise des flux car tout ce que j'ai trouvé pour le moment semblait s'y orienter, mais pourquoi pas un tBitmap directement...
Seulement, je ne sais pas comment le charger depuis la table.

[dacid]

Je viens de faire l'exemple afinde tester, et le fichier (test.bmp) créé sur le disque n'est pas une image, en fait, quand je l'ouvre avec l'éditeur de texte, c'est juste un fichier qui contient la chaine texte qu'il y avait dans le champ de ma table (BMÊ/).

Est ce que je l'aurais mal enregistré ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
img := TBitmap.Create();
img.LoadFromFile(opdMain.FileName);
...
adoqTemplate.Append;
adoqTemplate.FieldByName('impImg').Assign(img);
adoqTemplate.Post;
...
TBlobField(adoqTemplate.FieldByName('impimg')).SaveToFile(ExtractFilePath(Application.ExeName)+'test.bmp');

[Pedro]

Salut
Je ne connais pas le type TBlobField mais à la lecture de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TBlobField(FieldByName('Fichier')).SaveToFile(sPath);

Je me dis qu'il existe peut-être une méthode SaveToStream pour TBlobField

[dacid]

Oui, mais du coup, afin de tester l'exemple de la FAQ, je me suis réorienté vers une image.

[Cl@udius]

Re,

Essaye ceci. Je lis le contenu du blob et l'assigne à un TImage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.Button2Click(Sender: TObject);
var
  monFlux: TStream;
  imgTmp: TBitmap;
begin
  imgTmp := TBitmap.Create;
  monFlux := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('Image'), bmRead);
  try
    monFlux.Seek(0, 0);
    imgTmp.LoadFromStream(monFlux);
    Image1.Picture.Assign(imgTmp);
  finally
    monFlux.Free;
    imgTmp.Free;
  end;
end;

PS: Le champ Image de ma table est de type 'Objet OLE' et non mémo (le champ Mémo sous Access correspond à un BLOB TEXT).

@+ Claudius

[dacid]

Je suis sous access et j'ai utilisé un champ de type: Memo.

Je suis bon ?

Oups, je viens de voir ton post... J'ai été trop vite.

[Cl@udius]

Re,

D'un autre côté pourquoi tu n'utilises pas le compo TDBImage. (Mais je crois qu'on te l'a dèjà suggéré côté BDD, vilain !! )

@+

[dacid]

Excellent, ca marche plutot bien, j'ai chargé un grosse image et aucun pb.

J'essaye un autre truc avant de mettre résolu.

Je ne passe pas par TDBImage car tout est créé dynamiquement, ce sont N calques que je dépose sur un tImageView32.

Merci à vous tous.

[EDIT]: http://www.developpez.net/forums/sho...64#post1689064