procedure TForm1.Button1Click(Sender: TObject); var //Flux standard Stream: TStream; begin //Mettre l'ensemble de données en mode édition AdoQuery1.Edit; try //Création du flux en écriture sur le champ 'monChamp' Stream := Adoquery1.CreateBlobStream(AdoQuery1MonChamp, bmWrite); try //Enregistrer l'image contenue dans Image1 dans le flux Image1.Picture.Graphic.SaveToStream(Stream); finally Stream.Free; end ; //Valider l'enregistrement Adoquery1.Post; except //Abandon du mode édition Adoquery1.Cancel; ShowMessage('Erreur à l''enregistrement de l''image'); end; end;
AdoQuery1.Edit il y a une erreur de transfert. Je te tients informé de l'évolution
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question