الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تمرير صورة إلى الكريستال ريبورت

بدأه محمد أحمد إبراهيم في 12 أكتوبر 2011 · 4 رد · 2,203 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته ..

مشكلتى اننى أستخدم vb.net 2008 و أستخدم الكريستال ريبورت الموجود معها .. و عندى صورة موجودة على الفورم بداخل picturebox و السؤال هنا كيف يمكننى عرض هذه الصورة داخل التقرير ( مع التأكيد أننى أستخدم الكريستال الموجود مع النسخة vb.net 2008 express)

#2

لو سمحتم يا جماعة لو حد يعرف رد لسؤالى يجاوبنى لأنى محتاج الإجابة ضرورى جدا .. و جزاكم الله كل خير

تم تعديل هذه المشاركة بواسطة محمد أحمد إبراهيم في 13 أكتوبر 2011 في 08:51

#3

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

انشء dataSet فيها عمود من نوع System.Byte[] أو صف عادي فيه Property من نوع byte[] (أنا سأعمل على الصف) و ليكن :

class Employee
	{
    	public string Name { set; get; }
    	public byte[] theImage { set; get; }
	}

ثم اضفه كمصدر لبيانات التقرير ..

و اسحب الحقول على التقرير ....

ثم مرر له البيانات :

List<Employee> empList = new List<Employee>();
        	Employee employee1 = new Employee() { Name = "N1" };
        	FileStream fs = new FileStream(@"d:\1.png",System.IO.FileMode.Open, System.IO.FileAccess.Read);
        	byte[] Image = new byte[fs.Length];
        	fs.Read(Image, 0, Convert.ToInt32(fs.Length));
        	fs.Close();
        	employee1.theImage = Image;

        	empList.Add(employee1);
        	CrystalReport2 crystalReport2 = new CrystalReport2();
        	crystalReport2.SetDataSource(empList.ToArray());
        	crystalReportViewer1.ReportSource = crystalReport2;

و سيعمل بإذن الله ..

و الكود بالــ VB.NET باستخدام اداة تحوبل الكود :

Class Employee 	
Public Property Name() As String
 		Get 			
Return m_Name
 		End Get 
		Set
 			m_Name = Value 
		End Set 
	End Property
 	Private m_Name As String    
 Public Property theImage() As Byte()
 		Get
 			Return m_theImage 
		End Get   
  	Set   
  		m_theImage = Value 
		End Set
 	End Property   
  Private m_theImage As Byte()
 End Class

Dim empList As New List(Of Employee)()
 Dim employee1 As New Employee() With { _ 	Key .Name = "N1" _ } 
Dim fs As New FileStream("d:\1.png", System.IO.FileMode.Open, System.IO.FileAccess.Read)
 Dim Image As Byte() = New Byte(fs.Length - 1) {}
 fs.Read(Image, 0, Convert.ToInt32(fs.Length))
 fs.Close()
 employee1.theImage = Image
 empList.Add(employee1)
 Dim crystalReport2 As New CrystalReport2()
 crystalReport2.SetDataSource(empList.ToArray()) 
crystalReportViewer1.ReportSource = crystalReport2

رابط المصدر :

http://www.codeproje...ReportView.aspx

روابط لمواضيع مشابهة :

كيف اعرض صورة مخزنة في مسار داخل Microsoft Report Viwer

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 13 أكتوبر 2011 في 10:57

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#4

انظر هذا الرابط

الرابط الخاص بي

مواضيع مشابهة