Hi,
Great day.
I hope someone could help me.
I would like to upload selected files up to 500 MB using chunk and rebuild it and save to SQL database
I made some test but still did not make it correct. Does anyone know how to do it?
Here's my code in client side
Here's the Handler.ashx.vb but don't know what to do here..
Here's my code behind, what will I do here?
Thank you in advance... God bless
Great day.
I hope someone could help me.
I would like to upload selected files up to 500 MB using chunk and rebuild it and save to SQL database
I made some test but still did not make it correct. Does anyone know how to do it?
Here's my code in client side
<
form
id
=
"form1"
runat
=
"server"
>
<
telerik:RadScriptManager
runat
=
"server"
ID
=
"RadScriptManager1"
/>
<
script
src
=
"scripts.js"
type
=
"text/javascript"
></
script
>
<
div
class
=
"qsf-demo-canvas qsf-demo-canvas-vertical"
style
=
"margin-top: 50px"
>
<
telerik:RadAsyncUpload
runat
=
"server"
ID
=
"AsyncUpload1"
ChunkSize
=
"1048576"
OnClientFilesUploaded
=
"fileUploaded"
OnFileUploaded
=
"AsyncUpload1_FileUploaded"
Localization-Select
=
"Add"
HttpHandlerUrl
=
"~/Handler.ashx"
/>
<
telerik:RadProgressArea
runat
=
"server"
ID
=
"RadProgressArea1"
/>
</
div
>
</
form
>
Here's the Handler.ashx.vb but don't know what to do here..
Protected
Overrides
Function
Process(
ByVal
file
As
UploadedFile,
ByVal
context
As
HttpContext,
ByVal
configuration
As
IAsyncUploadConfiguration,
ByVal
tempFileName
As
String
)
As
IAsyncUploadResult
' Call the base Process method to save the file to the temporary folder
' base.Process(file, context, configuration, tempFileName);
' Populate the default (base) result into an object of type SampleAsyncUploadResult
Dim
result
As
AsyncUploadResult = CreateDefaultUploadResult(Of AsyncUploadResult)(file)
' Populate any additional fields into the upload result.
' The upload result is available both on the client and on the server
'result.ImageID = InsertImage(file, userID)
Return
result
End
Function
Here's my code behind, what will I do here?
Protected
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
' Populate the default (base) upload configuration into an object of type SampleAsyncUploadConfiguration
Dim
config
As
AsyncUploadConfiguration = AsyncUpload1.CreateDefaultUploadConfiguration(Of AsyncUploadConfiguration)()
AsyncUpload1.UploadConfiguration = config
End
Sub
Protected
Sub
AsyncUpload1_FileUploaded(sender
As
Object
, e
As
FileUploadedEventArgs)
Handles
AsyncUpload1.FileUploaded
Dim
result
As
AsyncUploadResult = TryCast(e.UploadResult, AsyncUploadResult)
Using stream
As
Stream = e.File.InputStream
Dim
imgData
As
Byte
() =
New
Byte
(stream.Length) {}
stream.Read(imgData, 0, imgData.Length)
Dim
ms
As
New
MemoryStream()
ms.Write(imgData, 0, imgData.Length)
Context.Cache.Insert(Session.SessionID +
"UploadedFile"
, ms,
Nothing
, DateTime.Now.AddMinutes(20), TimeSpan.Zero)
End
Using
End
Sub
Thank you in advance... God bless