Discussion :

[nach68]

Bonjour
j'aimerai affecté un a un champ "image" de type blob (firebird)sous type binary
l'image récupéré par un opendialogue:
le code source est comme suite:

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
25
26
27
 if OpenDialog1.Execute then
     begin
 IMAGE1.picture.LoadFromFile(opendialog1.filename);
 TUIBDataset.QuickScript := False; 
 TUIBDataset.SQL.Clear; 
TUIBDataset.SQL.Text := 'UPDATE "stockp" set Image=:new_image WHERE "Ref" =:Ref ';
          TUIBDataset.Params.ByNameAsString['Ref']:=   UIBDataset.fieldbyname('Ref').AsString;
 TUIBDataset.Params.ByNameAs??blob??quoi['new_image'] :=??timage?assign(IMAGE1.picture

  try
       TUIBDataset.Prepare;
        TUIBDataset.Execute;
      TUIBDataset.commit;
       TUIBDataset.Close;

      except
        if(TUIBDatasetaction.InTransaction) then
        begin
          TUIBDataset.RollBack;
        end;
        MessageDlg('Une erreur est survenue lors de la suppression de la ligne de commande sélectionnée', mtError, [mbOK], 0);
      end;

       UIBDataset.Active := false;
      UIBDataset.Active:= true;

end;//fin de if de opendialog.execute

je ne trouve pas le moyen de faire cette affectation de image a blob ,puis je avoir une solution ?????

[evarisnea]

et bienvenue sur le forum

jette un coup d'oeil ici dans la FAQ delphi

[nach68]

j'ai jetté un coup d'oeil dans le mach1 que tu ma donné mais sans succés
,je viens de trouver la bonne solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
var Stream: TFileStream;
begin
     if OpenDialog1.Execute then
     begin
 
     IMAGE1.picture.LoadFromFile(OpenDialog1.FileName);
      Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
     ............
      TUIBDataset.ParamsSetBlob('new_Image',Stream);
    ...................

merci