"Dateiablage" auf Storage anstatt Datenbank

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von BlueLagoonX.

    Dann wiederhol ich mich

    VaporiZed schrieb:

    Bau erstmal in ner TestApp das ProcExited mit nem einfachen Prozess nach, ohne Azure.

    VB.NET-Quellcode

    1. Imports System.Diagnostics
    3. Friend Class FrmMain
    5. Private WithEvents _proc As Process
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. _proc = Process.Start(IO.Path.Combine(Application.StartupPath, "TestFile.txt"))
    9. _proc.EnableRaisingEvents = True
    10. End Sub
    12. Private Sub ProcessExited(sender As Object, e As EventArgs) Handles _proc.Exited
    13. MessageBox.Show("Prozess wurde beendet.")
    14. End Sub
    16. End Class
    Wenn das klappt, dann stückweise dazubasteln, bis Du herausfindest, woran es liegt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    Bau erstmal in ner TestApp das ProcExited mit nem einfachen Prozess nach, ohne Azure.


    Hab ich gemacht - ich hatte aber auch schon gesagt, dass der Azure-Kram da nix mit zu tun hat.
    Gleiche .png-Datei (liegt lokal beim Projekt) - siehe Screenshot



    Ich vermute, dass hier kein "Prozess" in dem Sinne dahinter erkannt wird - warum auch immer. Vielleicht gibt's noch eine Lösung - andernfalls
    käme mir jetzt nur in den Sinn, dass ich alle Dateien die zur Laufzeit geöffnet werden in eine Liste gespeichert werden und beim Schließen des Programms dann alle löschen.
    Finde ich aber nicht so elegant ehrlich gesagt.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Naja, da startet ja auch kein vollwertiger Prozess, sondern erstmal nur die AppAuswahl. Solltest zum Testen schon was verwenden, wo sich dann auch ein Programm öffnet.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    Solltest zum Testen schon was verwenden, wo sich dann auch ein Programm öffnet.

    jo mit nem leeren Textdokument funzt das. Ich hab jetzt mal die "Windows-Foto-Anzeige" auf immer verwenden gesetzt. Es wird auch dann kein Prozess erkannt.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Klingt verdächtig danach, als ob moderne/modernisierte Apps (ggf. UWP-Apps?) nicht als Process geführt oder gefunden werden.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Das hier geht - man muss aber den Prozessnamen kennen. Also erst manuell starten, dann mittels Process.GetProcesses schauen, wie das Ding heißt und dann später:

    VB.NET-Quellcode

    1. Imports System.Diagnostics
    3. Friend Class FrmMain
    5. Private WithEvents _proc As Process
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Process.Start(New ProcessStartInfo("D:\Testbild1.png")) 'ruft die UWP-App (?) Windows Photos auf.
    9. _proc = Process.GetProcessesByName("Microsoft.Photos")(0)
    10. _proc.EnableRaisingEvents = True
    11. End Sub
    13. Private Sub ProcessExited(sender As Object, e As EventArgs) Handles _proc.Exited
    14. MessageBox.Show("Prozess wurde beendet.")
    15. End Sub
    17. End Class


    Vielleicht klappt das ja auch so in Deinem Projekt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Danke, werd' ich mal testen. Allerdings muss ich da wieder Extrawürste coden, denn mal sind's Foto-Dateien, mal PDF-Dateien und dann gibt's ja noch Excel- und Word-Dateien
    die in meinem Programm hinterlegt sind. Manchmal sogar E-Mails...(.msg)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Hi, ich nochmal.

    Gibt's keine Möglichkeit, die "Datei" aus dem Stream direkt zu öffnen, ohne lokal zu speichern?
    In Zeile 10 geht's ja los...

    VB.NET-Quellcode

    1. Public Sub OpenFileFromAzureStorage(Filename As String, ShareDirectory As String)
    2. 'TODO: temporäre Datei nach Schließen wieder löschen
    3. Dim shareClient = New Files.Shares.ShareClient(App.AzureConnectionString, App.AzureShareName)
    4. Dim shareDirClient = shareClient.GetDirectoryClient(ShareDirectory)
    5. Dim shareFileClient = shareDirClient.GetFileClient(Filename)
    6. If shareFileClient.Exists Then
    7. Dim shareFileDownloadInfo As Files.Shares.Models.ShareFileDownloadInfo = shareFileClient.Download
    8. _fi = New FileInfo($"{App.AzureLocalTempFolder}\{Filename}")
    9. If File.Exists(_fi.FullName) Then File.Delete(_fi.FullName)
    10. Using stream = File.OpenWrite(_fi.FullName)
    11. shareFileDownloadInfo.Content.CopyTo(stream)
    12. End Using
    13. Using _proc = New Process
    14. Try
    15. Dim procStartInfo As New ProcessStartInfo
    16. With procStartInfo
    17. .ErrorDialog = True
    18. .UseShellExecute = True
    19. .FileName = _fi.FullName
    20. End With
    21. _proc.StartInfo = procStartInfo
    22. _proc.EnableRaisingEvents = True
    23. AddHandler _proc.Exited, AddressOf ProcessExited
    24. _proc.Start()
    25. Catch ex As Exception
    26. msgError(ex.Message)
    27. End Try
    28. End Using
    29. Else
    30. msgError($"Die angeforderte Datei {ShareDirectory}\{Filename} konnte auf dem Server nicht gefunden werden!")
    31. Return
    32. End If
    33. End Sub
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Was meinst Du mit Öffnen ohne Speichern? Inhalt in einer TextBox anzeigen? Wenn man eine Internetseite anwählt, wird doch dessen Inhalt auch heruntergeladen und lokal gespeichert, wenn ich mich recht entsinne.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Jo dachte ich mir schon. Ok, dann müssen die Files eben in nen lokalen Temp-Ordner und das Programm muss dann versuchen beim Beenden diesen Ordner komplett zu leeren.
    Weil o.g. Konstrukt bekomm ich aufgrund der vielen Dateitypen nicht vollständig lauffähig. Also würde ich so vorgehen:
    -Programm wird geöffnet -> neue List(Of String) oder wegen mir List(Of FileInfo)
    -User öffnet was vom Storage -> wird lokal in einen Ordner geladen -> FileInfo oder Fullpath in die List gepackt
    -Programm wird beendet -> Die Dateien aus der Liste werden aus dem lokalen Ordner gelöscht

    Wär das so sinnvoll? Wenn das Programm abraucht, dann gibt's eben ein paar Dateien in dem Ordner die nicht gelöscht wurden, seh ich jetz nicht
    als Weltuntergang :P
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Meine Programme arbeiten zum Teil auch mit Dateien.

    Hierzu habe ich Routinen, die beim Beenden und, sofern nötig, beim Starten den Temp Ordner leeren.

    Eine

    Quellcode

    1. List Of(IO.FileInfo)
    kannst du durchlaufen um enthaltene Dateien zu löschen, hilft aber nach dem Neustart des Programms nicht mehr da sie dann leer ist.

    Hier mal ein Beispiel, wie meine Tmp-Routine aussieht.

    VB.NET-Quellcode

    1. ​
    2. Option Explicit On
    3. Option Strict On
    5. Public Module mod_Test
    7. Public Sub ClearTmp()
    9. Dim Tmp As New Tmp() 'Beispiel 1
    10. Tmp.Dispose()
    12. Dim TmpRoot As New IO.DirectoryInfo("C:\tmp") 'Beispiel 2
    13. Dim Tmp1 As New Tmp(TmpRoot)
    14. Tmp1.Dispose()
    16. Dim TmpRootStr As String = "C:\tmp" 'Beispiel 3
    17. Dim Tmp2 As New Tmp(TmpRootStr)
    18. Tmp2.Dispose()
    20. End Sub
    22. End Module
    24. Public Class Tmp : Implements IDisposable
    26. Private disposedValue As Boolean
    28. ''' <summary>
    29. ''' Standard Root-Verzeichnis.
    30. ''' </summary>
    31. ''' <returns></returns>
    32. Public ReadOnly Property DefaultRootDirectory As IO.DirectoryInfo
    33. Get
    34. Return New IO.DirectoryInfo(IO.Path.Combine(IO.Path.GetTempPath, Application.ProductName))
    35. End Get
    36. End Property
    38. Private Property FieldRootDirectory As IO.DirectoryInfo = Nothing
    40. Public ReadOnly Property RootDirectory As IO.DirectoryInfo
    41. Get
    42. With Me
    43. Return New IO.DirectoryInfo(If(.FieldRootDirectory Is Nothing, .DefaultRootDirectory, .FieldRootDirectory).FullName)
    44. End With
    45. End Get
    46. End Property
    48. Public ReadOnly Property Downloads As IO.DirectoryInfo
    49. Get
    50. With Me
    51. If .RootDirectory Is Nothing Then Return Nothing
    52. Return New IO.DirectoryInfo(IO.Path.Combine(.RootDirectory.FullName, "Download"))
    53. End With
    54. End Get
    55. End Property
    57. Public ReadOnly Property Logs As IO.DirectoryInfo
    58. Get
    59. With Me
    60. If .RootDirectory Is Nothing Then Return Nothing
    61. Return New IO.DirectoryInfo(IO.Path.Combine(.RootDirectory.FullName, "Log"))
    62. End With
    63. End Get
    64. End Property
    66. ''' <summary>
    67. ''' Erstellt das Tmp-Objekt mit Standard <see cref="RootDirectory"/>.
    68. ''' </summary>
    69. Sub New()
    70. End Sub
    72. ''' <summary>
    73. ''' Erstellt das Tmp-Objekt mit dem unter <paramref name="Root"/> angegebenen <see cref="IO.DirectoryInfo"/>. Wenn dies <c>Nothing</c> ist oder nicht existiert, wird <see cref="RootDirectory"/> verwendet.
    74. ''' </summary>
    75. ''' <param name="Root"></param>
    76. Sub New(Root As IO.DirectoryInfo)
    78. With Me
    79. .FieldRootDirectory = Root
    80. End With
    82. End Sub
    84. ''' <summary>
    85. ''' Erstellt das Tmp-Objekt mit dem unter <paramref name="Root"/> angegebenen <see cref="String"/>. Wenn dies <c>Nothing</c> ist oder nicht existiert, wird <see cref="RootDirectory"/> verwendet.
    86. ''' </summary>
    87. ''' <param name="Root"></param>
    88. Sub New(Root As String)
    90. With Me
    91. .FieldRootDirectory = If(String.IsNullOrEmpty(Root), Nothing, New IO.DirectoryInfo(Root))
    92. End With
    94. End Sub
    96. ''' <summary>
    97. ''' Löscht alle Dateien.
    98. ''' </summary>
    99. ''' <param name="disposing"></param>
    100. Protected Overridable Sub Dispose(disposing As Boolean)
    101. If Not disposedValue Then
    102. If disposing Then
    103. ' TODO: Verwalteten Zustand (verwaltete Objekte) bereinigen
    104. End If
    106. With Me
    107. Try
    108. If .Downloads IsNot Nothing AndAlso .Downloads.Exists Then .Downloads.Delete(True)
    109. If .Logs IsNot Nothing AndAlso .Logs.Exists Then .Logs.Delete(True)
    111. Catch ex As Exception
    112. MessageBox.Show(ex.Message, "Deleting Files", MessageBoxButtons.OK, MessageBoxIcon.Error)
    113. End Try
    114. End With
    116. disposedValue = True
    117. End If
    118. End Sub
    120. ' ' TODO: Finalizer nur überschreiben, wenn "Dispose(disposing As Boolean)" Code für die Freigabe nicht verwalteter Ressourcen enthält
    121. ' Protected Overrides Sub Finalize()
    122. ' ' Ändern Sie diesen Code nicht. Fügen Sie Bereinigungscode in der Methode "Dispose(disposing As Boolean)" ein.
    123. ' Dispose(disposing:=False)
    124. ' MyBase.Finalize()
    125. ' End Sub
    127. Public Sub Dispose() Implements IDisposable.Dispose
    128. ' Ändern Sie diesen Code nicht. Fügen Sie Bereinigungscode in der Methode "Dispose(disposing As Boolean)" ein.
    129. Dispose(disposing:=True)
    130. GC.SuppressFinalize(Me)
    131. End Sub
    133. End Class