L'exemple de cet article décrit la méthode de sauvegarde et de lecture d'images dans Delphi, qui est une technique très pratique. Partagez-le avec tout le monde pour votre référence. La méthode spécifique de mise en œuvre est la suivante :
Première citation jpeg
1. Afficher les images :
si OpenPictureDialog.Execute alors commencez img1.Picture.LoadFromFile(OpenPictureDialog.FileName; btnPicture.Text:=OpenPictureDialog.FileName;end;
2. Enregistrez l'image :
varStream:TMemoryStream;Stream := TMemoryStream.Create; // Créer un flux mémoire // Enregistrer l'image dans le flux mémoire img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free //Libre immédiatement après utilisation;3. Lisez l'image :
varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' alors commencez Stream:=TMemoryStream.Create; Jpg:=TjpegImage.Create; ; // Le contenu affiché est converti en BlobField et enregistré dans le flux mémoire Stream.Position :=0; jpg.LoadFromStream(Stream); // Charger l'image img1.Picture.Assign(Jpg); img1.Picture : = néant ;Je pense que ce qui est décrit dans cet article a une certaine valeur de référence pour la programmation Delphi de chacun.