Discussion :

[qi130]

Bonjour,

Sur 1 formulaire, j'ai 1 DBImage que j'arrive à alimenter.

Cependant, la modification consistant à charger une photo ne semble pas provoquer le "changement d'état" des données: les boutons de validation/abandon du dbNavigator ne sont pas actifs.
Du coup la photo n'est pas enregistrée quand je change d'enregistrement.

Par contre, le chargement d'une photo ET la màj d'un champ (peu importe l'ordre) provoquent ce changement (les boutons deviennent actifs).

Comment faut-il procéder pour qu'un changement dans le dbImage ai les mêmes conséquences qu'une modification d'un champ lambda?

Merci par avance.

[ALWEBER]

Bonjour, je passe par un "Post".exemple ici reprenant une image depuis le presse papier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  ClipboardBitmap: TBitmap;
begin
  if not Clipboard.HasFormat(CF_BITMAP) then
    exit;
  ClipboardBitmap := TBitmap.Create;
  ClipboardBitmap.Assign(Clipboard);
 
  Tb1.Edit;
  Tb1Photo.Assign(ClipboardBitmap);
  Tb1.Post;
  ClipboardBitmap.Free;

[SergioMaster]

Bonjour,

on reste sur VCL ?
Comme la photo est chargée certainement via appel à un dialogue, je dirais que la façon la plus simple est de coder quelque chose de ce genre

Code :

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

1
2
3
4
5
6
7
8
9
if OpenDialog1.Execute do
 begin
   // charger image
   DbImage1.Picture.LoadFromFile(OpenDialog1.FileName);
   // mettre en mode edit si besoin
   if Not (FDquery.State in [dsEdit,dsindert]) then FDQuery.Edit;
   // modifier la valeur
   FDquery.(FieldByName('Fichier') as TBlobField).LoadFromFile(OpenDialog.Filename, ftBlob);
 end;

[qi130]

on reste sur VCL ?

Mais tout à fait

Par contre, toutes mes excuses puisque ce cas de figure est documenté dans les exemples de la CE:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TfrmDivers.LoadPhotoClick(Sender: TObject);
var
  oFld: TBlobField;
begin
     with OpenPictureDialog1 do
        if Execute() then
           if FileName<>'' then begin
              oFld := TBlobField(FDquery1.FieldByName('DIVER_PHOTO'));
              if Not (FDquery1.State in [dsEdit,dsinsert]) then FDQuery1.Edit;  // si pas déjà, mettre en edit
              oFld.LoadFromFile(OpenPictureDialog1.FileName);
           end;
 
end;

Merci cependant car les "imperfections" du code fourni m'ont mené à cette trouvaille.

Au passage ,

Code :

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

...in [dsEdit,dsinsert]

semble pouvoir être remplacé par

Code :

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

...in dsEditModes

Merci encore!