Imports
\r\n\r\n Ionic.Zip.ZipFile\r\n
Public
\r\n\r\n Class TestService\r\n
Protected Overrides Sub OnStart(ByVal args() As String)\r\n Timer1.Enabled =
True\r\n
\r\n\r\n
End Sub\r\n
\r\n\r\n
Protected Overrides Sub OnStop()\r\n Timer1.Enabled =
False\r\n
\r\n\r\n
End Sub\r\n
\r\n\r\n
Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed\r\n
Call WriteToLog("Timer1 event triggered")\r\n
Call ZipMyFolder()\r\n
End Sub\r\n
\r\n\r\n
Private Sub ZipMyFolder()\r\n
Call WriteToLog("In the ZipMyFolder routine")\r\n
Try\r\n
\r\n\r\n
Using zip As ZipFile = New ZipFile\r\n zip.AddDirectory(
"c:\\MyFolder", "")\r\n zip.Save(
"C:\\MyZippedFolder.zip")\r\n
End Using\r\n
\r\n\r\n
Catch ex1 As Exception\r\n
Call WriteToLog(ex1.ToString())\r\n
End Try\r\n
\r\n\r\n
End Sub\r\n
\r\n\r\n
Private Sub WriteToLog(ByVal strEntry As String)\r\n
Dim fso As Scripting.FileSystemObject\r\n
Dim ts As Scripting.TextStream\r\n
Dim LogFile As Scripting.File\r\n fso =
New Scripting.FileSystemObject\r\n
If Not fso.FileExists("C:\\ZipLog.log") Then fso.CreateTextFile("C:\\ZipLog.log")\r\n LogFile = fso.GetFile(
"C:\\ZipLog.log")\r\n ts = LogFile.OpenAsTextStream(Scripting.IOMode.ForAppending) ts.Write(strEntry & vbCrLf) ts.Close() ts =
Nothing\r\n
LogFile =
\r\n\r\nNothing\r\n
fso =
\r\n\r\nNothing\r\n
\r\n\r\n
End Sub\r\n End
Class\r\n
Let's try this once again.
\r\n
\r\nImports Ionic.Zip.ZipFile
\r\n
Public Class TestService
\r\n\r\n
Protected Overrides Sub OnStart(ByVal args() As String)
\r\n Timer1.Enabled = True\r\n End Sub\r\n Protected Overrides Sub OnStop() Timer1.Enabled = False\r\n End Sub\r\n Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed Call WriteToLog("Timer1 event triggered") Call ZipMyFolder() End Sub\r\n Private Sub ZipMyFolder() Call WriteToLog("In the ZipMyFolder routine") Try\r\n Using zip As ZipFile = New ZipFile zip.AddDirectory("c:\\MyFolder", "") zip.Save("C:\\MyZippedFolder.zip") End Using\r\n Catch ex1 As Exception Call WriteToLog(ex1.ToString()) End Try\r\n End Sub\r\n Private Sub WriteToLog(ByVal strEntry As String) Dim fso As Scripting.FileSystemObject Dim ts As Scripting.TextStream Dim LogFile As Scripting.File fso = New Scripting.FileSystemObject If Not fso.FileExists("C:\\ZipLog.log") Then _ fso.CreateTextFile("C:\\ZipLog.log") LogFile = fso.GetFile("C:\\ZipLog.log") ts = LogFile.OpenAsTextStream(Scripting.IOMode.ForAppending) ts.Write(strEntry & vbCrLf) ts.Close() ts = Nothing\r\n LogFile = Nothing\r\n fso = Nothing\r\n End Sub\r\n End Class\r\n
Hey WindChaser, what do you mean by "Service" ?
\r\n
\r\nIs it a Windows Service - that is administered through services.msc ?
ps: You do not need to "Imports Ionic.Zip.ZipFile" as a safety measure. I have been where you are - trying *anything* to get an app to work - but importing the Ionic.Zip.ZipFile namespace is not going to help you! There is no such namespace.
\r\n", "PostedDate": "2009-03-01T08:23:24.817-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "163212", "ThreadId": "48839", "Html": "\r\n
I'm using the VB2008 methodology to create a standard service which is user-independent, that is:
\r\n- Create a new project in VB2008 of the Windows Service type
\r\n- Add logic at module level, no forms or interfaces allowed
\r\n- Add a service installer to the project
\r\n- Build the project. By the way, everything compiles properly.
\r\n- Install the service using InstallUtil.exe
\r\n
\r\nThe service runs great and can be viewed, started and stopped for the Windows Control Panel\\Administrative Tools\\Services interface. The only problem arises when I initiate a ZipFile instance. The timer event just locks up and doesn't even return an exception. Meanwhile, the service keeps running but without any further timer events.
\r\n
\r\nThanks for the code pointer. I've taken out the "Imports Ionic.Zip.ZipFile".
' VBService.vb\r\n' \r\n' for WindChaser.\r\n' This defines a Windows Service in VB.\r\n' See article http://www.vbdotnetheaven.com/UploadFile/mahesh/Winservvb11172005233242PM/Winservvb.aspx\r\n' for the basic idea.\r\n'\r\n' compile this with: \r\n' c:\\.net3.5\\vbc.exe /t:exe /debug+ /R:System.dll /R:Ionic.Zip.dll /out:VBService.exe VBService.vb\r\n'\r\n' install as a service with: \r\n' c:\\.net2.0\\installutil.exe VBService.exe\r\n'\r\n'\r\n' =======================================================\r\n' Sun, 01 Mar 2009 08:23\r\n' \r\n\r\n\r\n\r\nImports System\r\nImports Ionic.Zip\r\n\r\n\r\nPublic Class TestService \r\n Inherits System.ServiceProcess.ServiceBase\r\n\r\n ' Prepending the service name with a dash means it shows up first in the \r\n ' list on the services control panel applet.\r\n Private Shared MyServiceName as String = "- Wind Chaser Service"\r\n Private LogFileName as String = "C:\\temp\\WindChaser.ZipService.log"\r\n 'Private FolderToZip as String = "c:\\MyFolder"\r\n Private FolderToZip as String = "c:\\dinoch\\dev\\dotnet\\zip\\test\\fodder"\r\n 'Private OutputZipFile as String = "C:\\MyZippedFolder.zip"\r\n Private OutputZipFile as String = "c:\\dinoch\\dev\\dotnet\\zip\\test\\WindChaser.zip"\r\n \r\n Private WithEvents Timer1 as System.Timers.Timer \r\n\r\n Private CycleCount as Int32\r\n\r\n Public Sub New()\r\n InitializeSelf()\r\n End Sub\r\n\r\n\r\n Public Shared Function NameOfService as String\r\n NameOfService = TestService.MyServiceName\r\n End Function\r\n\r\n Private Sub InitializeSelf()\r\n Me.ServiceName = TestService.MyServiceName\r\n\r\n ' The timer period is expressed in milliseconds.\r\n Me.Timer1 = new System.Timers.Timer(40 * 1000) \r\n\tMe.CycleCount = 0\r\n End Sub\r\n\r\n\r\n ' The main entry point for the process\r\n Shared Sub Main()\r\n\tDim ServicesToRun As System.ServiceProcess.ServiceBase()\r\n\t' More than one user Service may run within the same process. To add\r\n\t' another service to this process, change the following line to\r\n\t' create a second service object. For example,\r\n\t' ServicesToRun = New System.ServiceProcess.ServiceBase() {new WinService1(), new MySecondUserService()}\r\n\tServicesToRun = New System.ServiceProcess.ServiceBase() { New TestService() }\r\n\tSystem.ServiceProcess.ServiceBase.Run(ServicesToRun)\r\n End Sub\r\n\r\n\r\n\r\n Protected Overrides Sub OnStart(ByVal args() As String)\r\n WriteToLog("=======================================================")\r\n WriteToLog("WindChaser's Directory Zip Service is starting....")\r\n Timer1.Enabled = True \r\n End Sub \r\n \r\n\r\n Protected Overrides Sub OnStop()\r\n Timer1.Enabled = False \r\n WriteToLog("WindChaser's Directory Zip Service is stopping....")\r\n WriteToLog("=======================================================")\r\n End Sub \r\n \r\n Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed\r\n WriteToLog("Timer1 event triggered")\r\n ZipMyFolder()\r\n End Sub \r\n \r\n Private Sub ZipMyFolder()\r\n\tMe.CycleCount = Me.CycleCount + 1\r\n WriteToLog(String.Format("Enter ZipMyFolder(cycle={0})", Me.CycleCount))\r\n Try \r\n Using zip As ZipFile = New ZipFile\r\n Zip.AddFileFromString("ReadMe.txt", "", "This zip file was created at " & System.DateTime.Now.ToString("F"))\r\n zip.AddDirectory(Me.FolderToZip, "")\r\n WriteToLog(" Saving...")\r\n zip.Save(Me.OutputZipFile)\r\n WriteToLog(String.Format(" Wrote {0} files to the zip archive.", zip.Entries.Count ))\r\n End Using \r\n Catch ex1 As Exception\r\n WriteToLog("Zip Exception: " & ex1.ToString())\r\n End Try \r\n WriteToLog("Exit ZipMyFolder()")\r\n End Sub \r\n\r\n\r\n \r\n Private Sub WriteToLog(ByVal strEntry As String)\r\n ' use AppendText to write to the log file. \r\n ' See http://msdn.microsoft.com/en-us/library/3zc0w663.aspx \r\n ' for a discussion.\r\n\r\n ' The System.IO.File.AppendText() method creates the file if it \r\n ' does not exist. \r\n ' See http://msdn.microsoft.com/en-us/library/system.io.file.appendtext.aspx\r\n\r\n Using w As System.IO.StreamWriter = System.IO.File.AppendText(Me.LogFileName)\r\n w.WriteLine("{1} {0} : {2}", DateTime.Now.ToLongTimeString(), DateTime.Now.ToLongDateString(), strEntry)\r\n End Using \r\n End Sub \r\n\r\nEnd Class \r\n\r\n \r\n\r\n\r\n\r\n\r\n<System.ComponentModel.RunInstallerAttribute(True)> _\r\nPublic Class MyProjectInstaller\r\n Inherits System.Configuration.Install.Installer\r\n\r\n Private serviceInstaller As System.ServiceProcess.ServiceInstaller\r\n Private processInstaller As System.ServiceProcess.ServiceProcessInstaller \r\n \r\n Public Sub New()\r\n ' Instantiate installers for process and services.\r\n processInstaller = New System.ServiceProcess.ServiceProcessInstaller()\r\n serviceInstaller = New System.ServiceProcess.ServiceInstaller()\r\n \r\n ' The services will run under the system account.\r\n processInstaller.Account = System.ServiceProcess.ServiceAccount.LocalSystem\r\n \r\n ' The services will be started manually.\r\n serviceInstaller.StartType = System.ServiceProcess.ServiceStartMode.Manual\r\n serviceInstaller.Description = "A service that periodically zips up a directory."\r\n \r\n ' ServiceName must equal those on ServiceBase derived classes. \r\n serviceInstaller.ServiceName = TestService.NameOfService\r\n \r\n ' Add installers to collection. Order is not important.\r\n Installers.Add(serviceInstaller)\r\n Installers.Add(processInstaller)\r\n End Sub\r\nEnd Class\r\n\r\n\r\n", "PostedDate": "2009-03-01T09:41:10.533-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "163256", "ThreadId": "48839", "Html": "It still doesn't work. But the behavior has changed in that the Timer1 event does not lock up. However, given that you've committed everything to code, it makes it much easier to figure out why all this is occuring.
OK, I investigated a little more.
\r\nI followed your steps - tried to do it exactly as you described.
\r\nI got a working .exe. The installutil succeeded. When I started the service , everything worked as expected.
\r\nMonday, March 02, 2009 7:33:45 AM : =======================================================\r\nMonday, March 02, 2009 7:33:45 AM : WindChaser's Directory Zip Service is starting....\r\nMonday, March 02, 2009 7:34:25 AM : Timer1 event triggered\r\nMonday, March 02, 2009 7:34:25 AM : Enter ZipMyFolder(cycle=1)\r\nMonday, March 02, 2009 7:34:25 AM : Saving...\r\nMonday, March 02, 2009 7:34:26 AM : Wrote 108 files to the zip archive c:\\dinoch\\dev\\dotnet\\zip\\test\\WindChaser.zip.\r\nMonday, March 02, 2009 7:34:26 AM : Exit ZipMyFolder()\r\nMonday, March 02, 2009 7:35:05 AM : Timer1 event triggered\r\nMonday, March 02, 2009 7:35:05 AM : Enter ZipMyFolder(cycle=2)\r\nMonday, March 02, 2009 7:35:05 AM : Saving...\r\nMonday, March 02, 2009 7:35:06 AM : Wrote 108 files to the zip archive c:\\dinoch\\dev\\dotnet\\zip\\test\\WindChaser.zip.\r\nMonday, March 02, 2009 7:35:06 AM : Exit ZipMyFolder()\r\n\r\n
I tried this on Vista (my own development machine), and on WinXP SP2, and got the same results in both cases. It just works.
\r\nI can make some additional suggestions to you.
\r\nIn the timer event, I delete and recreate the folder, then copy the log file into into it to prove that the service has access to the folder and file. As you suggested, I took
\r\nout all lines of code pertaining to the library. Everything works fine and the log shows all activity. I then put just
\r\n
\r\nUsing zip As ZipFile = New ZipFile
\r\n WriteToLog("ZipFile instantiated.")
\r\nEnd Using
\r\n
\r\nand then all I get in the log is "Timer1 event triggered".
\r\n
\r\nI've copied the entire project onto HTTP://ExcelDent.ca/TestService.zip so that you may download it.
\r\nIf it works on your machine, then the issue is outside the project.
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n \r\n