تطبق دلفي طرق حفظ الصور وقراءتها

يوضح المثال الموجود في هذه المقالة طريقة حفظ الصور وقراءتها في دلفي، وهي تقنية عملية للغاية. شاركها مع الجميع لتكون مرجعا لك. طريقة التنفيذ المحددة هي كما يلي:

الاقتباس الأول بصيغة 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 وحفظه في دفق الذاكرة Stream.Position :=0; jpg.LoadFromStream(Stream); // تحميل الصورة img1.Picture.Assign(Jpg); Jpg.Free;endelsebegin img1.Picture: =nil;

أعتقد أن ما تم وصفه في هذه المقالة له قيمة مرجعية معينة لبرمجة دلفي للجميع.