System.IO.FileNotFoundException (Unerklärbar!)

Amelie · 13. November 2024, 09:38

Moin moin
Ich verzweifel an einer "System.IO.FileNotFoundException", weil ich einfach nicht herausfinde:

1.) Warum diese kommt
2.) Wer die wirft

Das ist in .Net6 und .Net8 identisch!
Hier mein Code der dll und eine entsprechende Debug Ausgabe:

Spoiler anzeigen

Der relevante Code in der DLL:

VB.NET-Quellcode

Public Class CalculatedAverages
' Singleton-Instanz, Thread-sicher durch statische Initialisierung
Public Shared ReadOnly Instance As New CalculatedAverages()
' Um die monatlichen Durchschnittswerte zu speichern
Private ReadOnly _monthlyAverages As New List(Of ClimaAverage)()
' Dienste laden
Private ReadOnly _configHandler As ConfigHandler = ConfigHandler.Instance
Private ReadOnly _propertySetter As PropertySetter = PropertySetter.Instance
' Getter für die monatlichen Durchschnittswerte
Public Function GetMonthlyAverages() As List(Of ClimaAverage)
Return _monthlyAverages
End Function
' Summen für die Berechnungen
Dim monthlyRainDay As Double = 0
Dim monthlySnowDay As Double = 0
Dim monthlySnowNight As Double = 0
Dim monthlyHumidiMinDay As Double = 0
Dim monthlyHumidiMaxDay As Double = 0
Dim monthlyHumidiMinNight As Double = 0
Dim monthlyHumidiMaxNight As Double = 0
Dim monthlyTempDay As Double = 0
Dim monthlyTempNight As Double = 0
Dim monthlyWindDay As Double = 0
Dim monthlyWindNight As Double = 0
Dim count As Integer = 0
Public Function GetXmlFiles(selectedYear As Integer, month As Integer) As List(Of String)
Try
' Erstelle das Suchmuster für die Datei
Dim monthPattern As String = $"{month:00}-{selectedYear}.xml"
Dim directoryPath As String = _configHandler.DataDirectory
Debug.WriteLine($"Suche nach Dateien mit Muster: {monthPattern} im Verzeichnis: {directoryPath}")
' Überprüfe, ob das Verzeichnis existiert
If Not Directory.Exists(directoryPath) Then
Throw New DirectoryNotFoundException($"Das Verzeichnis '{directoryPath}' wurde nicht gefunden.")
End If
' Suche die Dateien im angegebenen Verzeichnis
Dim files = Directory.GetFiles(directoryPath, monthPattern, SearchOption.TopDirectoryOnly).ToList()
' Zeige die gefundenen Dateien an
If files.Any() Then
Debug.WriteLine($"Gefundene Dateien: {String.Join(", ", files)}")
Else
Debug.WriteLine($"Keine Dateien für {monthPattern} im Verzeichnis {directoryPath} gefunden.")
End If
Return files
Catch ex As FileNotFoundException
Debug.WriteLine($"Datei nicht gefunden: {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
Catch ex As DirectoryNotFoundException
' Fehlerbehandlung bei Verzeichnissuche
Debug.WriteLine($"Fehler: {ex.Message}")
Return Nothing
Catch ex As Exception
' Allgemeine Fehlerbehandlung
Debug.WriteLine($"Fehler in GetXmlFiles: {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
Return Nothing
End Try
Return Nothing
End Function
Public Sub CallCalculation()
Try
' Ausgabe zu Beginn der Berechnungen
Debug.WriteLine("Berechnung startet...")
_monthlyAverages.Clear()
' Durchlaufe alle Monate (1 bis 12)
For month As Integer = 1 To 12
Debug.WriteLine($"Verarbeite Monat {month} für Jahr {_propertySetter.CurrentYear}")
' Aufruf der Methode, die die XML-Dateien für den Monat zurückgibt
Dim files As List(Of String) = GetXmlFiles(_propertySetter.CurrentYear, month)
' Wenn Dateien gefunden wurden, fortfahren mit der Verarbeitung
If files IsNot Nothing AndAlso files.Count > 0 Then
VerarbeiteMonat(files, month)
Else
Debug.WriteLine($"Keine Wetterdaten für {month:00}-{_propertySetter.CurrentYear} gefunden.")
End If
Next
' Abschluss der Berechnung
Debug.WriteLine("Berechnungen abgeschlossen.")
Catch ex As FileNotFoundException
Debug.WriteLine($"Fehler: Datei nicht gefunden. {ex.Message}")
Catch ex As UnauthorizedAccessException
Debug.WriteLine($"Zugriffsfehler auf Datei: {ex.Message}")
Catch ex As IOException
Debug.WriteLine($"E/A Fehler beim Öffnen der Datei: {ex.Message}")
Catch ex As Exception
Debug.WriteLine($"Unbekannter Fehler beim Verarbeiten der Datei: {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
End Try
End Sub
Private Sub VerarbeiteMonat(files As List(Of String), month As Integer)
' Initialisiere Zähler und Summen für den Monat
ResetMonthlySummaries()
' Durchlaufe alle gefundenen Dateien
For Each filename As String In files
Debug.WriteLine($"Verarbeite Datei: {filename}")
Try
' Überprüfe, ob die Datei existiert, bevor sie geöffnet wird
If Not File.Exists(filename) Then
Debug.WriteLine($"Die Datei '{filename}' existiert nicht. Aussteigen.")
Exit Sub
End If
' Datei öffnen und einlesen
OpenXmlFile(filename)
Catch ex As UnauthorizedAccessException
Debug.WriteLine($"Zugriff verweigert auf Datei {filename}: {ex.Message}")
Catch ex As Exception
Debug.WriteLine($"Unerwarteter Fehler beim Verarbeiten der Datei {filename}: {ex.Message}")
End Try
Next
' Wenn Daten vorhanden sind, berechne die Durchschnittswerte
If count > 0 Then
BerechneUndSpeichereDurchschnittswerte(month)
Else
Debug.WriteLine($"Monat {month}: Keine Daten gefunden, Durchschnittswerte werden nicht berechnet.")
End If
End Sub
Private Sub ResetMonthlySummaries()
' Setze alle Summen auf 0 zurück
monthlyRainDay = 0
monthlySnowDay = 0
monthlySnowNight = 0
monthlyHumidiMinDay = 0
monthlyHumidiMaxDay = 0
monthlyHumidiMinNight = 0
monthlyHumidiMaxNight = 0
monthlyTempDay = 0
monthlyTempNight = 0
monthlyWindDay = 0
monthlyWindNight = 0
count = 0
End Sub
Private Sub BerechneUndSpeichereDurchschnittswerte(month As Integer)
Debug.WriteLine($"Berechne Durchschnittswerte für Monat {month}, Zähler: {count}")
' Berechne die Durchschnittswerte
Dim avgRain = Math.Round(monthlyRainDay / count, 2)
Dim avgSnowDay = Math.Round(monthlySnowDay / count, 2)
Dim avgSnowNight = Math.Round(monthlySnowNight / count, 2)
Dim avgHumidiMinDay = Math.Round(monthlyHumidiMinDay / count, 2)
Dim avgHumidiMaxDay = Math.Round(monthlyHumidiMaxDay / count, 2)
Dim avgHumidiMinNight = Math.Round(monthlyHumidiMinNight / count, 2)
Dim avgHumidiMaxNight = Math.Round(monthlyHumidiMaxNight / count, 2)
Dim avgTempDay = Math.Round(monthlyTempDay / count, 2)
Dim avgTempNight = Math.Round(monthlyTempNight / count, 2)
Dim avgWindDay = Math.Round(monthlyWindDay / count, 2)
Dim avgWindNight = Math.Round(monthlyWindNight / count, 2)
' Füge die berechneten Durchschnittswerte zur Liste hinzu
_monthlyAverages.Add(New ClimaAverage() With {
.Period = month,
.AverageRain = avgRain,
.AverageSnowDay = avgSnowDay,
.AverageSnowNight = avgSnowNight,
.AverageHumidiMinDay = avgHumidiMinDay,
.AverageHumidiMaxDay = avgHumidiMaxDay,
.AverageHumidiMinNight = avgHumidiMinNight,
.AverageHumidiMaxNight = avgHumidiMaxNight,
.AverageTempDay = avgTempDay,
.AverageTempNight = avgTempNight,
.AverageWindDay = avgWindDay,
.AverageWindNight = avgWindNight
})
Debug.WriteLine($"Durchschnittswerte für Monat {month}: Regen {avgRain}")
End Sub
Private Sub OpenXmlFile(newfileName As String)
Try
' Versuche die Datei zu öffnen, mit FileShare.ReadWrite, um parallelen Zugriff zu erlauben
Using fs As New FileStream(newfileName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Debug.WriteLine($"Öffne Datei: {newfileName}")
' Deserialisiere die Wetterdaten aus der XML-Datei
Dim serializer As New XmlSerializer(GetType(WeatherDataArray))
Dim data As WeatherDataArray
' Überprüfe, ob die Datei korrekt deserialisiert werden kann
Try
data = CType(serializer.Deserialize(fs), WeatherDataArray)
Catch ex As InvalidOperationException
' Fehler beim Deserialisieren der Datei
Debug.WriteLine($"Fehler beim Deserialisieren der Datei {newfileName}: {ex.Message}")
Return
End Try
' Überprüfe, ob Daten in der Datei enthalten sind
If data.Count > 0 Then
count += data.Count
Debug.WriteLine($"Deserialisierte {data.Count} Einträge aus der Datei {newfileName}.")
' Summiere die Werte für alle relevanten Parameter
Dim rainSum As Double = CDbl(data.Sum(Function(wd) wd.RainDay))
Dim snowDaySum As Double = CDbl(data.Sum(Function(wd) wd.SnowDay))
Dim snowNightSum As Double = CDbl(data.Sum(Function(wd) wd.SnowNight))
Dim humidiMinDaySum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMinDay))
Dim humidiMaxDaySum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMaxDay))
Dim humidiMinNightSum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMinNight))
Dim humidiMaxNightSum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMaxNight))
Dim tempDaySum As Double = CDbl(data.Sum(Function(wd) wd.TempDay))
Dim tempNightSum As Double = CDbl(data.Sum(Function(wd) wd.TempNight))
Dim windDaySum As Double = CDbl(data.Sum(Function(wd) wd.WindDay))
Dim windNightSum As Double = CDbl(data.Sum(Function(wd) wd.WindNight))
' Summiere die Werte auf Monatsebene
monthlyRainDay += rainSum
monthlySnowDay += snowDaySum
monthlySnowNight += snowNightSum
monthlyHumidiMinDay += humidiMinDaySum
monthlyHumidiMaxDay += humidiMaxDaySum
monthlyHumidiMinNight += humidiMinNightSum
monthlyHumidiMaxNight += humidiMaxNightSum
monthlyTempDay += tempDaySum
monthlyTempNight += tempNightSum
monthlyWindDay += windDaySum
monthlyWindNight += windNightSum
Else
Debug.WriteLine($"Keine Wetterdaten in Datei {newfileName} gefunden.")
End If
End Using
Catch ex As FileNotFoundException
Debug.WriteLine($"Fehler: Datei '{newfileName}' nicht gefunden. {ex.Message}")
Catch ex As UnauthorizedAccessException
Debug.WriteLine($"Zugriffsfehler auf Datei '{newfileName}': {ex.Message}")
Catch ex As IOException
Debug.WriteLine($"E/A Fehler beim Öffnen der Datei '{newfileName}': {ex.Message}")
Catch ex As Exception
Debug.WriteLine($"Unbekannter Fehler beim Verarbeiten der Datei '{newfileName}': {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
End Try
End Sub
End Class

Die Debugausgaben in dem kleinen Testprogramm

XML-Quellcode

Berechnung startet...
Verarbeite Monat 1 für Jahr 2023
Suche nach Dateien mit Muster: 01-2023.xml im Verzeichnis: C:\Users\Nyxalor\AppData\Local\Zephyros\Data
Gefundene Dateien: C:\Users\Nyxalor\AppData\Local\Zephyros\Data\01-2023.xml
Verarbeite Datei: C:\Users\Nyxalor\AppData\Local\Zephyros\Data\01-2023.xml
Öffne Datei: C:\Users\Nyxalor\AppData\Local\Zephyros\Data\01-2023.xml
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Deserialisierte 31 Einträge aus der Datei C:\Users\Nyxalor\AppData\Local\Zephyros\Data\01-2023.xml.
Berechne Durchschnittswerte für Monat 1, Zähler: 31
Durchschnittswerte für Monat 1: Regen 3,19
Verarbeite Monat 2 für Jahr 2023
Suche nach Dateien mit Muster: 02-2023.xml im Verzeichnis: C:\Users\Nyxalor\AppData\Local\Zephyros\Data
Gefundene Dateien: C:\Users\Nyxalor\AppData\Local\Zephyros\Data\02-2023.xml
Verarbeite Datei: C:\Users\Nyxalor\AppData\Local\Zephyros\Data\02-2023.xml
Öffne Datei: C:\Users\Nyxalor\AppData\Local\Zephyros\Data\02-2023.xml
Deserialisierte 28 Einträge aus der Datei C:\Users\Nyxalor\AppData\Local\Zephyros\Data\02-2023.xml.
Berechne Durchschnittswerte für Monat 2, Zähler: 28
Durchschnittswerte für Monat 2: Regen 1,99
Verarbeite Monat 3 für Jahr 2023
Suche nach Dateien mit Muster: 03-2023.xml im Verzeichnis: C:\Users\Nyxalor\AppData\Local\Zephyros\Data
Keine Dateien für 03-2023.xml im Verzeichnis C:\Users\Nyxalor\AppData\Local\Zephyros\Data gefunden.
Keine Wetterdaten für 03-2023 gefunden.
......
===> Bewust nur 2 XML-Files im Verzeichnis !!
................
Verarbeite Monat 12 für Jahr 2023
Suche nach Dateien mit Muster: 12-2023.xml im Verzeichnis: C:\Users\Nyxalor\AppData\Local\Zephyros\Data
Keine Dateien für 12-2023.xml im Verzeichnis C:\Users\Nyxalor\AppData\Local\Zephyros\Data gefunden.
Keine Wetterdaten für 12-2023 gefunden.
Berechnungen abgeschlossen.

RodFromGermany · 13. November 2024, 09:48

@Amelie 1.) Weil offensichtlich eine Datei nicht gefunden wurde.
2.) Setze auf die Debug.WriteLine()-Zeile einen Haltepunkt und sieh Dir im Parameter ex den StackTrace an, da sollte die Zeile erkennbar sein, wo die Exception geworfen wird.

Amelie · 13. November 2024, 10:26

@RodFromGermany

zu 1.) => Ja aber die Datei wird doch gefunden und auch berechnet!
zu 2.) => bei welchem denn?
Ich habe schon mit Halte punkten versucht, aber irgendwie raffe ich das nicht mit Haltepunkten in einer DLL

Morrison · 13. November 2024, 11:14

Vllt. hjilft das:

https://stackoverflow.com/questions/46721530/c-sharp-net-core-how-to-debug-system-io-filenotfoundexception-in-system-private

Ausnahmeeinstellungen Haken bei FileNotFoundException setzen.

Amelie · 13. November 2024, 12:01

@RodFromGermany @Morrison

Aus dem Beitrag bei StackOverflow werde ich nicht so richtig schlau.

Ich habe nun mal den ganzen Code der dll sehr vereinfacht:

Die neue Meldung kommt wenn ich unter: Exception Settings die FileNotFoundException unter Common Language Runtime Exceptions den Haken setze! Ohne den Haken kommt zwar die Ausnahme, aber die Berechungen usw funktionieren.

Meldung:
Datei erfolgreich geöffnet: A:\Zephyros\Data\02-2023.xml
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Could not load file or assembly 'MetoeSenseLib.XmlSerializers, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null, processorArchitecture=AMD64'. Das System kann die angegebene Datei nicht finden.

System.IO.FileNotFoundException
HResult=0x80070002
Nachricht = Could not load file or assembly 'MetoeSenseLib.XmlSerializers, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null, processorArchitecture=AMD64'. Das System kann die angegebene Datei nicht finden.
Quelle = <Die Ausnahmequelle kann nicht ausgewertet werden.>
Stapelüberwachung:
<Die Ausnahmestapelüberwachung kann nicht ausgewertet werden.>

Spoiler anzeigen

In der DLL:

VB.NET-Quellcode

Imports System.IO
Imports System.Xml.Serialization
Public Sub OpenXmlFile(newfileName As String)
Try
' Datei mit File.Open öffnen
Using fs As FileStream = File.Open(newfileName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Debug.WriteLine($"Datei erfolgreich geöffnet: {newfileName}")
' Deserialisierung der Wetterdaten
Dim serializer As New XmlSerializer(GetType(WeatherDataArray))
Dim data As WeatherDataArray
data = CType(serializer.Deserialize(fs), WeatherDataArray)
' Berechnungen und andere Verarbeitungen
If data IsNot Nothing AndAlso data.Count > 0 Then
Debug.WriteLine($"Deserialisierte {data.Count} Einträge aus der Datei {newfileName}.")
' Berechnungen
Dim rainSum As Double = CDbl(data.Sum(Function(wd) wd.RainDay))
Dim snowDaySum As Double = CDbl(data.Sum(Function(wd) wd.SnowDay))
Dim snowNightSum As Double = CDbl(data.Sum(Function(wd) wd.SnowNight))
Dim humidiMinDaySum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMinDay))
Dim humidiMaxDaySum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMaxDay))
Dim humidiMinNightSum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMinNight))
Dim humidiMaxNightSum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMaxNight))
Dim tempDaySum As Double = CDbl(data.Sum(Function(wd) wd.TempDay))
Dim tempNightSum As Double = CDbl(data.Sum(Function(wd) wd.TempNight))
Dim windDaySum As Double = CDbl(data.Sum(Function(wd) wd.WindDay))
Dim windNightSum As Double = CDbl(data.Sum(Function(wd) wd.WindNight))
' Berechnung der monatlichen Summen
monthlyRainDay += rainSum
monthlySnowDay += snowDaySum
monthlySnowNight += snowNightSum
monthlyHumidiMinDay += humidiMinDaySum
monthlyHumidiMaxDay += humidiMaxDaySum
monthlyHumidiMinNight += humidiMinNightSum
monthlyHumidiMaxNight += humidiMaxNightSum
monthlyTempDay += tempDaySum
monthlyTempNight += tempNightSum
monthlyWindDay += windDaySum
monthlyWindNight += windNightSum
' Berechnung der Durchschnittswerte
Dim avgRain As Double = rainSum / data.Count
Dim avgTempDay As Double = tempDaySum / data.Count
Dim avgTempNight As Double = tempNightSum / data.Count
Dim avgWindDay As Double = windDaySum / data.Count
Dim avgWindNight As Double = windNightSum / data.Count
Dim avgHumidiMinDay As Double = humidiMinDaySum / data.Count
Dim avgHumidiMaxDay As Double = humidiMaxDaySum / data.Count
Dim avgHumidiMinNight As Double = humidiMinNightSum / data.Count
Dim avgHumidiMaxNight As Double = humidiMaxNightSum / data.Count
Dim avgSnowDay As Double = snowDaySum / data.Count
Dim avgSnowNight As Double = snowNightSum / data.Count
' Debug-Ausgabe der berechneten Werte
Debug.WriteLine($"Berechnungen abgeschlossen für {newfileName}:")
Debug.WriteLine($"Regen: {avgRain} / Schnee Tag: {avgSnowDay} / Schnee Nacht: {avgSnowNight}")
Debug.WriteLine($"Min. Luftfeuchtigkeit Tag: {avgHumidiMinDay} / Max. Luftfeuchtigkeit Tag: {avgHumidiMaxDay}")
Debug.WriteLine($"Min. Luftfeuchtigkeit Nacht: {avgHumidiMinNight} / Max. Luftfeuchtigkeit Nacht: {avgHumidiMaxNight}")
Debug.WriteLine($"Temp. Tag: {avgTempDay} / Temp. Nacht: {avgTempNight}")
Debug.WriteLine($"Wind Tag: {avgWindDay} / Wind Nacht: {avgWindNight}")
Else
Debug.WriteLine($"Keine Wetterdaten in Datei {newfileName} gefunden.")
End If
End Using
Catch ex As FileNotFoundException
Debug.WriteLine($"Fehler: Datei '{newfileName}' nicht gefunden. {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
Catch ex As UnauthorizedAccessException
Debug.WriteLine($"Zugriffsfehler auf Datei '{newfileName}': {ex.Message}")
Catch ex As IOException
Debug.WriteLine($"E/A Fehler beim Öffnen der Datei '{newfileName}': {ex.Message}")
Catch ex As Exception
Debug.WriteLine($"Unbekannter Fehler beim Verarbeiten der Datei '{newfileName}': {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
End Try
End Sub

In der TestAnwendung:

VB.NET-Quellcode

Imports System.IO
Imports System.Xml.Serialization
Imports MetoeSenseLib
Public Class Form1
' Dienst-Aufruf aus der DLL Numora
Private ReadOnly _avgCalculation As CalculatedAverages = CalculatedAverages.Instance
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim file As String = "A:\Zephyros\Data\02-2023.xml"
_avgCalculation.OpenXmlFile(file)
End Sub

Debug Ohne den Haken bei den EInstellungen:
Datei erfolgreich geöffnet: A:\Zephyros\Data\02-2023.xml
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Deserialisierte 28 Einträge aus der Datei A:\Zephyros\Data\02-2023.xml.
Berechnungen abgeschlossen für A:\Zephyros\Data\02-2023.xml:
Regen: 1,9928571428571424 / Schnee Tag: 0 / Schnee Nacht: 0
Min. Luftfeuchtigkeit Tag: 68,53571428571429 / Max. Luftfeuchtigkeit Tag: 87,64285714285714
Min. Luftfeuchtigkeit Nacht: 78,39285714285714 / Max. Luftfeuchtigkeit Nacht: 94,17857142857143
Temp. Tag: 9,478571428571428 / Temp. Nacht: 2,7321428571428577
Wind Tag: 3,4285714285714284 / Wind Nacht: 3,4285714285714284

Coldfire · 13. November 2024, 12:17

Kann es sein, dass in den xml-Files ein Verrweis steht, den er nicht findet ?

Amelie · 13. November 2024, 12:27

@Coldfire
Nein die XML-Dateien enthalten nur Daten:
Gekürtzte XML

XML-Quellcode

<?xml version="1.0" encoding="utf-8"?>
<ArrayOfWeatherData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<WeatherData>
<WeatherDate>2023-01-01T00:00:00+01:00</WeatherDate>
<RainDay>1.6</RainDay>
</WeatherData>

Und das für jeden Tag des Monat. Jeder Monat hat eine XML-Datei!

Das auslesen und berechnen funktioniert JA. Es kommt halt immer diese seltsame Ausnahme.

fichz · 13. November 2024, 12:44

Die Meldung sagt aus, dass eine Assembly (MetoeSenseLib) nicht gefunden/geladen werden konnte. Hat jetzt so nichts mit mit deinen XML-Dateien zu tun

lg

petaod · 13. November 2024, 12:45

Amelie schrieb:

Could not load file or assembly 'MetoeSenseLib.XmlSerializers

Hast du da irgendwo einen Schreibfehler und es müsste MeteoSenseLib heißen?

Amelie · 13. November 2024, 14:17

So nochmal ein sauberes Projekt gemacht. Dann die DLL für .Net6 und 4.6.1 kompiliert!!!

Das Ergebnis siehe hier. Ich kapiere das nicht. Scheinbar will .Net6 irgendwas haben aber ich checke es nicht.

Spoiler anzeigen

XML-Quellcode

<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<RootNamespace>Numora</RootNamespace>
<TargetFrameworks>net6.0;net461</TargetFrameworks>
<OptionStrict>On</OptionStrict>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>

VB.NET-Quellcode

Imports System.IO
Imports System.Xml.Serialization
Public Class CalculatedAverages
' Singleton-Instanz, Thread-sicher durch statische Initialisierung
Public Shared ReadOnly Instance As New CalculatedAverages()
' Um die monatlichen Durchschnittswerte zu speichern
Private ReadOnly _monthlyAverages As New List(Of ClimaAverage)()
' Dienste laden
Private ReadOnly _configServiceInstance As ConfigService = ConfigService.Instance
' Getter für die monatlichen Durchschnittswerte
Public Function GetMonthlyAverages() As List(Of ClimaAverage)
Return _monthlyAverages
End Function
Public Function GetXmlFiles(selectedYear As Integer, month As Integer) As List(Of String)
Try
' Erstelle das Suchmuster für die Datei
Dim monthPattern As String = $"{month:00}-{selectedYear}.xml"
Dim directoryPath As String = _configServiceInstance.DataDirectory
Debug.WriteLine($"Suche nach Dateien mit Muster: {monthPattern} im Verzeichnis: {directoryPath}")
' Überprüfe, ob das Verzeichnis existiert
If Not Directory.Exists(directoryPath) Then
Throw New DirectoryNotFoundException($"Das Verzeichnis '{directoryPath}' wurde nicht gefunden.")
End If
' Suche die Dateien im angegebenen Verzeichnis
Dim files = Directory.GetFiles(directoryPath, monthPattern, SearchOption.TopDirectoryOnly).ToList()
' Zeige die gefundenen Dateien an
If files.Any() Then
Debug.WriteLine($"Gefundene Dateien: {String.Join(", ", files)}")
Else
Debug.WriteLine($"Keine Dateien für {monthPattern} im Verzeichnis {directoryPath} gefunden.")
End If
Return files
Catch ex As DirectoryNotFoundException
' Fehlerbehandlung bei Verzeichnissuche
Debug.WriteLine($"Fehler: {ex.Message}")
Return Nothing
Catch ex As Exception
' Allgemeine Fehlerbehandlung
Debug.WriteLine($"Fehler in GetXmlFiles: {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
Return Nothing
End Try
End Function
Public Sub CallCalculation()
' Ausgabe zu Beginn der Berechnungen
Debug.WriteLine("Berechnung startet...")
_monthlyAverages.Clear()
' Durchlaufe alle Monate (1 bis 12)
For month As Integer = 1 To 12
Debug.WriteLine($"Verarbeite Monat {month} für Jahr {_configServiceInstance.CurrentYear}")
' Aufruf der Methode, die die XML-Dateien für den Monat zurückgibt
Dim files As List(Of String) = GetXmlFiles(_configServiceInstance.CurrentYear, month)
' Wenn Dateien gefunden wurden, fortfahren mit der Verarbeitung
If files IsNot Nothing AndAlso files.Count > 0 Then
' Summen für die Berechnungen
Dim monthlyRainDay As Double = 0
Dim monthlySnowDay As Double = 0
Dim monthlySnowNight As Double = 0
Dim monthlyHumidiMinDay As Double = 0
Dim monthlyHumidiMaxDay As Double = 0
Dim monthlyHumidiMinNight As Double = 0
Dim monthlyHumidiMaxNight As Double = 0
Dim monthlyTempDay As Double = 0
Dim monthlyTempNight As Double = 0
Dim monthlyWindDay As Double = 0
Dim monthlyWindNight As Double = 0
Dim count As Integer = 0
' Durchlaufe alle gefundenen Dateien
For Each filename As String In files
Debug.WriteLine($"Verarbeite Datei: {filename}")
Try
' Überprüfe, ob die Datei existiert, bevor sie geöffnet wird
If Not File.Exists(filename) Then
Debug.WriteLine($"Die Datei '{filename}' existiert nicht.")
Continue For
End If
' Deserialisiere die Wetterdaten aus der XML-Datei
Dim serializer As New XmlSerializer(GetType(WeatherDataArray))
Using fs As New FileStream(filename, FileMode.Open)
Debug.WriteLine($"Öffne Datei: {filename}")
Dim data As WeatherDataArray = CType(serializer.Deserialize(fs), WeatherDataArray)
' Überprüfe, ob Daten vorhanden sind
If data.Count > 0 Then
count += data.Count
Debug.WriteLine($"Deserialisierte {data.Count} Einträge aus der Datei {filename}.")
' Summiere die Werte für alle relevanten Parameter
Dim rainSum As Double = CDbl(data.Sum(Function(wd) wd.RainDay))
Dim snowDaySum As Double = CDbl(data.Sum(Function(wd) wd.SnowDay))
Dim snowNightSum As Double = CDbl(data.Sum(Function(wd) wd.SnowNight))
Dim humidiMinDaySum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMinDay))
Dim humidiMaxDaySum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMaxDay))
Dim humidiMinNightSum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMinNight))
Dim humidiMaxNightSum As Double = CDbl(data.Sum(Function(wd) wd.HumidiMaxNight))
Dim tempDaySum As Double = CDbl(data.Sum(Function(wd) wd.TempDay))
Dim tempNightSum As Double = CDbl(data.Sum(Function(wd) wd.TempNight))
Dim windDaySum As Double = CDbl(data.Sum(Function(wd) wd.WindDay))
Dim windNightSum As Double = CDbl(data.Sum(Function(wd) wd.WindNight))
' Summiere die Werte auf Monatsebene
monthlyRainDay += rainSum
monthlySnowDay += snowDaySum
monthlySnowNight += snowNightSum
monthlyHumidiMinDay += humidiMinDaySum
monthlyHumidiMaxDay += humidiMaxDaySum
monthlyHumidiMinNight += humidiMinNightSum
monthlyHumidiMaxNight += humidiMaxNightSum
monthlyTempDay += tempDaySum
monthlyTempNight += tempNightSum
monthlyWindDay += windDaySum
monthlyWindNight += windNightSum
Else
Debug.WriteLine($"Keine Wetterdaten in Datei {filename} gefunden.")
End If
End Using
Catch ex As Exception
' Fehlerbehandlung bei Dateioperationen
Debug.WriteLine($"Fehler beim Verarbeiten der Datei {filename}: {ex.Message}")
Debug.WriteLine($"Stacktrace: {ex.StackTrace}")
' Um die Ausnahme weiter zu analysieren, gebe noch die genaue Art des Fehlers aus
If TypeOf ex Is FileNotFoundException Then
Debug.WriteLine($"Datei nicht gefunden: {filename}")
End If
End Try
Next
' Wenn Daten vorhanden sind, berechne die Durchschnittswerte
If count > 0 Then
Debug.WriteLine($"Berechne Durchschnittswerte für Monat {month}, Zähler: {count}")
Dim avgRain = Math.Round(monthlyRainDay / count, 2)
Dim avgSnowDay = Math.Round(monthlySnowDay / count, 2)
Dim avgSnowNight = Math.Round(monthlySnowNight / count, 2)
Dim avgHumidiMinDay = Math.Round(monthlyHumidiMinDay / count, 2)
Dim avgHumidiMaxDay = Math.Round(monthlyHumidiMaxDay / count, 2)
Dim avgHumidiMinNight = Math.Round(monthlyHumidiMinNight / count, 2)
Dim avgHumidiMaxNight = Math.Round(monthlyHumidiMaxNight / count, 2)
Dim avgTempDay = Math.Round(monthlyTempDay / count, 2)
Dim avgTempNight = Math.Round(monthlyTempNight / count, 2)
Dim avgWindDay = Math.Round(monthlyWindDay / count, 2)
Dim avgWindNight = Math.Round(monthlyWindNight / count, 2)
' Füge die berechneten Durchschnittswerte zur Liste hinzu
_monthlyAverages.Add(New ClimaAverage() With {
.Period = month,
.AverageRain = avgRain,
.AverageSnowDay = avgSnowDay,
.AverageSnowNight = avgSnowNight,
.AverageHumidiMinDay = avgHumidiMinDay,
.AverageHumidiMaxDay = avgHumidiMaxDay,
.AverageHumidiMinNight = avgHumidiMinNight,
.AverageHumidiMaxNight = avgHumidiMaxNight,
.AverageTempDay = avgTempDay,
.AverageTempNight = avgTempNight,
.AverageWindDay = avgWindDay,
.AverageWindNight = avgWindNight
})
Debug.WriteLine($"Durchschnittswerte für Monat {month}: Regen {avgRain}, Schnee (Tag) {avgSnowDay}, Schnee (Nacht) {avgSnowNight}, " &
$"Temp (Tag) {avgTempDay}, Temp (Nacht) {avgTempNight}, Wind (Tag) {avgWindDay}, Wind (Nacht) {avgWindNight}")
Else
Debug.WriteLine($"Monat {month}: Keine Daten gefunden, Durchschnittswerte werden nicht berechnet.")
End If
Else
Debug.WriteLine($"Keine Wetterdaten für {month:00}-{_configServiceInstance.CurrentYear} gefunden.")
End If
Next
' Abschluss der Berechnung
Debug.WriteLine("Berechnungen abgeschlossen.")
End Sub
End Class

Die Debug-Ausgaben:
DLL in .Net 6 kompiliert mit .Net6 Test-Anwendung

XML-Quellcode

Berechnung startet...
Verarbeite Monat 1 für Jahr 2024
Suche nach Dateien mit Muster: 01-2024.xml im Verzeichnis: A:\Zephyros\Data\
Gefundene Dateien: A:\Zephyros\Data\01-2024.xml
Verarbeite Datei: A:\Zephyros\Data\01-2024.xml
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Ausnahme ausgelöst: "System.IO.FileNotFoundException" in System.Private.CoreLib.dll
Öffne Datei: A:\Zephyros\Data\01-2024.xml
Deserialisierte 31 Einträge aus der Datei A:\Zephyros\Data\01-2024.xml.
Berechne Durchschnittswerte für Monat 1, Zähler: 31
Durchschnittswerte für Monat 1: Regen 2,54, Schnee (Tag) 0,65, Schnee (Nacht) 0,19, Temp (Tag) 5,9, Temp (Nacht) 1,08, Wind (Tag) 4,03, Wind (Nacht) 4,35

DLL in .Net 4.6.1 kompiliert mit .Net 4.6.1 Test-Anwendung

XML-Quellcode

Berechnung startet...
Verarbeite Monat 1 für Jahr 2024
Suche nach Dateien mit Muster: 01-2024.xml im Verzeichnis: A:\Zephyros\Data\
Gefundene Dateien: A:\Zephyros\Data\01-2024.xml
Verarbeite Datei: A:\Zephyros\Data\01-2024.xml
Öffne Datei: A:\Zephyros\Data\01-2024.xml
Deserialisierte 31 Einträge aus der Datei A:\Zephyros\Data\01-2024.xml.
Berechne Durchschnittswerte für Monat 1, Zähler: 31
Durchschnittswerte für Monat 1: Regen 2,54, Schnee (Tag) 0,65, Schnee (Nacht) 0,19, Temp (Tag) 5,9, Temp (Nacht) 1,08, Wind (Tag) 4,03, Wind (Nacht) 4,35

DTF · 13. November 2024, 14:18

Amelie schrieb:

Ich habe schon mit Halte punkten versucht, aber irgendwie raffe ich das nicht mit Haltepunkten in einer DLL

Ich gehe jetzt davon aus das du 2 verschiedene Solutions hast.

Als erstes entferne den Verweis auf die DLL.
Rechtsklick im Projektmappen-Explorer ganz oben auf Projektmappe->Hinzufügen->Vorhandenes Projekt und die Projektdatei(vbproj/csproj) auswählen.
Nun kannst du in dieser Studioinstanz(bzw. in dieser Projektmappe) das DLL-Projekt nutzen und der Debugger hängt dann auch dran(tut er zwar auch wenn nur die DLL geladen ist, aber die haltepunkte hast du ja inner anderen Studioinstanz da interagiert der Debugger nicht mit). Beachte das die Dateien des originalen Projektes bearbeitet werden, kein dublikat! So kannste auch Haltepunkte setzen, du referenzierst so also das Projekt der DLL anstatt die DLL selbst.

Um das Projekt wieder aus der Projektmappe heraus zubekommen, rechtsklicks auf das Projekt ->Aus der Projektmappe entfernen, dann aber wieder auf die DLL verweisen.

Morrison · 13. November 2024, 17:50

Also ich habe auch des öfteren gelesen das dies ein bekannter Bug vom XMLSerializer ist!

github.com/dotnet/wcf/issues/4293
stackoverflow.com/questions/11…dexception-at-constructor

Der letzte Link ist interessant!

petaod · 13. November 2024, 20:43

Was ist denn aus meiner Vermutung in Post #9 geworden?
MetoeSenseLib <> MeteoSenseLib

Amelie · 14. November 2024, 07:24

Moin moin zusammen

@petaod
Da war zwar ein Tippfehler aber daran hat es nicht gelegen.

@DTF
Ich habe das mal versucht, muss dann aber trotzdem einen verweis zu dll machen, und dann bekomme ich das mit den Haltepunkten nicht gebacken.

Es hat wohl irgendwas mit den neuen Praktiken in .Net (kein FW) zu tun, wie das mit dem "Derialisiren" vonstatten geht.
Beim kompilieren wird versucht eine "MetoeSenseLib.XmlSerializers.dll" zu erstellen, die es dann aber nicht gibt. Das hat dann irgendwas mit den Einstellungen (siehe Bild) zu tun, was ich aber nicht kapiere.

Fazit: Die Ausnahme kommt zwar bei .Net 6 / 7 / 8 aber die Anwendung läuft stabil weiter. In .Net 4.6.+ ist das eben nicht der Fall mit dieser Ausnahme.

Jetzt ist natürlich die Überlegung das ganze im stabileren .Net4.8 oder mit dem Risiko .Net6 / 8 :?:

Amelie · 15. November 2024, 17:23

Moin moin

Also ich habe das ganze Problem noch eine weile verfolgt und dann habe ich dieses ganzen Mist mit dem XmlSerializer verworfen!
Bin auf eine andere Art herangegangen.
Resultat: Sowohl unter .Net 4.6x - 4.8x als auch unter .Net 6 funktioniert die hier gezeigte Methode.

Spoiler anzeigen

VB.NET-Quellcode

Public Class WeatherDataReader
Public Shared Function ReadWeatherData(month As Integer, year As Integer) As WeatherDataArray
' Pfad zur XML-Datei basierend auf Monat und Jahr
Dim filePath As String = Path.Combine(Configuration.Instance.DataDirectory, $"{month:00}-{year}.xml")
Debug.WriteLine($"DLL Auswahl: {month}-{year}")
Debug.WriteLine($"Pfad: {filePath}")
' Überprüfen, ob die Datei existiert
If Not File.Exists(filePath) Then
' Wenn die Datei nicht existiert, wird eine benutzerdefinierte Ausnahme ausgelöst
Throw New WeatherDataFileNotFoundException($"Die Datei {filePath} wurde nicht gefunden.")
End If
' Instanziierung des Objekts für die Wetterdaten
Dim weatherDataArray As New WeatherDataArray()
' XML-Dokument laden
Dim xmlDoc As New XmlDocument()
Try
' Die XML-Datei in das XmlDocument laden
xmlDoc.Load(filePath)
' Durchlaufe alle WeatherData-Elemente in der XML-Datei
For Each node As XmlNode In xmlDoc.SelectNodes("//WeatherData")
' Erstelle ein neues WeatherData-Objekt
Dim data As New WeatherData()
' Fülle die Eigenschaften des WeatherData-Objekts mit den Werten aus der XML
data.WeatherDate = DateTime.Parse(node.SelectSingleNode("WeatherDate").InnerText)
data.WeatherDay = node.SelectSingleNode("WeatherDay").InnerText
data.WeatherNight = node.SelectSingleNode("WeatherNight").InnerText
data.RainDay = Convert.ToDouble(node.SelectSingleNode("RainDay").InnerText)
' Füge das WeatherData-Objekt zum Array hinzu
weatherDataArray.Add(data)
Next
Catch ex As Exception
' Fehler beim Laden oder Parsen des XMLs
Throw New Exception("Fehler beim Verarbeiten der Wetterdaten.", ex)
End Try
' Rückgabe der Wetterdaten
Return weatherDataArray
End Function
End Class

System.IO.FileNotFoundException (Unerklärbar!)

System.IO.FileNotFoundException (Unerklärbar!)

VB.NET-Quellcode

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

XML-Quellcode

Amelie schrieb:

XML-Quellcode

VB.NET-Quellcode

XML-Quellcode

XML-Quellcode

Amelie schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben