Delphi mengimplementasikan metode menyimpan dan membaca gambar

Contoh pada artikel ini menjelaskan metode menyimpan dan membaca gambar di Delphi, yang merupakan teknik yang sangat praktis. Bagikan dengan semua orang untuk referensi Anda. Metode implementasi spesifiknya adalah sebagai berikut:

Kutipan pertama jpeg

1. Tampilkan gambar:

 jika OpenPictureDialog.Execute makamulai img1.Picture.LoadFromFile(OpenPictureDialog.FileName;btnPicture.Text:=OpenPictureDialog.FileName;end;

2. Simpan gambar:

 varStream:TMemoryStream;Stream := TMemoryStream.Create; // Membuat aliran memori // Menyimpan gambar ke aliran memori img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free; //Gratis segera setelah digunakan

3. Baca gambar:

 varStream:TMemoryStream;Jpg:TjpegImage;jika fieldbyname('IsSavePicture').Value='1' maka mulai Stream:=TMemoryStream.Create; Jpg:=TjpegImage.Create; ; // Konten yang ditampilkan dikonversi ke BlobField dan disimpan ke aliran memori Stream.Position :=0; jpg.LoadFromStream(Stream); // Muat gambar img1.Picture.Assign(Jpg); img1.Gambar: =nihil;

Saya yakin apa yang dijelaskan dalam artikel ini memiliki nilai referensi tertentu untuk pemrograman Delphi setiap orang.