Discussion :

[Blagueur]

Bonjour, je cherche à insérer une image dans une bdd sql server 2005, j'ai donc fait un bouton pour ajouter la photo dans un dbimage.

Code :

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

1
2
3
4
5
6
7
procedure TFNouveauMembre.BitBtAjouterClick(Sender: TObject);
begin
 
if OpenPictureDialog.execute then begin
    dbimage1.Picture.Bitmap.loadfromfile(openPictureDialog.FileName);
end
end;

et quand les autres champs à remplir sont rempli, je clic sur un bouton ok où mon .post s'effectue. le problème c'est que mon image n'est pas dans la base, mon champs est toujours null.

[djeckelle]

Quel le format de ton champ en base pour stocker ton image ?

[Blagueur]

varbinary(max)

[djeckelle]

Je pense que c'est le bon format...je n'ai pas trop d'idée...
Question peut être bête mais tu as bien lié ton objet à ton champ en base?

[Blagueur]

oui oui il est bien lié

[SergioMaster]

je ne connais pas SQLServeur mais en général on stocke une image dans un BLOB . (je présume que varbinary en est un ) dans ce cas un petit tour dans la FAQ ici pourrait répondre à la question

[Blagueur]

j'ai trouvé une solution, mais je peux que prendre des .bmp les jpeg ne passe pas, donc c'est pas encore le top.

Quand j'essaye d'insérer une image jpeg, j'ai un joli message d'erreur :
"Image bitmap incorrect".

[djeckelle]

Est ce que tu passes bien par le picture de l'image pour le loadFromfile

Code :

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

   Image.Picture.LoadFromFile(Monfichier);

[Blagueur]

j'ai oublié de préciser, j'utilise le code suivant maintenant

Code :

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

1
2
3
4
5
6
if OpenPictureDialog.execute then begin
    with DataModule1.ADOQMembres do begin
    // Enregistrement du fichier dans la base de données
   (FieldByName('photo_mem_fme') as TBlobField).LoadFromFile(OpenPictureDialog.Filename);
    end;
end;

comment passer par le picture de l'image ?

[djeckelle]

Ouais vu comme ça ce que je t'ai dis ne vaut pas grand chose.
Va voir ce post il t'aidera peut être

http://www.developpez.net/forums/d62...hercher-image/

Je veux bien que tu indiques ta solution finale

[Blagueur]

ouais ben c'est pas gagné, je lance donc un gros appel à l'aide, afin de savoir comment insérer des jpeg et non pas que des .bmp



edit: j'ai essayé qqch avec ça mais, toujours impossible de mettre du jpeg et bien sur des bmp également.

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
procedure TFNouveauMembre.BitBtAjouterClick(Sender: TObject);
var
  img:TJPEGImage;
begin
  if OpenPictureDialog.execute then
    try
       img := TJPEGImage.Create;
       img.LoadFromFile(OpenPictureDialog.FileName);
       With DataModule1.ADOQMembres do
      begin
       FieldByName('photo_mem_fme').Assign(Img);
      end;
    finally
      img.free;
  end;
end;