| Forum: VB.NET |
Thema:
Windows Dienste |
Von:
G. Guest (
13.12.2005 11:29) |
Hallo zusammen,
ich versuche gerade einen Windows Dienst zu schreiben. Der soll ein Verzeichnis überwachen, und wenn dort eine Datei neu hinzugekommen ist, dann soll diese Datei eingelesen und umgeschrieben werden. Soweit ist das glaube ich erst mal kein Problem. Aber ich verstehe nicht, wie ich das ganze in Gang setzen kann. Oder habe ich einfach nur einen Fehler im Code? Oder muss ich OnStart/OnStop noch überschreiben? Ihr seht schon, ich bin absoluter Anfänger, also bitte könnte jemand über den Code gucken und mir erklären warum überhaupt gar nichts passiert, wenn ich den Dienst installiere und etwas an meinem überwachten Verzeichnis ändere?
Hier der Code:
Protected Overrides Sub OnStart(ByVal args() As String)
FSW_SpK.Path = directory
AddHandler FSW_SpK.Created, AddressOf OnDeleted End Sub
Protected Overrides Sub OnStop()
' Hier Code zum Ausführen notwendiger Löschvorgänge zum Anhalten des Dienstes einfügen.
End Sub
Private directory As String = System.Configuration.ConfigurationSettings.AppSettings("readtxt")
Private FileNameOut As String = System.Configuration.ConfigurationSettings.AppSettings("writetxt")
Private Sub OnDeleted(ByVal source As Object, ByVal e As FileSystemEventArgs)
' Specify what is done when a file is created.
Dim value As String
value = e.Name
datei_lesen(value)
End Sub
Sub datei_lesen(ByVal value)
directory = directory & "." & value
Dim Reader As System.IO.StreamReader = New System.IO.StreamReader(directory, System.Text.Encoding.Default)
Dim Content As String = Reader.ReadToEnd
Content = Content.Replace(Environment.NewLine, "")
Dim Writer As System.IO.StreamWriter = New System.IO.StreamWriter(FileNameOut, True, System.Text.Encoding.Default)
Writer.Write(Content)
Writer.Flush()
Writer.Close()
End Sub
freundliche Grüße
Maik
| Betreff |
Von |
Datum |
|
|
  |
Re: Windows Dienste
| Hallo Maik,<br>vielleicht hilft dir dieser link weiter:<br><br>http://www.codeguru.com/vb/gen/vb_system/services/article.php/c4825/<br><br>gruss<br>jens |
|
|
|
|
|
Jens
Buthe
|
13.12.2005 11:59 |
|
|
|
Re: Windows Dienste
| Hallo Jens,<br><br>Danke erst mal dafür. Immerhin krieg ich den Dienst jetzt gestartet (Es fehlte ...EnableRaisingEvents = True in OnStart). Aber leider muss ich noch ein paar weitere Fehler gemacht... |
|
|
|
|
|
G.
Guest
|
13.12.2005 12:46 |
|
|
|
Re: Windows Dienste
| hm,<br>Guck mal in den TaskManager, ob dein Dienst auch läuft. Eventuell musst du ihn das erste Mal selbst starten, weil erst beim Neustart überprüft wird, ob er zu starten ist.<br><br>jens |
|
|
|
|
|
Jens
Buthe
|
13.12.2005 13:39 |
|
|
|
Re: Windows Dienste
| Leider nicht, er ist gestartet. Sowhl unter Dienste als auch im Taskmanager. Sonst noch eine Ideen? Bin für jede Hilfe dankbar...<br><br>kind regards |
|
|
|
|
|
G.
Guest
|
13.12.2005 13:52 |
|
|
|
Re: Windows Dienste
| Hallo zusammen,<br><br>also, inzwischen habe ich zumindest schon mal herausgefunden, warum es nicht läuft...Hier noch mal der betreffende Code:<br><br>Private Sub OnDeleted(ByVal source As Object, ByVal e As... |
|
|
|
|
|
G.
Guest
|
14.12.2005 11:34 |
|
|
|
Re: Windows Dienste
| Also, jetzt ist auch das Problem gelöst, und das nächste wartet schon. Bin mir sicher, dabei könnt ihr mir helfen!<br><br>Ich schreibe die Datei in das zu überwachende Verzeichnis, und dadurch wird die... |
|
|
|
|
|
G.
Guest
|
14.12.2005 16:19 |
|
|
|
Re: Windows Dienste
| Hallo Maik,<br>ich kenne sowas nur aus VB. Hab ich aus einem Forum mal bekommen. <br>' Prüfen, ob Datei in Benutzung<br>Private Function FileInUse(ByVal sFile As String) As Boolean<br> Dim F As Integer<br><br> ... |
|
|
|
|
|
Thomas
Scherner
|
15.12.2005 01:26 |
|
|
|
Re: Windows Dienste
| Hallo Maik,<br><br>da es sich dabei um einen Dienst handelt muss dieser natürlich a) installiert und b)auch gestartet werden.<br>a) es gibt ein CommandLine Tool namesn regsvcs.exe mit dem Du einen Dienst in... |
|
|
|
|
|
Tobi
Ulm
|
13.12.2005 12:00 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
