Discussion :

[colfire_dev]

j'essaye dans ce code d'insérer une image JPEG dans un champ blob Mysql, mais j'y arrive pas :

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
var imgJpeg:TJPEGImage;
    imgBmp:TBitmap;
begin
    imgJpeg:=TJPEGImage.Create;
      if Odp.Execute then imgJpeg.LoadFromFile(odp.FileName);
      imgBmp:=TBitmap.Create;
      with imgBmp do
       begin
         Width:=imgJpeg.Width;
         Height:=imgBmp.Height;
         Canvas.Draw(0,0,imgJpeg);
       end;
  try
    dsSociete.DataSet.Edit;
    (dsSociete.DataSet.FieldByName('logo') as TBlobField).Assign(imgBmp);
  finally
    imgJpeg.free;
    imgBmp.Free;
  end;

Éclairez moi

[Dr.Who]

La tu n'insere pas un JPEG mais un BITMAP!


insertion :

Code :

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

1
2
3
 
{champ TBlobField}.LoadFromFile('MonJPeg.jpg');
{champ String ImageName} := 'MonJpeg.jpg';

extraction :

Code :

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

1
2
 
{champ TBlobField}.SaveToFile({champ string ImageName});

affichage direct :

Code :

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

1
2
3
4
5
6
7
8
 
MS := TMemoryStream.Create;
try
  {champ TBlobField}.SaveToStream(MS); 
  {objet TImage}.Picture.LoadFromStream(MS);
finally
  MS.Free;
end;

permet de stocker un BMP, JPG, PNG, TIFF, WMF, EPS, ICO, CUR et de l'afficher dans un TImage.