AsyncFileUpload HasFile

Решил удалить FileUpload и попробовать AsyncFileUpload - помимо необходимости использовать триггеры, чтобы полностью отправить страницу обратно и оставить пользователя в недоумении, что происходит. FileUpload работал без сучка и задоринки.... Не могу на всю жизнь заставить AsyncFileUpload работать а HasFile всегда ложно. Любые идеи? Где-то у меня есть загрузчик Ajax, созданный, кажется, итальянским разработчиком, который работал довольно хорошо, но было много возни с сохранением файла на сервере, а затем его удалением.

Спасибо.

 vCmd.Parameters.AddWithValue("@Status_ID", 1)
        vCmd.Parameters.AddWithValue("@Customer_ID", CustomerID)
        vCmd.Parameters.AddWithValue("@Application_Description", vDescription)
        If AsyncFileUpload1.HasFile Then
            Dim vLen As Integer = AsyncFileUpload1.PostedFile.ContentLength
            Dim vByte(vLen - 1) As Byte
            AsyncFileUpload1.PostedFile.InputStream.Read(vByte, 0, vLen)
            vCmd.Parameters.AddWithValue("@Documents_Main", vByte)
            vCmd.Parameters.AddWithValue("@Flag_DocumentLoaded", 1)
        Else
            vCmd.Parameters.AddWithValue("@Flag_DocumentLoaded", 0)
        End If
        vCmd.Parameters.AddWithValue("@Contractor_Name", vContractorName)
        vCmd.Parameters.AddWithValue("@Contractor_Address", vContractorAddress)
        vCmd.Parameters.AddWithValue("@Contractor_Licence", vContractorLicence)
        vCmd.Parameters.AddWithValue("@Contractor_Phone", vContractorPhone)
        vCmd.Parameters.AddWithValue("@Reference_One", vReferenceOne)

asyncfileupload
person gchq    schedule 24.04.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Наконец удалось заставить его работать

Добавьте обработчик события UploadedComplete.

AddHandler AsyncFileUpload1.UploadedComplete, AddressOf FileUploaded

Захват байтов в событии

Private Sub FileUploaded(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs)
    Try

        If AsyncFileUpload1.HasFile Then
            Session("UploadedPDF") = AsyncFileUpload1.FileBytes
        End If


    Catch ex As Exception
        EmailError(ex.ToString, "25")

    End Try
End Sub

Загрузите файл в БД, если он там есть

 If Not Session("UploadedPDF") Is Nothing Then
            vCmd.Parameters.AddWithValue("@Update_Document", Session("UploadedPDF"))
        End If
person gchq    schedule 24.04.2013