[EYADISMAIL]

السلام عليكم .. 

واجهتني بعض الاخطاء الصغيرة وهي

كود :

imgstr = ImageToString(PictureBox1.Image)

----------------------------------------------------------------------------------------------------------------------------------

---

وجدت ما الخطا هنا لقد قمت بوضع كود (Function) الذي في الاسفل في كلاس جديد (Class1) وعند نقل هذا الفنكشن الي نفس الفورم وهو فورم 1 اختفت المشكلة...^^! 

كود :

'كود تحويل الصورة إلى سلسلة نصية base64 والعكس :

   Private Function ImageToString(img As Image) As String
       Dim m As New MemoryStream()
       img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
       Return Convert.ToBase64String(m.ToArray())
   End Function

   Private Function StringToImage(imgstring As String) As Image
       Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
       Dim m As New MemoryStream(imgbytes)
       Return Image.FromStream(m)
   End Function

---------------------------------------------------------------------------------------------------------------
تبقى هذه المشكلة الصغيرة 

كود :

imgstr = ImageToString(PictureBox1.Image)

           nod.ChildNodes(2).InnerText = imgstr

[حريف برمجة]

ضيف هذه الأسطر :

كود :

Private Function ImageToString(img As Image) As String
      Dim m As New MemoryStream()
      img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
      Return Convert.ToBase64String(m.ToArray())
  End Function

  Private Function StringToImage(imgstring As String) As Image
      Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
      Dim m As New MemoryStream(imgbytes)
      Return Image.FromStream(m)
  End Function

أيضا في اعلا الصفحة تعرف المتغير :

كود :

Dim imgstr As String = ""

   

[EYADISMAIL]

ضيف هذه الأسطر :

كود :

Private Function ImageToString(img As Image) As String
      Dim m As New MemoryStream()
      img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
      Return Convert.ToBase64String(m.ToArray())
  End Function

  Private Function StringToImage(imgstring As String) As Image
      Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
      Dim m As New MemoryStream(imgbytes)
      Return Image.FromStream(m)
  End Function

أيضا في اعلا الصفحة تعرف المتغير :

كود :

Dim imgstr As String = ""

تسلم يداك ---- بارك الله فيك ....

---

المشروع مرفق المرحلة الاولي (اضافة - تعديل - حذف ) على الفيجوال بيسك 2010 --- والمرحلة الثانية جاري تتبع شرح مشرفنا وسيتم ارفاق المشروع كامل عند الانتهاء منه ان شاء الله

[حريف برمجة]

تم تنقيح مثالك أخي إياد إسماعيل وإكمال الناقص ووضعه في المشاركة الأولى ،،

شكراً وجزاك الله خير

[EYADISMAIL]

تم تنقيح مثالك أخي إياد إسماعيل وإكمال الناقص ووضعه في المشاركة الأولى ،،

شكراً وجزاك الله خير

بارك الله فيك ... وجزاك الله كل خير عني وعن الجميع --- 

[EYADISMAIL]

السلام عليكم-- تحية لمشرفنا (حريف برمجة)

تحديث ( تم تعديل المشروع الان كما في شرح "حريف برمجة" 100%)

  XMLApp - 2010--100%.rar (الحجم : 836.66 ك ب / التحميلات : 33)

اكملت المشروع مع التنسيق 98% مشكلة صغيره جدا وهي عدم ظهور الصورة في التقارير لا اعرف السبب قمت بمراجعة الخطوات على ما اعتقد تمام .. 

المشروع في المرفقات....

[حريف برمجة]

الصورة موجوده وظاهرة ولكن في صفحة رقم 2 ،، صغّر الأعمدة أو قم بتعديل الهامش للتقرير كالتالي :

   

   

[EYADISMAIL]

فعلا "حريف برمجة" 

تسلم يداك..   ..جعلك الله من الذين ينظرون إلى وجهه الكريم..

[حريف برمجة]

فعلا "حريف برمجة" 

تسلم يداك..   ..جعلك الله من الذين ينظرون إلى وجهه الكريم..

يارب آمين ،، انا وانت والمسلمين اجمعين بغير حساب ولا عذاب

[solbi]

ما شاء الله