Delphi implementa métodos para guardar y leer imágenes

El ejemplo de este artículo describe el método para guardar y leer imágenes en Delphi, que es una técnica muy práctica. Compártelo con todos para tu referencia. El método de implementación específico es el siguiente:

Primera cita jpeg

1. Mostrar imágenes:

 si OpenPictureDialog.Execute entonces comienza img1.Picture.LoadFromFile(OpenPictureDialog.FileName; btnPicture.Text:=OpenPictureDialog.FileName;end);

2. Guarde la imagen:

 varStream:TMemoryStream;Stream := TMemoryStream.Create; // Crea una secuencia de memoria // Guarda la imagen en la secuencia de memoria img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free //Gratis inmediatamente después de su uso;

3. Lee la imagen:

 varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' luego comience Stream:=TMemoryStream.Create Jpg:=TjpegImage.Create; ; // El contenido mostrado se convierte a BlobField y se guarda en la secuencia de memoria Stream.Position :=0; jpg.LoadFromStream(Stream); // Carga la imagen img1.Picture.Assign(Jpg.Free; endelsebegin); img1.Imagen: =nil;

Creo que lo que se describe en este artículo tiene cierto valor de referencia para la programación Delphi de todos.