La prmière serie du code en vert fonctionne à merveille.
procedure TFicheProfs.RemplirExecute(Sender: TObject);
begin
Memo1.Text:=DM1.IBTableProfs.FieldByName('ADRESSEPROF').AsString;
Image1.Picture.Bitmap.Assign(DM1.IBTableProfs.FieldByName('PHOTO'))
end;
la seconde série pour l'enregistrement génère des erreurs lorsque je souhaite enregistrer l'image chargée dan le TImage dans un champs blob de ma base Interbase
procedure TFicheProfs.EnregistrerClick(Sender: TObject);
begin
DM1.IBTableProfs.FieldByName('ADRESSEPROF').Value := Memo1.Text;
Image1.Picture.Bitmap.Assign(DM1.IBTableProfs.FieldByName('PHOTO'))
DM1.IBTableProfs.Post;
end;
vérifiez le code d'nregistrement pour moi svp
Partager