ตัวอย่างในบทความนี้อธิบายวิธีการบันทึกและอ่านรูปภาพใน Delphi ซึ่งเป็นเทคนิคที่ใช้งานได้จริง แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ วิธีการดำเนินการเฉพาะมีดังนี้:
คำพูดแรก jpeg
1. แสดงรูปภาพ:
ถ้า OpenPictureDialog.Execute ให้เริ่ม img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName;end;
2. บันทึกรูปภาพ:
varStream:TMemoryStream;Stream := TMemoryStream.Create; // สร้างสตรีมหน่วยความจำ // บันทึกรูปภาพลงในสตรีมหน่วยความจำ img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free; //ฟรีทันทีหลังการใช้งาน3. อ่านรูปภาพ:
varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' จากนั้นจึงเริ่มสตรีม:=TMemoryStream.Create; Jpg:=TjpegImage.Create; ; // เนื้อหาที่แสดงจะถูกแปลงเป็น BlobField และบันทึกลงในสตรีมหน่วยความจำ ตำแหน่ง :=0; jpg.LoadFromStream(Stream); // โหลดรูปภาพ img1.Picture.Assign(Jpg); Stream.Free; img1.รูปภาพ: =ไม่มี;ฉันเชื่อว่าสิ่งที่อธิบายไว้ในบทความนี้มีค่าอ้างอิงที่แน่นอนสำหรับการเขียนโปรแกรม Delphi ของทุกคน