تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود حفظ صورة في قاعدة البيانات sql
#1
السلام عليكم ورحمة الله , كيفكم أخواني إن شاء الله تكونو بخير .

لدي قاعدة بيانات sql و خانات متعددة واحتاج كود اضافة الصورة على حسب رقم الشخص

مثال : المعرف | احمد | العمر | رقم الهاتف | الصورة 

عندما أكتب الid الخاص في الشخص و أحفظ يقوم الكود بحفظ الصورة في الخانة المخصصة له 

هذه صورة لقاعدة البيانات + صورة للواجهة 





الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
حسب فهمي البسيط أخي الكريم ..
البيانات موجودة مسبقا .. و أحيانا تريد إضافة صورة لاحقًا بعد حفظ السجل بدون صورة
بهذه الحالة .. الأمر سيكون كود لتعديل البيانات و ليس لحفظها
استعمل كمثال لتقريب الفكرة ..
كود :
   Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne_2020
           Cmd.CommandType = CommandType.Text
           Cmd.CommandText = "UPDATE TBL_STUDENT SET STUDENT_Name=@STUDENT_Name , STUDENT_Picture=@STUDENT_Picture Where STUDENT_Id=@STUDENT_Id"
           Cmd.Parameters.Clear()
       
           Cmd.Parameters.AddWithValue("@STUDENT_Name", OleDbType.VarChar).Value = StudentName
         

   'Update PictureBox
   Dim Ms_Photo As New MemoryStream()
   Dim bmpImage As New Bitmap(PictureBox1.Image)
           bmpImage.Save(Ms_Photo, System.Drawing.Imaging.ImageFormat.Jpeg)
   Dim Data_Photo As Byte() = Ms_Photo.GetBuffer()
   Dim PhotoPersonnelle As New OleDbParameter("@STUDENT_Picture", OleDbType.Binary)
           PhotoPersonnelle.Value = Data_Photo
           Cmd.Parameters.Add(PhotoPersonnelle)

           Cmd.Parameters.AddWithValue("@STUDENT_Id", SqlDbType.Int).Value = StudentIDW

       End With
       Try
           If Conne_2020.State = 1 Then Conne_2020.Close()
           Conne_2020.Open()
Cmd.ExecuteNonQuery()
           Conne_2020.Close()
           CmdUpdate = Nothing
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
       End Try

تحياتي
الرد
تم الشكر بواسطة: aldery
#3
(22-02-20, 11:51 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
حسب فهمي البسيط أخي الكريم ..
البيانات موجودة مسبقا .. و أحيانا تريد إضافة صورة لاحقًا بعد حفظ السجل بدون صورة
بهذه الحالة .. الأمر سيكون كود لتعديل البيانات و ليس لحفظها
استعمل كمثال لتقريب الفكرة ..
كود :
   Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne_2020
           Cmd.CommandType = CommandType.Text
           Cmd.CommandText = "UPDATE TBL_STUDENT SET STUDENT_Name=@STUDENT_Name , STUDENT_Picture=@STUDENT_Picture Where STUDENT_Id=@STUDENT_Id"
           Cmd.Parameters.Clear()
       
           Cmd.Parameters.AddWithValue("@STUDENT_Name", OleDbType.VarChar).Value = StudentName
         

   'Update PictureBox
   Dim Ms_Photo As New MemoryStream()
   Dim bmpImage As New Bitmap(PictureBox1.Image)
           bmpImage.Save(Ms_Photo, System.Drawing.Imaging.ImageFormat.Jpeg)
   Dim Data_Photo As Byte() = Ms_Photo.GetBuffer()
   Dim PhotoPersonnelle As New OleDbParameter("@STUDENT_Picture", OleDbType.Binary)
           PhotoPersonnelle.Value = Data_Photo
           Cmd.Parameters.Add(PhotoPersonnelle)

           Cmd.Parameters.AddWithValue("@STUDENT_Id", SqlDbType.Int).Value = StudentIDW

       End With
       Try
           If Conne_2020.State = 1 Then Conne_2020.Close()
           Conne_2020.Open()
Cmd.ExecuteNonQuery()
           Conne_2020.Close()
           CmdUpdate = Nothing
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
       End Try

تحياتي
أخي هل يمكنك أرفقها بمشروع ظهرت لدي مشاكل عديدة لم أستطع حلها وشكراَ لك
الرد
تم الشكر بواسطة:
#4
(22-02-20, 11:38 PM)aldery كتب : السلام عليكم ورحمة الله , كيفكم أخواني إن شاء الله تكونو بخير .

لدي قاعدة بيانات sql و خانات متعددة واحتاج كود اضافة الصورة على حسب رقم الشخص

مثال : المعرف | احمد | العمر | رقم الهاتف | الصورة 

عندما أكتب الid الخاص في الشخص و أحفظ يقوم الكود بحفظ الصورة في الخانة المخصصة له 

هذه صورة لقاعدة البيانات + صورة للواجهة 






من الصورة يبدو ان نوع حقل الصورة ليس image

ضع الكود الذي لديك لتعديله
مع تحديد نوع حقل الصورة
وهل تريد حفظ الصورة ام مسارها؟
الرد
تم الشكر بواسطة: aldery , aldery
#5
(23-02-20, 12:12 AM)alsalamoni كتب :
(22-02-20, 11:38 PM)aldery كتب : السلام عليكم ورحمة الله , كيفكم أخواني إن شاء الله تكونو بخير .

لدي قاعدة بيانات sql و خانات متعددة واحتاج كود اضافة الصورة على حسب رقم الشخص

مثال : المعرف | احمد | العمر | رقم الهاتف | الصورة 

عندما أكتب الid الخاص في الشخص و أحفظ يقوم الكود بحفظ الصورة في الخانة المخصصة له 

هذه صورة لقاعدة البيانات + صورة للواجهة 






من الصورة يبدو ان نوع حقل الصورة ليس image

ضع الكود الذي لديك لتعديله
مع تحديد نوع حقل الصورة
وهل تريد حفظ الصورة ام مسارها؟

كود :
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
    Dim fName As String

    Dim cnn As SqlConnection
    Dim connectionString As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connectionString = "server=DESKTOP-CRKR4GN\Afkee; database=list1; integrated security=true"
        cnn = New SqlConnection(connectionString)
        fName = "D:\picfile.jpg"
        If File.Exists(fName) Then
            Dim id As Integer = 1
            Dim content As Byte() = ImageToStream(fName)
            cnn.Open()

            Dim cmd As New SqlCommand("insert into imgtable (id,img) values ( @id,@img)", cnn)
            cmd.Parameters.AddWithValue("@id", id)
            cmd.Parameters.AddWithValue("@img", content)
            cmd.ExecuteNonQuery()

            cnn.Close()
            MsgBox("Image inserted")
        Else
            MsgBox(fName & " not found ")
        End If
    End Sub

    Private Function ImageToStream(ByVal fileName As String) As Byte()
        Dim stream As New MemoryStream()
tryagain:
        Try
            Dim image As New Bitmap(fileName)
            image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Catch ex As Exception
            GoTo tryagain
        End Try

        Return Stream.ToArray()
    End Function
End Class


أخي هذا الكود 

بلنسبة لقاعدة بيانات هي بلفعل يوجد بها حقل صورة 

اريد حفظ الصورة وليس المسار  وهذا صورة لمكان الصورة

الرد
تم الشكر بواسطة:
#6
طيب أخي الكريم
التعديل سيكون على حساب رقم الإي دي المكتوب بالتاكست بوكس رقم 1 و الذي هو شرط التعديل
غير عبارات OleDb
بــ
Sql
و Integer بــ Int
تحياتي


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 211.88 ك ب / التحميلات : 25)
الرد
تم الشكر بواسطة:
#7
(23-02-20, 12:30 AM)عبد العزيز البسكري كتب :
طيب أخي الكريم
التعديل سيكون على حساب رقم الإي دي المكتوب بالتاكست بوكس رقم 1 و الذي هو شرط التعديل
غير عبارات OleDb
بــ
Sql
و Integer بــ Int
تحياتي

بعتذر منك طلبت الكثير منك ولكن أنضر المشكلة وهذا من السورس الذي ارسلته 
الرد
تم الشكر بواسطة:
#8
سيكون الشكل بهذه الطريقة .. راجع أسماء كود الإتصال لو سمحت ..
كود :
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
   Public Constr As String = "Server=YourServerName;Database=YourDatabaseName;Integrated Security=False;User Id=YourNameLogin;Password=YourPasswordSqlServer"
   Public Conne_2020 As New SqlClient.SqlConnection(Constr)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Cmd As New SqlCommand
       With Cmd
           Cmd.Connection = Conne_2020
           Cmd.CommandType = CommandType.Text
           Cmd.CommandText = "UPDATE TBL_STUDENT SET STUDENT_Picture=@STUDENT_Picture Where STUDENT_Id=@STUDENT_Id"
           Cmd.Parameters.Clear()

           'Update PictureBox
           Dim Ms_Photo As New MemoryStream()
           Dim bmpImage As New Bitmap(PictureBox1.Image)
           bmpImage.Save(Ms_Photo, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim Data_Photo As Byte() = Ms_Photo.GetBuffer()
           Dim PhotoPersonnelle As New SqlParameter("@STUDENT_Picture", SqlDbType.Image)
           PhotoPersonnelle.Value = Data_Photo
           Cmd.Parameters.Add(PhotoPersonnelle)

           Cmd.Parameters.AddWithValue("@STUDENT_Id", SqlDbType.Int).Value = TextBox1.Text

       End With
       Try
           If Conne_2020.State = 1 Then Conne_2020.Close()
           Conne_2020.Open()
           Cmd.ExecuteNonQuery()
           Conne_2020.Close()
           Cmd = Nothing
           MessageBox.Show("تمت بنجاح عملية حفظ الصورة و تعديل البيانات", "تعديل البيانات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
       End Try
   End Sub
   Private Sub Choose_Picture_From_Computer(Pbox As PictureBox)
       Try
           Dim Ofn As New OpenFileDialog
           With Ofn
               Ofn.AddExtension = True
               Ofn.CheckPathExists = True
               Ofn.CheckFileExists = True
               Ofn.Title = "إختيار الصورة الرمزية"
               Ofn.Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
               Ofn.FilterIndex = 4
               Ofn.Multiselect = False
               If .ShowDialog = DialogResult.OK Then
                   Pbox.Image = Image.FromFile(.FileName)
               End If
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ غير متوقّع أثناء تحميل الصّورة", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Choose_Picture_From_Computer(PictureBox1)
   End Sub
End Class

الرد
تم الشكر بواسطة: aldery
#9
(23-02-20, 12:28 AM)aldery كتب :
(23-02-20, 12:12 AM)alsalamoni كتب :
(22-02-20, 11:38 PM)aldery كتب : السلام عليكم ورحمة الله , كيفكم أخواني إن شاء الله تكونو بخير .

لدي قاعدة بيانات sql و خانات متعددة واحتاج كود اضافة الصورة على حسب رقم الشخص

مثال : المعرف | احمد | العمر | رقم الهاتف | الصورة 

عندما أكتب الid الخاص في الشخص و أحفظ يقوم الكود بحفظ الصورة في الخانة المخصصة له 

هذه صورة لقاعدة البيانات + صورة للواجهة 






من الصورة يبدو ان نوع حقل الصورة ليس image

ضع الكود الذي لديك لتعديله
مع تحديد نوع حقل الصورة
وهل تريد حفظ الصورة ام مسارها؟

كود :
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
    Dim fName As String

    Dim cnn As SqlConnection
    Dim connectionString As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connectionString = "server=DESKTOP-CRKR4GN\Afkee; database=list1; integrated security=true"
        cnn = New SqlConnection(connectionString)
        fName = "D:\picfile.jpg"
        If File.Exists(fName) Then
            Dim id As Integer = 1
            Dim content As Byte() = ImageToStream(fName)
            cnn.Open()

            Dim cmd As New SqlCommand("insert into imgtable (id,img) values ( @id,@img)", cnn)
            cmd.Parameters.AddWithValue("@id", id)
            cmd.Parameters.AddWithValue("@img", content)
            cmd.ExecuteNonQuery()

            cnn.Close()
            MsgBox("Image inserted")
        Else
            MsgBox(fName & " not found ")
        End If
    End Sub

    Private Function ImageToStream(ByVal fileName As String) As Byte()
        Dim stream As New MemoryStream()
tryagain:
        Try
            Dim image As New Bitmap(fileName)
            image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Catch ex As Exception
            GoTo tryagain
        End Try

        Return Stream.ToArray()
    End Function
End Class


أخي هذا الكود 

بلنسبة لقاعدة بيانات هي بلفعل يوجد بها حقل صورة 

اريد حفظ الصورة وليس المسار  وهذا صورة لمكان الصورة


افترضت ان id ترقيم تلقائي لهذا حذفته من امر الاضافه
كود :
Imports System.Data.SqlClient
Imports System.IO

Public Class Form1

   Dim fName As String

   Dim cnn As New SqlConnection("Data Source=servername; Initial Catalog=databasename; User ID=sa; Password=password")
   Dim connectionString As String

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       fName = "D:\picfile.jpg"
       If Not File.Exists(fName) Then
           MsgBox("not found")
           Exit Sub
       End If

       Dim cmd As New SqlCommand("insert into imgtable (img) values(@img)", cnn)
       cmd.Parameters.AddWithValue("@img", File.ReadAllBytes(fName))

       cnn.Open()
       If cmd.ExecuteNonQuery() = 1 Then
           MsgBox("Image inserted")
       End If
       cnn.Close()

   End Sub

End Class
الرد
تم الشكر بواسطة: aldery , عبد العزيز البسكري
#10
(23-02-20, 12:41 AM)عبد العزيز البسكري كتب :
سيكون الشكل بهذه الطريقة .. راجع أسماء كود الإتصال لو سمحت ..
كود :
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
   Public Constr As String = "Server=YourServerName;Database=YourDatabaseName;Integrated Security=False;User Id=YourNameLogin;Password=YourPasswordSqlServer"
   Public Conne_2020 As New SqlClient.SqlConnection(Constr)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Cmd As New SqlCommand
       With Cmd
           Cmd.Connection = Conne_2020
           Cmd.CommandType = CommandType.Text
           Cmd.CommandText = "UPDATE TBL_STUDENT SET STUDENT_Picture=@STUDENT_Picture Where STUDENT_Id=@STUDENT_Id"
           Cmd.Parameters.Clear()

           'Update PictureBox
           Dim Ms_Photo As New MemoryStream()
           Dim bmpImage As New Bitmap(PictureBox1.Image)
           bmpImage.Save(Ms_Photo, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim Data_Photo As Byte() = Ms_Photo.GetBuffer()
           Dim PhotoPersonnelle As New SqlParameter("@STUDENT_Picture", SqlDbType.Image)
           PhotoPersonnelle.Value = Data_Photo
           Cmd.Parameters.Add(PhotoPersonnelle)

           Cmd.Parameters.AddWithValue("@STUDENT_Id", SqlDbType.Int).Value = TextBox1.Text

       End With
       Try
           If Conne_2020.State = 1 Then Conne_2020.Close()
           Conne_2020.Open()
           Cmd.ExecuteNonQuery()
           Conne_2020.Close()
           Cmd = Nothing
           MessageBox.Show("تمت بنجاح عملية حفظ الصورة و تعديل البيانات", "تعديل البيانات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
       End Try
   End Sub
   Private Sub Choose_Picture_From_Computer(Pbox As PictureBox)
       Try
           Dim Ofn As New OpenFileDialog
           With Ofn
               Ofn.AddExtension = True
               Ofn.CheckPathExists = True
               Ofn.CheckFileExists = True
               Ofn.Title = "إختيار الصورة الرمزية"
               Ofn.Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
               Ofn.FilterIndex = 4
               Ofn.Multiselect = False
               If .ShowDialog = DialogResult.OK Then
                   Pbox.Image = Image.FromFile(.FileName)
               End If
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ غير متوقّع أثناء تحميل الصّورة", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Choose_Picture_From_Computer(PictureBox1)
   End Sub
End Class


أشكرك جداً وفقك الله ورزقك  Heart

(23-02-20, 12:42 AM)alsalamoni كتب :
(23-02-20, 12:28 AM)aldery كتب :
(23-02-20, 12:12 AM)alsalamoni كتب :
(22-02-20, 11:38 PM)aldery كتب : السلام عليكم ورحمة الله , كيفكم أخواني إن شاء الله تكونو بخير .

لدي قاعدة بيانات sql و خانات متعددة واحتاج كود اضافة الصورة على حسب رقم الشخص

مثال : المعرف | احمد | العمر | رقم الهاتف | الصورة 

عندما أكتب الid الخاص في الشخص و أحفظ يقوم الكود بحفظ الصورة في الخانة المخصصة له 

هذه صورة لقاعدة البيانات + صورة للواجهة 






من الصورة يبدو ان نوع حقل الصورة ليس image

ضع الكود الذي لديك لتعديله
مع تحديد نوع حقل الصورة
وهل تريد حفظ الصورة ام مسارها؟

كود :
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
    Dim fName As String

    Dim cnn As SqlConnection
    Dim connectionString As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connectionString = "server=DESKTOP-CRKR4GN\Afkee; database=list1; integrated security=true"
        cnn = New SqlConnection(connectionString)
        fName = "D:\picfile.jpg"
        If File.Exists(fName) Then
            Dim id As Integer = 1
            Dim content As Byte() = ImageToStream(fName)
            cnn.Open()

            Dim cmd As New SqlCommand("insert into imgtable (id,img) values ( @id,@img)", cnn)
            cmd.Parameters.AddWithValue("@id", id)
            cmd.Parameters.AddWithValue("@img", content)
            cmd.ExecuteNonQuery()

            cnn.Close()
            MsgBox("Image inserted")
        Else
            MsgBox(fName & " not found ")
        End If
    End Sub

    Private Function ImageToStream(ByVal fileName As String) As Byte()
        Dim stream As New MemoryStream()
tryagain:
        Try
            Dim image As New Bitmap(fileName)
            image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Catch ex As Exception
            GoTo tryagain
        End Try

        Return Stream.ToArray()
    End Function
End Class


أخي هذا الكود 

بلنسبة لقاعدة بيانات هي بلفعل يوجد بها حقل صورة 

اريد حفظ الصورة وليس المسار  وهذا صورة لمكان الصورة


افترضت ان id ترقيم تلقائي لهذا حذفته من امر الاضافه
كود :
Imports System.Data.SqlClient
Imports System.IO

Public Class Form1

   Dim fName As String

   Dim cnn As New SqlConnection("Data Source=servername; Initial Catalog=databasename; User ID=sa; Password=password")
   Dim connectionString As String

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       fName = "D:\picfile.jpg"
       If Not File.Exists(fName) Then
           MsgBox("not found")
           Exit Sub
       End If

       Dim cmd As New SqlCommand("insert into imgtable (img) values(@img)", cnn)
       cmd.Parameters.AddWithValue("@img", File.ReadAllBytes(fName))

       cnn.Open()
       If cmd.ExecuteNonQuery() = 1 Then
           MsgBox("Image inserted")
       End If
       cnn.Close()

   End Sub

End Class

شكراً لك على جهودك وفقك الله وراعك بلفعل قام الأخ بحل المشكلة  Heart
الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طباعة صورة من الإكسيس بأستخدام الفيجول بيسك 2010 رامى محمد 3 104 , 03:12 PM
آخر رد: رامى محمد
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 2 51 19-09-20, 07:45 PM
آخر رد: kewely
  استفسار بخصوص حجم قاعدة بيانات سيكوال سيرفر momani33 0 39 16-09-20, 02:22 PM
آخر رد: momani33
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 181 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 71 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  ربط قاعدة البيانات محمود احمد سعد 1 76 14-09-20, 03:49 PM
آخر رد: اسامه الهرماوي
  ربط قاعدة البيانات محمود احمد سعد 1 85 14-09-20, 03:00 PM
آخر رد: Anas Mahmoud
  حاجة غريبة بتحصل فى قاعدة البيانات mostafa nada 4 102 14-09-20, 08:41 AM
آخر رد: الوايلي
  هل الاستعلام وعرض البيانات عن طريق الكويري أسرع وأفضل new_programer 2 250 10-09-20, 04:58 PM
آخر رد: new_programer
  [VB.NET] احتاج الى كود ترحيل البيانات بنت الشام 2 141 08-09-20, 09:42 PM
آخر رد: Anas Mahmoud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم