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

Partial Class panel_firma_rehberi_tanimla
    Inherits System.Web.UI.Page

    Private Sub panel_firma_rehberi_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 btngrupekle_Click(sender As Object, e As EventArgs) Handles btngrupekle.Click
        'listeye firma tipi ekleme
        'yeni ilave edilen grup kod ile birlikte dropdownlist i bind eder
        e_kategori.Items.Clear()
        e_kategori.DataSourceID = "SqlDataSource1"
        e_kategori.DataBind()
        e_kategori.Items.Add(New ListItem(e_eklenenkategori.Text))

        e_kategori.ClearSelection()
        e_kategori.Items.FindByText(e_eklenenkategori.Text).Selected = True 'son eklenen değeri seçili yapar
    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("~/imagesfirmarehber/") + dosyaad) 'fotoyu server a attık 
                    '------------------------------yüklenmek istenen resmin boyutunu ayarlar-------------------------------------------------
                    bmp = New Bitmap(Server.MapPath("~/imagesfirmarehber/" + 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("~/imagesfirmarehber/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor.
                        yeniresim.Save(Server.MapPath("~/imagesfirmarehber/" + 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


        '2.resim
        SAYI = Randomizer(1000, 9999)
        Dim g_resim2 As String
        Label32.Text = ""
        g_resim2 = ""
        If FileUpload2.FileName <> "" Then
            If FileUpload2.HasFile Then 'dosya var ise
                If FileUpload2.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez
                    dosyaad = SAYI.ToString + "_" + FileUpload2.FileName
                    FileUpload2.SaveAs(Server.MapPath("~/imagesfirmarehber/") + dosyaad) 'fotoyu server a attık 
                    '------------------------------yüklenmek istenen resmin boyutunu ayarlar-------------------------------------------------
                    bmp = New Bitmap(Server.MapPath("~/imagesfirmarehber/" + 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("~/imagesfirmarehber/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor.
                        yeniresim.Save(Server.MapPath("~/imagesfirmarehber/" + dosyaad), ImageFormat.Jpeg)
                        yeniresim.Dispose()
                    End If
                    '------------------------------------------------------------------------------------------------------------------------
                    g_resim2 = dosyaad
                    Label32.Text = FileUpload2.FileName + " resim yüklendi"
                Else
                    Label32.Text = "Resim boyutu 2mb den büyük.Yüklenemedi"
                End If
            Else
                Label32.Text = FileUpload2.FileName + " resim yuklenemedi !!!"
            End If
        Else
            g_resim2 = ""
        End If
        '---------------------------------------------------------------------------------------------------------------------------------------

        conn.Open()
        COMM = conn.CreateCommand()
        sql1 = "INSERT INTO FIRMAREHBERI (KATEGORI, UNVAN, YETKILI, ADRES, TELEFON, EMAIL, WEBADRES, FIRMABILGI, KONUM, RESIM1, RESIM2) VALUES('" & e_kategori.SelectedValue & "', '" &
            e_unvan.Text.Replace("'", Chr(180)) & "', '" & e_yetkili.Text.Replace("'", Chr(180)) & "', '" & e_adres.Text.Replace("'", Chr(180)) & "', '" & e_tel.Text & "', '" & e_eposta.Text & "', '" & e_web.Text & "', '" & e_bilgi.Content.Replace("'", Chr(180)) & "', '" & e_harita.Text & "', '" & g_resim1 & "', '" & g_resim2 & "')"
        COMM.CommandText = sql1
        COMM.ExecuteNonQuery()
        conn.Close()
        Response.Redirect("firma-rehberi.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