Re: Huge files over 500 MB? (General questions)

by cyman, Sunday, March 21, 2010, 20:21 (5359 days ago) @ wodSupport

Thanks for the prompt response!

I actually can't access Uploads.Part at all. It seems I still have the old WebRequestUploads interface. Maybe that's the issue?

Ex: if I just do:
dim d as WebRequestUploads
then there's no .Part

Just in case it was .NET messing up the ActiveX... I also tried it in VB6 with the COM control and got the same thing. Might be easier to try out that code, so just in case here it is:

Option Explicit
Dim WithEvents Http1 As wodWebServerCom
Implements IwodWebNotify

Private Sub Form_Load()
Set Http1 = New wodWebServerCom

Set Http1.Notification = Me

Http1.DocumentRoot = App.Path

On Error Resume Next
Http1.Start
If Err Then
MsgBox There was an error: & Err.Description, vbOKOnly, Error
End If
End Sub

Private Sub IwodWebNotify_CGIStart(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal FullPath As String, ByVal Environment As WODWEBSERVERCOMLib.IWebHeaders)

End Sub

Private Sub IwodWebNotify_CGIStop(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal success As Boolean)

End Sub

Private Sub IwodWebNotify_RequestDone(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)

User.Response.Delivery = Automatic
Exit Sub

End Sub

Private Sub IwodWebNotify_RequestHeaders(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)

User.Request.Uploads.AutoParse = True
End Sub

Private Sub IwodWebNotify_ResponseDone(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)

End Sub

Private Sub IwodWebNotify_RunScript(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal ScriptData As String, ResponseData As String)

End Sub

Private Sub IwodWebNotify_StateChange(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal OldState As WODWEBSERVERCOMLib.StatesEnum)

End Sub

Private Sub IwodWebNotify_UploadFilename(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal Part As WODWEBSERVERCOMLib.IWebRequestUploadPart)
Part.FileName = c:myfile.pdf
End Sub

Private Sub IwodWebNotify_UserAuthenticate(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal AuthType As WODWEBSERVERCOMLib.WebAuthenticationTypes, Action As WODWEBSERVERCOMLib.WebActions)

End Sub

Private Sub IwodWebNotify_UserConnected(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, Action As WODWEBSERVERCOMLib.WebActions)

End Sub

Private Sub IwodWebNotify_UserDisconnected(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)

End Sub