Delphi implementiert Methoden zum Speichern und Lesen von Bildern

Das Beispiel in diesem Artikel beschreibt die Methode zum Speichern und Lesen von Bildern in Delphi, eine sehr praktische Technik. Teilen Sie es als Referenz mit allen. Die spezifische Implementierungsmethode ist wie folgt:

Erstes Zitat im JPEG-Format

1. Bilder anzeigen:

 if OpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName;end;

2. Speichern Sie das Bild:

 varStream:TMemoryStream;Stream := TMemoryStream.Create; // Einen Speicherstream erstellen // Das Bild im Speicherstream speichern img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free; //Kostenlos sofort nach Verwendung

3. Lesen Sie das Bild:

 varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' thenbegin Stream:=TMemoryStream.Create; Jpg:=TjpegImage.Create; TBlobField(FieldByName('picture')).SaveToStream(Stream) ; // Der angezeigte Inhalt wird in BlobField konvertiert und im Speicherstream gespeichert. Stream.LoadFromStream(Stream); // Das Bild laden img1.Picture.Assign(Jpg); Endelsebegin img1.Bild: =nil;

Ich glaube, dass das, was in diesem Artikel beschrieben wird, einen gewissen Referenzwert für die Delphi-Programmierung aller hat.