Discussion :

[dleu]

Bonjour,

Pour transférer une string d'un edit à un champ Ado on fait :

Code :

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

AdoQuery1.FieldByName('Format').AsString:=Edit6.Text;

Mais pour transférer une image d'un Timage dans un champ blob, comment fait-on ?

J'ai essayé:

Code :

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

AdoQuery1.FieldByName('Photo').Assign(Image1.Picture);

mais cela ne marche pas.

Comment dois-je faire ?

Merci de votre aide.

Didier

[Giovanny Temgoua]

Bonsoir,

En général je passe par CreateBlobStream pour manipuler le champ blob. As-tu essayé cette méthode ?

[dleu]

Salut,

Honêtement, je ne sais pas trop bien comment m'y prendre avec ce CreateBlobStream.

Pourrais-tu m'expliquer un peu comment je dois procéder ?

Merci.

Didier

[dleu]

Pour lire d'une table, j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var blob: TBLOBStream;
 
blob := Table1.CreateBlobStream(Table1.FieldByName('Photo'), bmRead);
try
  blob.Seek(0, soFromBeginning);
  image1.Picture.Bitmap.LoadFromStream(blob);
finally
  blob.Free;
end;

Mais comment puis-je faire pour écrire dans la table ? Je n'arrive pas à créer un code qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var blob: TBLOBStream;
 
blob := Table1.CreateBlobStream(Table1.FieldByName('Photo'), bmWrite);
try
  blob.Seek(0, soFromBeginning);
  Image1.Picture.Bitmap.SaveToStream(blob);
finally
  blob.Free;
end;

Je sèche là.

Didier

[dleu]

Pour ceux que cela intéresse voilà la solution que j'ai trouvée grace à un gros coup de pouce de King Kaiser (Merci encore à lui) :

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
18
19
20
21
22
23
24
25
26
 
var
   blob : TStream;
   jpg : TJpegImage;
...
...
...
    try
    	jpg:=TJpegImage.Create;
      try
    		blob :=CreateBlobStream(FieldByName('Photo'), bmWrite);
				try
    			jpg.Assign(Image1.Picture);
      		blob.Seek(0, soFromBeginning);
  				jpg.SaveToStream(blob);
        except
        	MessageBox(RechercheInternet.Handle,'Impossible d''enregistrer l''image !',
              'Erreur', mb_OK + mb_IconExclamation);
        end;
      finally
  			blob.Free;
			end;
    finally
     	jpg.free;
  	end;
    Post;

Voilà.

A+

Didier