Discussion :

[delphi2019]

salut
j'ai un champ de type Blob dans une base de données

comment Lire l'image stocker dans le champ BLOB en utilisant FireDAC
j' ai essai le code suivant et ne fonctionne 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
20
 
procedure Tform1.SpeedButton1Click(Sender: TObject);
begin
with FDQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('Select PHOTOS FROM clients where n_client=:client');
  ParamByName('client').value:=edit1.text;
  Open;
end;
 
dbimage1.Stretch:=true;
//Les deux lignes suivantes ont été essayées individuellement
DBImage1.Picture.LoadFromFile(FDQuery1.Fields[0].AsString); // L'exécution réussit mais ne fonctionne pas, si en clique sur SpeedButton1 Un message apparaît: (extention de fchier image inconnue)
 
DBImage1.Picture.Bitmap.Assign(FDQuery1.Fields[0].AsString); // ne fonctionne pas Un message apparaît: E2010 Types incompatibles : 'TPersistent' et 'string'
 
label1.caption:='voila l''image de client N°'+edit1.text;
end;

SGBD utilisé :firebird 2.5

[tourlourou]

Si je comprends ce que vous écrivez, PHOTOS est un champ BLOB contenant un fichier image.
Mais si je comprends bien vos essais, vous tâchez de l'utiliser comme une chaîne (AsString) contenant le chemin vers un fichier image. Si c'est bien le cas, le DBImage ne semble pas reconnaître son extension, et ce n'est pas un problème de BDD mais de TImage.
Peut-être faudrait-il voir en debug ce que vaut le champ en AsString.
Si c'est bien l'image elle-même qui est stockée dans un BLOB, pê faut-il passer par un stream intermédiaire ?

[delphi2019]

Si je comprends ce que vous écrivez, PHOTOS est un champ BLOB contenant un fichier image.

oui et l'image elle-même qui est stockée dans un BLOB

Je n'ai pas utilisé un chemin vers un fichier image
Je ne sais pas comment utiliser un stream intermédiaire

j 'ai stocker les photos des clients dans le champs photos avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
with FDQuery2 do
  begin
     Close;
     SQL.Clear;
     SQL.Text:='INSERT INTO clients (PHOTOS) VALUES (:PHOTOSparm)';
     ParamByName('PHOTOSparm').Assign(DBImage1.Picture.Bitmap);
ExecSQL;
end;
end;

[tourlourou]

Si c'est bien le Bitmap correspondant à l'image de format quelconque en entrée qui a été stocké, ce type de code trouvé sur StackOverFlow devrait le faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  ms:tmemorystream;
Begin  
  ms:=tmemorystream.create;
  ms.position:=0;
  with yourfield as tblobfield do
    savetostream(ms);
  ms.position:=0;
  image1.picture.bitmap.loadfromstream(ms);
  freeandnil(ms);
end;

Mais il y a sûrement moyen de le faire plus directement (composant DBImage, que je ne pratique pas...)

[delphi2019]

MERCI
Après avoir cherché
Ce code fonctionne bien avec moi

Code :

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

DBImage1.Picture.Assign(TBlobField(FDQuery2.FieldByName('PHOTOS')));