アップロード時にイメージのサイズを変更できません - 私のバッファは何ですか？

Question

これは私が、私は、ユーザーが写真をアップロードして、私がクリックしたときに今

Public Sub ResizeFromStream(ByVal ImageSavePath As String, ByVal MaxSideSize As Integer, ByVal Buffer As System.IO.Stream) 

    Dim intNewWidth As Integer 
    Dim intNewHeight As Integer 
    Dim imgInput As System.Drawing.Image = System.Drawing.Image.FromStream(Buffer) 


    'Determine image format 
    Dim fmtImageFormat As ImageFormat = imgInput.RawFormat 

    'get image original width and height 
    Dim intOldWidth As Integer = imgInput.Width 
    Dim intOldHeight As Integer = imgInput.Height 

    'determine if landscape or portrait 
    Dim intMaxSide As Integer 

    If (intOldWidth >= intOldHeight) Then 
     intMaxSide = intOldWidth 
    Else 
     intMaxSide = intOldHeight 
    End If 

    If (intMaxSide > MaxSideSize) Then 
     'set new width and height 
     Dim dblCoef As Double = MaxSideSize/CDbl(intMaxSide) 

     intNewWidth = Convert.ToInt32(dblCoef * intOldWidth) 
     intNewHeight = Convert.ToInt32(dblCoef * intOldHeight) 

    Else 

     intNewWidth = intOldWidth 
     intNewHeight = intOldHeight 
    End If 
    'create new bitmap 
    Dim bmpResized As Drawing.Bitmap = New Drawing.Bitmap(imgInput, intNewWidth, intNewHeight) 

    'save bitmap to disk 
    bmpResized.Save(ImageSavePath, fmtImageFormat) 

    'release used resources 
    imgInput.Dispose() 
    bmpResized.Dispose() 
    Buffer.Close() 

End Sub 

.............サイズを変更したいThis Link

からもらったコードです私の送信ボタンでは、私のコードを実行する必要がありますが、私は入力がBufferフィールドのために必要であるかどうか分かりません。

Protected Sub btnUpload_Click() Handles btnUpload.Click 

    ResizeFromStream("~Pics", 200, ??????????) 

End Sub 

ありがとうございます！

ファイルアップロードコントロールから画像を取得する必要があります。

Answer 1

あなたは、このようなストリームオブジェクトを渡すことができます。

Dim fs As New FileStream("C:\file.jpg", FileMode.Open) 

ResizeFromStream("~Pics", 200, fs) 

ので、コードはファイル「file.jpg」にIOを実行することになります。これは非常に大まかな例ですが、Jon Skeet氏が尋ねたように、画像がどこから来ているのかが重要です。私の例は単純な「あなたが始めた」タイプです。

Answer 2

FileUpload.FileContent getは、ファイルコンテンツのストリームです。