|
Imports System.Drawing
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub btnYukle_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnYukle.Click
If (FileUpload1.HasFile) Then
'Konfigürasyondan okuyoruz
Dim kfu As Integer = Int32.Parse(ConfigurationManager.AppSettings("kucukFotografUzunluk").ToString())
Dim kfy As Integer = Int32.Parse(ConfigurationManager.AppSettings("kucukFotografYukselik").ToString())
Dim bfu As Integer = Int32.Parse(ConfigurationManager.AppSettings("buyukFotografUzunluk").ToString())
Dim bfy As Integer = Int32.Parse(ConfigurationManager.AppSettings("buyukFotografYukselik").ToString())
'FileUpload nesnesinin içerigin stream olarak aliyoruz
Dim bmp As Bitmap = New Bitmap(FileUpload1.FileContent)
'Resmi pixsel olarak yeniden boyutlandir
bmp.SetPixel(kfu, kfy, System.Drawing.Color.Black)
Dim kucukResim As Bitmap = CType(bmp.GetThumbnailImage(kfu, kfy, Nothing, IntPtr.Zero), Bitmap)
Dim buyukResim As Bitmap = CType(bmp.GetThumbnailImage(bfu, bfy, Nothing, IntPtr.Zero), Bitmap)
kucukResim.Save(Server.MapPath("fotograflar/kucukler/" + Guid.NewGuid().ToString() + ".jpg"))
buyukResim.Save(Server.MapPath("fotograflar/buyukler/" + Guid.NewGuid().ToString() + ".jpg"))
bmp.Dispose()
Else
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "x", "Dosya Seçiniz", True)
End If
End Sub
End Class
|