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

by cyman, Sunday, March 21, 2010, 09:08 (5360 days ago) @ cyman

Hi there,

I didn't get any callback to the UploadFilename sub, even after I uploaded a file. Here's the code I used. Am I missing something?
I did use the COM control and implemented the interface. I am getting callbacks to other functions such as RequestDone just fine. I'm in VB.NET 2008...

Imports System.IO
Imports System.Text

Public Class Form1

Implements WODWEBSERVERCOMLib.IwodWebNotify

Dim WebServer1 As WODWEBSERVERCOMLib.wodWebServerCom

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

WebServer1 = New WODWEBSERVERCOMLib.wodWebServerCom
WebServer1.LicenseKey = HIDDEN 'Taken out for forum post
WebServer1.Notification = Me
WebServer1.DocumentRoot = C: esthtml
WebServer1.MyHostname = localhost
WebServer1.AllowBrowsing = True
WebServer1.Threads = WODWEBSERVERCOMLib.ThreadTypes.FullThreads
WebServer1.Start()
End Sub

Public Sub CGIStart(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByVal FullPath As String, ByVal Environment As WODWEBSERVERCOMLib.WebHeaders) Implements WODWEBSERVERCOMLib.IwodWebNotify.CGIStart

End Sub

Public Sub CGIStop(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByVal success As Boolean) Implements WODWEBSERVERCOMLib.IwodWebNotify.CGIStop

End Sub

Public Sub RequestDone(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser) Implements WODWEBSERVERCOMLib.IwodWebNotify.RequestDone

End Sub

Public Sub RequestHeaders(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser) Implements WODWEBSERVERCOMLib.IwodWebNotify.RequestHeaders

User.Request.Uploads.AutoParse = True

End Sub

Public Sub ResponseDone(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser) Implements WODWEBSERVERCOMLib.IwodWebNotify.ResponseDone

Dim ss As String = User.Request.FullURI

End Sub

Public Sub RunScript(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByVal ScriptData As String, ByRef ResponseData As String) Implements WODWEBSERVERCOMLib.IwodWebNotify.RunScript

End Sub

Public Sub StateChange(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByVal OldState As WODWEBSERVERCOMLib.StatesEnum) Implements WODWEBSERVERCOMLib.IwodWebNotify.StateChange

End Sub

Public Sub UploadFilename(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByVal Part As WODWEBSERVERCOMLib.WebRequestUploadPart) Implements WODWEBSERVERCOMLib.IwodWebNotify.UploadFilename
'Code does not even execute to here
Part.Filename = c:igone.zip
End Sub

Public Sub UserAuthenticate(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByVal AuthType As WODWEBSERVERCOMLib.WebAuthenticationTypes, ByRef Action As WODWEBSERVERCOMLib.WebActions) Implements WODWEBSERVERCOMLib.IwodWebNotify.UserAuthenticate

End Sub

Public Sub UserConnected(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser, ByRef Action As WODWEBSERVERCOMLib.WebActions) Implements WODWEBSERVERCOMLib.IwodWebNotify.UserConnected

End Sub

Public Sub UserDisconnected(ByVal Owner As WODWEBSERVERCOMLib.wodWebServerCom, ByVal User As WODWEBSERVERCOMLib.WebUser) Implements WODWEBSERVERCOMLib.IwodWebNotify.UserDisconnected

End Sub
End Class

Going to update and try out the current version now, I'll let you know how it goes...