يوضح المثال الموجود في هذه المقالة طريقة حفظ الصور وقراءتها في دلفي، وهي تقنية عملية للغاية. شاركها مع الجميع لتكون مرجعا لك. طريقة التنفيذ المحددة هي كما يلي:
الاقتباس الأول بصيغة 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;أعتقد أن ما تم وصفه في هذه المقالة له قيمة مرجعية معينة لبرمجة دلفي للجميع.