inserer un jpeg dans un champ blob

**colfire_dev** · 21/10/2009, 23h45

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** · 22/10/2009, 02h46

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.

**Rayek** · 22/10/2009, 09h25

Regarde dans la

j'ai fait une QR qui montre comment faire avec n'importe quel fichier.

http://delphi.developpez.com/faq/?pa...ichierdansblob

**colfire_dev** · 22/10/2009, 19h49

j'ai essayé ce code qui, m'a semblé plus simple à utiliser :

Code :

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

1
2
3
4
odp.Execute;
  s:=odp.FileName;
    dsSociete.DataSet.Edit;
    (dsSociete.DataSet.FieldByName('logo') as TBlobField).LoadFromFile(s);

J'ai eu ce message d'erreur
Image Bitmap incorrect

**edam** · 27/10/2009, 14h02

http://www.developpez.net/forums/d68...-dimage-table/

**paradise** · 29/10/2009, 16h38

Petit addenda sur l'utilité d'une telle démarche (pas HS mais presque)

**edam** · 30/10/2009, 11h50

Envoyé par paradise

Petit addenda sur l'utilité d'une telle démarche (pas HS mais presque)

et si on veux pas partager un Dossier? il faut crée un serveur d'image alors, pourquoi pas utilisé seluit de SGBDR, en séparent les données et les images dans 2 BD?

**colfire_dev** · 30/10/2009, 19h42

Pourquoi mon code me génère cette erreur : Image bitmap inconnu

**edam** · 30/10/2009, 23h09

donne ton code

**colfire_dev** · 31/10/2009, 09h54

Code :

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

1
2
3
4
5
odp.Execute;
  s:=odp.FileName;
    dsSociete.DataSet.Edit;
    (dsSociete.DataSet.FieldByName('logo') as TBlobField).LoadFromFile(s);
   dsSociete.DataSet.Post;