اضافة صورة الى myrecord - نسخة قابلة للطباعة +- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum) +-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3) +--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15) +--- الموضوع : اضافة صورة الى myrecord (/showthread.php?tid=11081) |
اضافة صورة الى myrecord - jeanjamil - 16-10-2020 السلام عليكم كيف اضيف صورة الى record ثم استدعائها في الاستعلام Tcustomer=record Name: string Image:Timage RE: اضافة صورة الى myrecord - h-farid - 16-10-2020 و عليكم السلام لو كنت مكانك لاستعملت متغير من نوع نص يمثل مسار ملف الصورة بدل الصورة في حد ذاتها. على الشكل التالي : كود : TCustomer = record و من بعدها : كود : aCustomer.Image := 'C:\001.jpg'; RE: اضافة صورة الى myrecord - Delphi4Us - 16-10-2020 كود : type عند اشتخدام كائنات بداخل السجل ستحتاج الى انشاءها كود : var ربما من الافضل استخدام الكلاسس الذي يتيح لك انشاء الكائنات وهدمها عند انشاءه كود : Tcustomer= class(TObject) مثال كود : constructor Tcustomer.Create; اما عن البحث فيها فانت اكيد سوف تنشئ مصفوفة منها كود : customer: array[0..1000] of Tcustomer; وبعدها يمكنك من خلال تكرار المرور عليها والبحث عن اسم او رقم ايضا فكرة اخرى يمكنك تحويل الصورة الى نص وحفظها كنص RE: اضافة صورة الى myrecord - jeanjamil - 16-10-2020 شكرا للجميع اعتقد ان فكرة التحويل الى نص هي الافضل لكن هل من خوارزمية غير معقدة لفعل ذلك RE: اضافة صورة الى myrecord - Delphi4Us - 16-10-2020 الاساليب والاجراءات والطرق كثيرة وغير محدودة ويمكن البحث واختيار الانسب لك على سبيل المثال لم اجربه كود : Function ImageToHex(Image:Timage; LineLen:integer):Tstringlist; وهذا مثال اخر لتحويل الصورة ووضع النص باداة نصوص كود : implementation RE: اضافة صورة الى myrecord - mobile - 16-10-2020 السلام عليكم شكرا اخي ابو علي كلتا الطريقتين اللتين طرحت جميلة غير انه كما قال الاخ فريد استعمال المسارات افضل للتعامل مع الذاكرة ان كان البرنامج كبير RE: اضافة صورة الى myrecord - jeanjamil - 17-10-2020 (16-10-2020, 06:46 PM)Delphi4Us كتب : الاساليب والاجراءات والطرق كثيرة وغير محدودة ويمكن البحث واختيار الانسب لك شكرا الطريقة تنجح لوحدها اي عند تحويل الصورة واستعادتها بواسطة encodebase64 لكن ما زلت اجد صعوبة في وضع النص داخل ملف الداتا الرئيسي كما في xml لان النصوص في ال record اعتقد انها محدودة الحجم او تحتاج الى مؤشرات لفعل ذلك فقد واجهت عدة اعتراضات Integer overflow Out of memory فهل من نصيحة مع الشكر المسبق RE: اضافة صورة الى myrecord - Delphi4Us - 17-10-2020 اولا كما قال الاخوة ربما مجلد فيه روابط للصور كل صورة تحمل رقم ID للملف المطلوب تكون افضل . ولكن كما قلت لك سابقا استخدم الكلاسس بدل من السجلات اذا اردت الاستمرار بهذه الطريقة |