Databases
StackOverflow2013
Postsdbo
POshowing a generic error occured in GDI+ whle uploading image
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POshowing a generic error occured in GDI+ whle uploading image
    primarykey
    data
    text
    <p>I am using this code for uploading image. I have given write permission to the folder where image will be stored. Following is my code:</p> <pre><code>Dim con As New System.Data.SqlClient.SqlConnection("Data Source=Biplob-PC\SQLEXPRESS; database =a;Integrated Security=True") Dim smemberid As Integer Dim photoid As Integer Sub bindphoto() 'What directory are we interested in? Dim mycommand As New SqlCommand("SELECT * FROM Photo WHERE MemberID = '" &amp; smemberid &amp; "' ORDER BY PhotoID", con) con.Open() dlFileList.DataSource = mycommand.ExecuteReader dlFileList.DataBind() con.Close() End Sub Sub memberid() Dim cmd As New SqlCommand("SELECT MemberID From Memberlist WHERE UserName = '" &amp; Session("uName") &amp; "'", con) Dim r As SqlDataReader con.Open() r = cmd.ExecuteReader If r.HasRows Then r.Read() smemberid = r("MemberID").ToString End If r.Close() con.Close() End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) If flupload.HasFile = False Then Label1.Text = "Please select a picture from your computer" Exit Sub End If If flupload.FileName.GetType.ToString = "jpg" Then Label1.Text = "Hurrey" Exit Sub End If 'Has the file been uploaded properly? If Not flupload.PostedFile Is Nothing Then 'Save the filename if it has a filename and exists... Dim imageToBeResized As System.Drawing.Image = System.Drawing.Image.FromStream(flupload.PostedFile.InputStream) Dim imageHeight As Integer = imageToBeResized.Height Dim imageWidth As Integer = imageToBeResized.Width Dim maxHeight As Integer = 98 Dim maxWidth As Integer = 98 imageHeight = (imageHeight * maxWidth) / imageWidth imageWidth = maxWidth Try If flupload.PostedFile.FileName.Trim().Length &gt; 0 And _ flupload.PostedFile.ContentLength &gt; 0 Then photoid = (New Random).Next Dim objstream As Stream = flupload.PostedFile.InputStream Dim objimage As System.Drawing.Image = System.Drawing.Image.FromStream(objstream) If objimage.RawFormat.Equals(ImageFormat.Gif) Or objimage.RawFormat.Equals(ImageFormat.Jpeg) Or objimage.RawFormat.Equals(ImageFormat.Png) Then Dim strBaseDir As New DirectoryInfo((Request.PhysicalApplicationPath) + "images\gallery\") If imageHeight &gt; maxHeight Then imageWidth = (imageWidth * maxHeight) / imageHeight imageHeight = maxHeight End If Dim bitmap As New Bitmap(imageToBeResized, imageWidth, imageHeight) Dim stream As System.IO.MemoryStream = New MemoryStream() bitmap.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg) stream.Position = 0 Dim strFileName As String = _ Path.GetFileName(flupload.PostedFile.FileName) bitmap.Save(((Request.PhysicalApplicationPath) + "images\gallery\thumbs\") &amp; photoid &amp; ".jpg") bigimage() 'File has been saved! Dim mycommand As New SqlCommand("Insert chairperson (memberid,name,period,achieve,imageurl,other) Values ( '" &amp; smemberid &amp; "','" &amp; TextBox1.Text &amp; "','" &amp; TextBox2.Text &amp; "','" &amp; TextBox3.Text &amp; "','" &amp; photoid &amp; "','" &amp; TextBox4.Text &amp; "' )", con) con.Open() mycommand.ExecuteNonQuery() con.Close() Label1.Text = "File has been successfully uploaded" Else Label1.Text = "Sorry, File format not supported." End If End If Catch ex As Exception Label1.Text = ex.Message End Try Else Label1.Text = "&lt;hr /&gt;&lt;p&gt;Enter a filename to upload!" End If End Sub Sub bigimage() Dim imageToBeResized As System.Drawing.Image = System.Drawing.Image.FromStream(flupload.PostedFile.InputStream) Dim imageHeight As Integer = imageToBeResized.Height Dim imageWidth As Integer = imageToBeResized.Width Dim maxHeight As Integer = 450 Dim maxWidth As Integer = 450 imageHeight = (imageHeight * maxWidth) / imageWidth imageWidth = maxWidth Dim objstream As Stream = flupload.PostedFile.InputStream Dim objimage As System.Drawing.Image = System.Drawing.Image.FromStream(objstream) If objimage.RawFormat.Equals(ImageFormat.Gif) Or objimage.RawFormat.Equals(ImageFormat.Jpeg) Or objimage.RawFormat.Equals(ImageFormat.Png) Then Dim strBaseDir As New DirectoryInfo((Request.PhysicalApplicationPath) + "images\gallery\") If imageHeight &gt; maxHeight Then imageWidth = (imageWidth * maxHeight) / imageHeight imageHeight = maxHeight End If Dim bitmap As New Bitmap(imageToBeResized, imageWidth, imageHeight) Dim stream As System.IO.MemoryStream = New MemoryStream() bitmap.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg) stream.Position = 0 Dim strFileName As String = _ Path.GetFileName(flupload.PostedFile.FileName) bitmap.Save(((Request.PhysicalApplicationPath) + "images\gallery\") &amp; photoid &amp; ".jpg") End If End Sub Sub deleteg(ByVal s As Object, ByVal f As DataListCommandEventArgs) Dim photographid As String photographid = dlFileList.DataKeys.Item(f.Item.ItemIndex).ToString Dim mycommand As New SqlCommand("DELETE FROM Photo WHERE PhotoID = '" &amp; photographid &amp; "'", con) con.Open() mycommand.ExecuteNonQuery() con.Close() bindphoto() Label1.Text = "File has been deleted succefully" End Sub </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. USMahendra Liya
    1. USbiplob
    plurals
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POshowing a generic error occured in GDI+ whle uploading image
      1. This table or related slice is empty.
      1. VTApproveEditSuggestion
    1. This table or related slice is empty.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload