Discussion :

[momo99]

:

Bonjour,

Quelqu'un pourrait t'il m'aider pour insérer un champ de type 'image' (un .ico ou .jpeg) dans une base de données Interbase avec delphi.
J'effectue une requête de type 'Update ....' avec des TEdit ou Timage de ma fiche vers les champs de la table.

Merci

[qi130]

Il faudrait commencer par:

- nous donner la description de la table
- faire une recherche de "image" sur ce forum...(ce pb a déjà été évoqué )

[Mjm]

Un exemple de procedure, il faut passer par un stream :

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
21
22
23
24
 
procedure Set_Mon_image(B: TBitMap);
Var  Stre : TMemoryStream;
     Jpeg_i : tJPegImage;
     Trs: TjvUIBTransaction ;
begin
  Stre:=TMemoryStream.Create;
  Jpeg_i:=tJpegImage.Create ;
  Jpeg_i.Assign(B);
  Jpeg_i.SaveToStream(Stre);
  Trs := Dm2.CreateDefaultTransaction;
  with TJvUIBQuery.Create(nil) do
    begin
      Transaction := Trs;
      SQL.Text := 'UPDATE TB_INFO SET T_IMAGE = :blob';
      ParamsSetBlob('blob', Stre);
      Execute;
      Close(etmCommit);
      Free;
    end;
  Stre.Free;
  Jpeg_i.Free;
  Trs.Free;
end;

Code réalisé avec les UIB de H Gourvest, mais facilement transposable en IBX
Bonsoir
MV