Imports System.Data.SqlClient
Imports System.Configuration.ConfigurationManager
Imports System.Drawing 'bitmap icin
Imports System.Drawing.Imaging 'image çizimi için

Partial Class panel_duyuru_tanimla
    Inherits System.Web.UI.Page

    Private Sub panel_duyuru_tanimla_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim cookie As HttpCookie = Request.Cookies("kullanici")
        'cookie silindi ise ana sayfaya döner
        If cookie Is Nothing Then
            Response.Redirect("default.aspx")
        End If
    End Sub

    Private Sub kaydet_Click(sender As Object, e As EventArgs) Handles kaydet.Click
        On Error GoTo hata_kayit

        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim COMM As New SqlCommand
        Dim sql1 As String
        Dim SAYI As Long
        Dim dosyaad As String
        Dim bmp As Bitmap

        mesaj1.Text = ""
        mesaj1.Visible = False

        '---------------------------------------------------------------------------------------------------------------------------------------
        'Resmin boyutlandırmasını yaparak gönderir
        '1.resim
        SAYI = Randomizer(1000, 9999)
        Dim g_resim1 As String
        Label30.Text = ""
        g_resim1 = ""
        If FileUpload1.FileName <> "" Then
            If FileUpload1.HasFile Then 'dosya var ise
                If FileUpload1.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez
                    dosyaad = SAYI.ToString + "_" + FileUpload1.FileName
                    FileUpload1.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık 
                    '------------------------------yüklenmek istenen resmin boyutunu ayarlar-------------------------------------------------
                    bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz
                    'en boy oranına göre orantılı boyutlandırma yapar------------------------------
                    Dim genislik As Integer = 800  'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz
                    Dim yukseklik As Integer = 700
                    Dim ebatlar As New Size(bmp.Width, bmp.Height)
                    If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar
                        'resmin genişlik ve yükseklik oranını alıyoruz.
                        Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height))
                        If bmp.Width > genislik Then
                            ebatlar.Width = genislik
                            ebatlar.Height = CInt(CDbl(genislik) / oran)
                        End If
                        If ebatlar.Height > yukseklik Then
                            ebatlar.Height = yukseklik
                            ebatlar.Width = CInt(CDbl(yukseklik) * oran)
                        End If
                        Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar)
                        bmp.Dispose()
                        'eskisini silip boyutlanan resimleri atar
                        System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor.
                        yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg)
                        yeniresim.Dispose()
                    End If
                    '------------------------------------------------------------------------------------------------------------------------
                    g_resim1 = dosyaad
                    Label30.Text = FileUpload1.FileName + " resim yüklendi"
                Else
                    Label30.Text = "Resim boyutu 2mb den büyük.Yüklenemedi"
                End If
            Else
                Label30.Text = FileUpload1.FileName + " resim yüklenemedi !!!"
            End If
        Else
            g_resim1 = ""
        End If
        '---------------------------------------------------------------------------------------------------------------------------------------

        Dim datevalue As Date
        Date.TryParse(e_tarih.Text, datevalue)
        Session.LCID = 1033

        conn.Open()
        COMM = conn.CreateCommand()
        sql1 = "INSERT INTO DUYURULAR (TARIH, BASLIK, DETAY, RESIM) VALUES('" & datevalue & "', '" & e_baslik.Text.Replace("'", Chr(180)) & "', '" & e_duyurudetay.Content.Replace("'", Chr(180)) & "', '" & g_resim1 & "')"

        COMM.CommandText = sql1
        COMM.ExecuteNonQuery()
        conn.Close()
        Response.Redirect("duyuru-listesi.aspx")

hata_kayit:
        mesaj1.Text = "Kayıt işlemi sırasında bir hata oluştu, bilgi kaydedilemedi. Lütfen girişinizi kontrol ediniz!!!"
        mesaj1.Visible = "true"
    End Sub

    Private Function Randomizer(ByVal iStart As Integer, ByVal iEnd As Integer) As Integer
        Dim iRandomValue As Integer
        Randomize()
        iRandomValue = iStart + (Rnd() * (iEnd - iStart))
        Return iRandomValue
    End Function

End Class