Discussion :

[xeak2008]

bonjour, j'ai créer un formulaire d'insertion pour ma base de donnée (sql server 2005) sur delphi 7, mais j'ai un champ DBImage que j'aimerais remplir avec un bouton qui permette de naviguer dans l'explorateur windows afin de trouver l'image que l'on veuille ajouter.

j'espère que j'ai été assez claire, merci d'avance ;-)

[Andnotor]

Regarde le composant TOpenPictureDialog

[xeak2008]

donc si j'ai bien compris ce que tu me propose, c'est d'appeler le TOPen avec mon bouton ?

[Andnotor]

Exactement.

C'est la boite de dialogue standard pour rechercher une image sur ton disque.

[xeak2008]

heu par contre j'arrive pas à voir ce qu'il vaut marquer comme code , un petit exemple...

[Just-Soft]

Salut

voici un ligne de code mais suffisante pour débuter

Code :

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

1
2
3
 
if OpenPictureDialog1.Execute then
  Table1.TonChampImage.AsValue := OpenPictureDialog1.FileName;

[xeak2008]

c'est sur que c'est "asValue" et pas autre chose ? parce que j'ai plein de commande possible mais pas de "asValue"...

edit: j'ai essayé avec AsVariant ou Value, mais le problème que j'ai c'est que je ne peut pas sélectionner d'image de type jpeg, que des bmp,wmf..., dans ma base de donnée le type de mon champs est image si jamais

[xeak2008]

pour le problème des jpeg j'ai trouvé, mais j'ai un problème avec ma base de donnée il attend un champ string mais c'est un blob ce qui est normal, je comprend pas où est l'erreur.

edit :bon j'avance, j'avance, mais le probème actuel est qu'il me dit que l'image bitmap est incorrecte.

[Just-Soft]

re
Tout à fait exact ya pas de propriété value. essaie plutôt ce bout de code qui charge l'image sélectionné dans le champ de ta table. Pardon pour l'erreur que j'ai commise car j'avais écris ça sur le tas et j'avais pensé que la propriété AsValue existait bien.

Code :

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

1
2
3
4
begin
  if (OpenPicture.Execute) then
	 Table1.FieldByName(ChampImage).LoadFromFile(OpenPicture.FileName);
end;

normalement ça devrait marcher.

Bon codage.

[xeak2008]

je m'en suis tiré comme ça finalement:

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
if OpenDialog1.execute then
  With DataModule1.ADOQMembres do
  begin
    Close;
    SQL.Clear;
    SQL.add('insert into dbo.MEMBRE(photo_Mem)');
    SQL.Add('Values(:photo_Mem)');
    ParamCheck := True;
    Parameters.ParamByName('photo_Mem').LoadFromFile(OpenDialog1.Filename, ftBlob);
  try
    ExecSQL;
    Image2.Picture.LoadFromFile(OpenDialog1.FileName);
  Except on E:Exception do
    begin
      Showmessage('Erreur lors de l''insertion de l''image dans la base de données : ' + 
       E.Message);
    end;
  end; 
end;