ASP.NET

miss786 wrote:

crashes on the 'mes' unsuccessful line

miss786 wrote:

if (result.username != null)

Imports System.Web
Imports System.Web.Services

Public Class Handler1
    Implements System.Web.IHttpHandler

    Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest

        Dim loop1 As Integer
        Dim arr1() As String
        Dim Files As HttpFileCollection

        Files = HttpRequest.Files ' Load File collection into HttpFileCollection variable.
        arr1 = Files.AllKeys ' This will get names of all files into a string array.
        For loop1 = 0 To arr1.GetUpperBound(0)
            context.Response.Write("File: " & Server.HtmlEncode(arr1(loop1)) & "<br>")
            context.Response.Write("  size = " + Files(loop1).ContentLength + "<br />")
            context.Response.Write("  content type = " + Files(loop1).ContentType + "<br />")
        Next loop1
    End Sub

    ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class

<input type="file" id="upldFile" name="files[]" />

<input type="button" value="Add Sign" data-icon="plus" data-mini="true" id="btnAddSign">

$('#upldFile').change(function (evt) {
    var formData = new FormData();
    var files = evt.target.files;
    for (var i = 0, f; file = files[i]; i++) {
        if (!file.type.match('image.*')) {
              continue;
       }
       var thumbnail = URL.createObjectURL(file);
       formData.append(file.name, file);
       $('body').data('formdata', formData);
       var span = document.createElement('span');
       span.innerHTML = ['<img class="thumb" src="', thumbnail,
       '" title="', escape(file.name), '"/>'].join('');
       document.getElementById('list').insertBefore(span, null);
       }
});

$('#btnAddSign').click(function () {
     var xhr = new XMLHttpRequest();
     var url = 'Handler1.ashx?requestid=' + $('body').data('requestid') + '&backcolor=' + $('#cmbBackColor').val() + '&textcolor=' + $('#cmbTextColor').val() + '&signshape=' + $('#cmbSignShape').val() + '&signsize=' + $('#cmbSignShape').val() + '&platematerial=' + $('#cmbPlateMaterial').val() + '&border=' + $('#sldBorder').val() + '&signtext=' + $('#txtSignText').val() + '&signquantity=' + $('#txtSignQuantity').val()
     xhr.open('POST', url, true);
     xhr.onload = function (e) {
     };
     xhr.onreadystatechange = function () {
     if (xhr.readyState == 4 && xhr.status == 200) {
              GetItems(); //function that loads jqwidgets grid 
     }
     }
     xhr.send($('body').data('formdata'));
  });

Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
       Dim requestid As String = context.Request.QueryString("requestid").ToString
       Dim backcolor As String = context.Request.QueryString("backcolor").ToString
       Dim textcolor As String = context.Request.QueryString("textcolor").ToString
       Dim signshape As String = context.Request.QueryString("signshape").ToString
       Dim signsize As String = context.Request.QueryString("signsize").ToString
       Dim platematerial As String = context.Request.QueryString("platematerial").ToString
       Dim signtext As String = context.Request.QueryString("signtext").ToString
       Dim signquantity As String = context.Request.QueryString("signquantity").ToString
       Dim border As Boolean = context.Request.QueryString("border").ToString
       Dim Files As HttpFileCollection
       Files = context.Request.Files
       Dim uploadFiles As HttpFileCollection = Files
       For i = 0 To uploadFiles.Count - 1
           Dim postedFile As HttpPostedFile = uploadFiles(i)
           Dim inStream As System.IO.Stream = postedFile.InputStream
           Dim fileData As Byte() = New Byte(postedFile.ContentLength - 1) {}
           inStream.Read(fileData, 0, postedFile.ContentLength)
           Dim cnInsert As New SqlConnection(GetConnectionString("MyConnectionString"))
           Dim cmdInsert As New SqlCommand
           Dim da As New SqlDataAdapter
           Dim lastupdate As New DataTable
           Dim ds As New DataSet()
           cnInsert.Open()
           cmdInsert.Connection = cnInsert
           cmdInsert.CommandType = CommandType.StoredProcedure
           cmdInsert.CommandText = "spSRQSignsCustomInsert"
           cmdInsert.Parameters.AddWithValue("@pSignSize", signsize)
           cmdInsert.Parameters.AddWithValue("@pSignBackColor", backcolor)
           cmdInsert.Parameters.AddWithValue("@pSignShape", signshape)
           cmdInsert.Parameters.AddWithValue("@pSignText", signtext)
           cmdInsert.Parameters.AddWithValue("@pSignQuantity", signquantity)
           cmdInsert.Parameters.AddWithValue("@pSignTextColor", textcolor)
           cmdInsert.Parameters.AddWithValue("@pBorder", border)
           cmdInsert.Parameters.AddWithValue("@pPlateMaterial", platematerial)
           cmdInsert.Parameters.AddWithValue("@pRequestID", requestid)
           cmdInsert.Parameters.AddWithValue("@pRequestedImage", fileData)
           cmdInsert.ExecuteNonQuery()
           cnInsert.Close()
       Next
   End Sub

GlobalConfiguration.Configuration.MessageHandlers.Add(new BasicAuthMessageHandler
{
    PrincipalProvider = new UserPro(new User())
});

ClientIDMode="Static"