Optimering af upload
HejJeg har et script som skal bruges til upload af filer til en database. Jeg bruger BinaryRead, men ved store filer går det meget langsomt.
Der kan forekommer upload af filer på 15-20 mb.
Er der andre muligheder??
Public Sub ParseData(maspRequest As ASPTypeLibrary.Request)
Dim totalBytes As Variant
Dim binData() As Byte
Dim cStartPos As Long
Dim cEndPos As Long
'---total bytes received
totalBytes = maspRequest.totalBytes
'---binary data
binData = maspRequest.BinaryRead(totalBytes)
'---file content start position
cStartPos = InStrB(1, binData, CRLF & CRLF) + LenB(CRLF & CRLF)
'---file content end position
cEndPos = totalBytes - (LenB(CRLF) + (InStrB(1, binData, CRLF) - 1) + Len("--") + LenB(CRLF)) + 1
'---filename
mFilename = ParseFilename(ToString(MidB(binData, 1, cStartPos)))
'---file content
mFileContent = MidB(binData, cStartPos, cEndPos - cStartPos)
End Sub