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

إذن يبقى أن تعرف كيف تدير الصورة. دائماً و أبداً Google is your friend

http://www.switchonthecode.com/tutorials/csharp-tutorial-image-editing-rotate

يعطيك العافيه عالرد اخوي

لكن المثال معقد شوي فيه اكثر من اللي اريده

ياليت مثال مبسط ويخص الاستدارة فقط

هذا هو بالفعل للاستدارة و الاستدارة فقط. و لا يمكن تبسيطه أكثر من هذا.

والله ياخي لم افهم منه شي ياليت تتكرم وتبسطه بمثال من عندك على asp.net

هذه دالة تعطيها الصورة على هيئة BitMap و زاوية الدوران، فتقوم بتعديل الصورة آلياً. كل ما عليك هو نسخ هذه الدالة إلى برنامجك و استخدامها. مثلآً الصورة موجودة في المتغير myPic و تريد أن تقلبها (180 درجة). ما تقوم به:

rotateImage(myPic,180)

هكذا تتغير myPic و يمكنك بعدها تخزينها في قاعدة بيانات أو أي شئ آخر

الله يجزاك خير اخوي على الرد

ياليت قليل من المساعدة

هذا الكود اللي استخدمة للحفظ

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim imageInfo As FileInfo = New FileInfo(Me.File1.Value.Trim())
        If imageInfo.Exists() = False Then
        Else
            Select Case (imageInfo.Extension.ToUpper())
                Case ".JPG" : UpLoadImageFile(Me.File1.Value.Trim())
                Case ".GIF" : UpLoadImageFile(Me.File1.Value.Trim())
                Case ".BMP" : UpLoadImageFile(Me.File1.Value.Trim())
            End Select
        End If
    End Sub
    Private Sub UpLoadImageFile(ByVal info As String)
        Dim objConn As OleDbConnection
        Dim objCom As OleDbCommand

        Dim imagestream As FileStream = New FileStream(info, FileMode.Open)
        Dim data() As Byte

        ReDim data(imagestream.Length - 1)
        imagestream.Read(data, 0, imagestream.Length)
        imagestream.Close()
        objConn = New OleDbConnection(strConnectionString)
        objConn.Open()
        objCom = New OleDbCommand
        objCom.Connection = objConn
        objCom.CommandText = "INSERT INTO [Picture] (Pic) VALUES(?)"
        objCom.Parameters.Clear()
        objCom.Parameters.AddWithValue("Pic", data)
        objCom.ExecuteNonQuery()
        objConn.Close()

    End Sub

مادري بالضبط وين اضع الدالة

الصورة عنك هنا موجود داخل المتغير data على شكل بايناري. يجب عليك تحويلها إلى bitmap ثم إدخالها في الدالة ثم إعادة تحويلها إلى بايناري مرة أخرى قبل إدخالها في قاعدة البيانات

يا آخي ضاري إجابة الآخ System Down هي أكثر من كافية ... ولا تتطلب منك سوى الجهد قليلاً ....

رغم ذلك سأقوم بتعديل كودك ليشمل الإجابة الصحيحة :

    Private Sub UpLoadImageFile(ByVal info As String)
        Dim objConn As OleDbConnection
        Dim objCom As OleDbCommand

        'Dim imagestream As FileStream = New FileStream(info, FileMode.Open)
        ''ReDim data(imagestream.Length - 1)
        ''imagestream.Read(data, 0, imagestream.Length)
        'imagestream.Close()
        Dim bitmap As Drawing.Bitmap = Drawing.Bitmap.FromFile(info)
        bitmap.RotateFlip(Drawing.RotateFlipType.Rotate90FlipNone)
        Dim memStream As New MemoryStream()
        bitmap.Save(memStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim data As Byte() = memStream.ToArray()
        objConn = New OleDbConnection(strConnectionString)
        objConn.Open()
        objCom = New OleDbCommand

        objCom.Connection = objConn
        objCom.CommandText = "INSERT INTO [Picture] (Pic) VALUES(?)"

        objCom.Parameters.Clear()
        objCom.Parameters.AddWithValue("Pic", data)
        objCom.ExecuteNonQuery()
        objConn.Close()

    End Sub

بالتوفيق

جزاك الله خير الجزاء اخوي System Down

ويعطيك الف عافيه

والشكر موصول لك اخي حسام جزاكم الله كل خير

وادام الله هذا الصرح العظيم