مرجع تخصصی برنامه نویسان

انجمن تخصصی برنامه نویسان فارسی زبان

کاربر سایت

سید سادات

عضویت از 1394/02/22

اّپلود نشدن تصویر با موبایل ولی با کامپیوتر میشود

  • یکشنبه 3 دی 1396
  • 10:46
تشکر میکنم

با سلام

اّپلود نشدن تصویر با موبایل ولی با کامپیوتر میشود

مشکل  در چی میتونه باشه ؟؟؟

این کد حجم عکس و سایزشو هم تغییر میده هیچ مشکلی با کامپیوتر نداره ولی با گوشی ک میرم اپ لود نمیکنه

  Protected Sub up_Click(sender As Object, e As EventArgs) Handles up.Click


        Dim fileuploadinput As HttpPostedFile = Request.Files("fileuploadinput")
        '///////////////////////////////111111111111111
        '/create filder in root
        Dim pathToCreate As String = "~/test/"
        Directory.CreateDirectory(Server.MapPath(pathToCreate))
        'Dim file0 As HttpPostedFile = Request.Files("file0")
        'check file was submitted
        If ((Not (fileuploadinput) Is Nothing) _
                    AndAlso (fileuploadinput.ContentLength > 0)) Then
            ' Check the extension of image  
            Dim extension As String = Path.GetExtension(fileuploadinput.FileName)
            If ((extension.ToLower = ".png") _
                            OrElse (extension.ToLower = ".jpg")) Then
                Dim strm As Stream = fileuploadinput.InputStream
                Dim image = System.Drawing.Image.FromStream(strm)
                ' Print Original Size of file (Height or Width)   

                Dim newWidth As Integer = 350
                ' New Width of Image in Pixel  
                Dim newHeight As Integer = 252
                ' New Height of Image in Pixel  
                Dim thumbImg = New Bitmap(newWidth, newHeight)
                Dim thumbGraph = Graphics.FromImage(thumbImg)
                thumbGraph.CompositingQuality = CompositingQuality.HighQuality
                thumbGraph.SmoothingMode = SmoothingMode.HighQuality
                thumbGraph.InterpolationMode = InterpolationMode.HighQualityBicubic
                Dim imgRectangle = New Rectangle(0, 0, newWidth, newHeight)
                thumbGraph.DrawImage(image, imgRectangle)
                ' Save the file  

                Dim FileName As String = (Guid.NewGuid.ToString + ".jpg")

                Dim targetPath As String = (Server.MapPath("~/test/" + FileName))
                thumbImg.Save(targetPath, image.RawFormat)
                ' Print new Size of file (height or Width)  
                'Show Image  
                'If ((Not (file) Is Nothing) _
                '                AndAlso (file.ContentLength > 0)) Then

                '    Dim fname As String = Path.GetFileName(file.FileName)
                '    file.SaveAs(Server.MapPath(Path.Combine("~/AdminSenders/" & T1.Text & "/", fname)))
                'End If
                Label1.Text = FileName
            End If
        End If
    End Sub

<body>
    <form id="form1" runat="server">
    <div>
        <asp:FileUpload ID="fileuploadinput" runat="server" />
        <asp:Button ID="up" runat="server" Text="Button" /><asp:Image ID="Image1" runat="server" Height="156px" Width="147px" />
        <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>
    </div>
    </form>
</body>

پاسخ های این پرسش

تعداد پاسخ ها : 4 پاسخ
کاربر سایت

ایمان مدائنی

عضویت از 1392/01/20

  • یکشنبه 3 دی 1396
  • 16:08

از چه مرورگری در موبایل استفاده میکنید ؟

شاید پشتیبانی نمیکنه

کاربر سایت

سید سادات

عضویت از 1394/02/22

  • دوشنبه 4 دی 1396
  • 01:50

امکانش هست از مرور گر باشه ؟ چون برا کامپیوتر موردی نداره و لی موبایل اپ نمیکنه تست میکنم جالبود

کاربر سایت

ایمان مدائنی

عضویت از 1392/01/20

  • دوشنبه 4 دی 1396
  • 09:57

بله امکانش هست

با یک گوشی دیگه تست کنید

کاربر سایت

سید سادات

عضویت از 1394/02/22

  • دوشنبه 4 دی 1396
  • 10:50

ممنون جناب مداینی امتحان کردم با اندروید میره با ایفون نمیره چند تا ایفون تست کردم ها

کاربرانی که از این پست تشکر کرده اند

هیچ کاربری تا کنون از این پست تشکر نکرده است

اگر نیاز به یک مشاور در زمینه طراحی سایت ، برنامه نویسی و بازاریابی الکترونیکی دارید

با ما تماس بگیرید تا در این مسیر همراهتان باشیم :)