INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.

Join the forum, it's quick and easy

INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Thích Bài viết này
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

View the whole list


Go down
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 29
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET Empty Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET

Tue May 28, 2013 10:25 pm
Đoạn codeVB.NET sau đây sẽ giúp bạn thu nhỏ một tấm hình nào đó từ kích thước lớn thành kích thước nhỏ, có thể chúng ta thường ứng dụng trong các trường hợp tạo Thumbnails - Hình đại diện cho bài viết, tạo Avatar cho người dùng.Xem đoạn code VB.NET sau:

Đầu tiên bạn cần add thêm 3 thư viện sau:

Code:
Imports System.Drawing
Imports System.IO
Imports System.Drawing.Imaging

Bạn viết thêm 2 hàm sau:

Code:
Public Sub ThayDoiKichThuocAnh(ByVal ImageSavePath As String, ByVal fileName As String, ByVal MaxWidthSideSize As Integer, ByVal Buffer As Stream)
        Dim intNewWidth As Integer
        Dim intNewHeight As Integer
        Dim imgInput As System.Drawing.Image = System.Drawing.Image.FromStream(Buffer)
        Dim myImageCodecInfo As ImageCodecInfo
        myImageCodecInfo = GetEncoderInfo("image/jpeg")
        '
        Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
        Dim myEncoderParameters As New EncoderParameters(1)
        Dim myEncoderParameter As EncoderParameter
        'Giá trị width và height nguyên thủy của ảnh;
        Dim intOldWidth As Integer = imgInput.Width
        Dim intOldHeight As Integer = imgInput.Height

        'Kiểm tra xem ảnh ngang hay dọc;
        Dim intMaxSide As Integer
        'if (intOldWidth >= intOldHeight)
        '            {
        '            intMaxSide = intOldWidth;
        '            }
        '            else
        '            {
        '            intMaxSide = intOldHeight;
        '            }

        'Để xác định xử lý ảnh theo width hay height thì bạn bỏ note phần trên;
        'Ở đây mình chỉ sử dụng theo width nên gán luôn intMaxSide= intOldWidth; ^^;
        intMaxSide = intOldWidth
        If intMaxSide > MaxWidthSideSize Then
            'Gán width và height mới.
            Dim dblCoef As Double = MaxWidthSideSize / CDbl(intMaxSide)
            intNewWidth = Convert.ToInt32(dblCoef * intOldWidth)
            intNewHeight = Convert.ToInt32(dblCoef * intOldHeight)
        Else
            'Nếu kích thước width/height (intMaxSide) cũ ảnh nhỏ hơn MaxWidthSideSize thì giữ nguyên //kích thước cũ;
            intNewWidth = intOldWidth
            intNewHeight = intOldHeight
        End If

        'Tạo một ảnh bitmap mới;
        Dim bmpResized As New Bitmap(imgInput, intNewWidth, intNewHeight)
        'Phần EncoderParameter cho phép bạn chỉnh chất lượng hình ảnh ở đây mình để chất lượng tốt //nhất là 100L;
        myEncoderParameter = New EncoderParameter(myEncoder, 100L)
        myEncoderParameters.Param(0) = myEncoderParameter
        'Lưu ảnh;
        bmpResized.Save(ImageSavePath & fileName, myImageCodecInfo, myEncoderParameters)

        'Giải phóng tài nguyên;
        'Buffer.Close();
        imgInput.Dispose()
        bmpResized.Dispose()
    End Sub
    Private Function GetEncoderInfo(ByVal mimeType As [String]) As ImageCodecInfo
        Dim j As Integer
        Dim encoders As ImageCodecInfo()
        encoders = ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length - 1
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next
        Return Nothing

    End Function

Đến khi cần sử dụng hàm thì bạn gọi như sau là sẽ đồng thời thay đổi kích thước ảnh theo quy định của mình và upload ảnh đã resize lên host

Code:
ThayDoiKichThuocAnh(Server.MapPath("~/upload/"), filehinh.FileName, 450, filehinh.PostedFile.InputStream)

Với filehinh là FileUpload.

Chúc các bạn thành công.!
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết