GeckoFX Download starten

  • VB.NET
  • .NET (FX) 4.0

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Panics.

    GeckoFX Download starten

    Hallo zusammen

    Vorweg bitte erschlagt mich nicht aber ich habe jetzt Tagelang alles gewälzt was ich im web gefunden habe komme aber nicht weiter...
    Ich nutze in einem Project GeckoFX 31 mit passendem Xulrunner.
    Das ganze funktioniert auch weitestgehend ganz gut bis auf das ich (glaube ich) zu doof bin raus zu bekommen wie ich einen Download mit der GeckoFX initialisiere...
    Downloadmanager und co sind alles kein Problem auch das Navigieren innerhalb des GeckoFX Browsers klappt wunderbar.
    Nur wie kann ich einen Download starten der auf ein ButtonEvent hin startet?

    Leider finde ich dazu kein Tutorial...
    Ich hoffe ihr könnt mir da ein wenig unter die Arme greifen...
    Ich muss nämlich ein Array von ca 400 Dateien darüber downloaden können und komme momentan nicht weiter

    EDIT://
    Entschuldigung ich nutze GeckoFX 33.0.1.0 mit passendem Xulrunner...


    EDIT2://

    VB.NET-Quellcode

    1. Dim P As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\\tmp" ' If Not System.IO.Directory.Exists(P) Then System.IO.Directory.CreateDirectory(P)
    3. Dim objTarget As nsILocalFile = Xpcom.CreateInstance(Of nsILocalFile)("@mozilla.org/file/local;1")
    4. Dim tmp_Loc As String = P & "\tmpdload"
    5. Using tmp As New nsAString(tmp_Loc)
    6. objTarget.InitWithPath(tmp)
    7. End Using
    8. If e.FileName.Contains(".") Then
    9. S = Strings.Split(e.FileName, ".")
    10. F = S(S.Length - 1).ToUpper & " File (*." & S(S.Length - 1) & ")|*." & S(S.Length - 1)
    11. Else
    12. F = "File (*.*)|*.*"
    13. End If
    14. savebox.Filter = F '"HTML File (*.html)|*.html"
    15. savebox.Title = "Save File:"
    16. savebox.FileName = e.FileName
    17. If savebox.ShowDialog = System.Windows.Forms.DialogResult.OK And Not String.IsNullOrEmpty(savebox.FileName) Then
    18. Dim source As nsIURI = IOService.CreateNsIUri(New Uri("http://sync.excore-gaming.eu/@excore_gaming/addons/Bornholm.pbo").AbsoluteUri)
    19. Dim dest As nsIURI = IOService.CreateNsIUri(New Uri(savebox.FileName).AbsoluteUri)
    20. Dim t As nsAStringBase = DirectCast(New nsAString(System.IO.Path.GetFileName(savebox.FileName)), nsAStringBase)
    22. Dim persist As nsIWebBrowserPersist = Xpcom.CreateInstance(Of nsIWebBrowserPersist)("@mozilla.org/embedding/browser/nsWebBrowserPersist;1")
    23. Dim DownloadMan As nsIDownloadManager = Xpcom.CreateInstance(Of nsIDownloadManager)("@mozilla.org/download-manager;1")
    24. Dim downloadX As nsIDownload = DownloadMan.AddDownload(0, source, dest, t, e.Mime, 0, Nothing, DirectCast(persist, nsICancelable), False) '
    25. If (downloadX IsNot Nothing) Then
    26. persist.SetPersistFlagsAttribute(2 Or 32 Or 16384)
    27. persist.SetProgressListenerAttribute(DirectCast(downloadX, nsIWebProgressListener))
    28. persist.SaveURI(source, Nothing, Nothing, Nothing, Nothing, DirectCast(dest, nsISupports), Nothing)
    29. End If
    30. End If


    Das hab ich gerade gefunden komme damit aber nicht wirklich weiter...
    Ich verstehe nicht so ganz woher ich "e", "F", "S" und "savebox" bekomme.
    Ich denke "savebox" könnte ich als SaveFileDialog einbinden aber der Rest erschließt sich mir gar nicht...

    Ich hoffe ihr könnt mir da ein wenig unter die Arme greifen...

    Gruß
    Panics

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Panics“ ()

    Danke erst einmal für den Link .
    Leider ist mein c# nicht gerade das beste und ich versteh (wenn überhaupt) nur die hälfte der dort befindlichen Codes...

    Ich habe versucht diese zu Konvertieren aber dabei habe ich wohl mehr Fehler als alles andere gemacht...
    Momentan sieht das ganze so aus:

    VB.NET-Quellcode

    1. Public Shared Function downloadFile(localfile As String, url As String, postData As String) As nsIDownload
    2. Dim DownloadManager As nsIDownloadManager
    3. If DownloadManager Is Nothing Then
    4. DownloadManager = Xpcom.CreateInstance(Of nsIDownloadManager)("@mozilla.org/download-manager;1")
    5. End If
    7. Dim source As nsIURI = IOService.CreateNsIUri(url)
    8. Dim dest As nsIURI = IOService.CreateNsIUri(localfile)
    10. Dim objTarget = Xpcom.CreateInstance(Of nsILocalFile)("@mozilla.org/file/local;1")
    11. Using tmp As New nsAString(localfile)
    12. objTarget.InitWithPath(tmp)
    13. End Using
    15. Dim persist As nsIWebBrowserPersist = Xpcom.CreateInstance(Of nsIWebBrowserPersist)("@mozilla.org/embedding/browser/nsWebBrowserPersist;1")
    17. Dim download As nsIDownload = Nothing
    19. Dim t As nsAStringBase = DirectCast(New nsAString(Path.GetFileName(localfile)), nsAStringBase)
    21. download = nsIDownloadManager.AddDownload(0, source, dest, t, Nothing, 0, Nothing, DirectCast(persist, nsICancelable))
    23. If download IsNot Nothing Then
    24. Dim myDown As nsIDownload = download
    25. persist.SetPersistFlagsAttribute(2 Or 32 Or 16384)
    26. persist.SetProgressListenerAttribute(DirectCast(myDown, nsIWebProgressListener))
    28. Dim post As nsIInputStream = Nothing
    29. If postData IsNot Nothing AndAlso postData.Length > 5 Then
    30. Dim converter As nsIScriptableUnicodeConverter = Xpcom.CreateInstance(Of nsIScriptableUnicodeConverter)("@mozilla.org/intl/scriptableunicodeconverter")
    31. Dim s As nsAStringBase = DirectCast(New nsAString(postData), nsAStringBase)
    32. converter.SetCharsetAttribute("ASCII")
    33. post = converter.ConvertToInputStream(s)
    34. End If
    36. persist.SaveURI(source, Nothing, Nothing, post, Nothing, DirectCast(dest, nsISupports))
    37. Return myDown
    38. End If
    39. Return Nothing
    40. End Function
    42. Private PostData As String
    43. Private postDataUrl As String
    45. Private Function isChannelMine(channel As nsIHttpChannel) As Boolean
    46. Try
    47. Dim notificationCallbacks As nsIInterfaceRequestor = channel.GetNotificationCallbacksAttribute()
    48. If notificationCallbacks Is Nothing Then
    49. notificationCallbacks = channel.GetLoadGroupAttribute().GetNotificationCallbacksAttribute()
    50. End If
    52. If notificationCallbacks Is Nothing Then
    53. Return False
    54. End If
    56. Dim PtrDomWin As IntPtr = notificationCallbacks.GetInterface(GetType(nsIDOMWindow).GUID)
    58. If PtrDomWin = IntPtr.Zero Then
    59. Return False
    60. End If
    62. Dim domWin As nsIDOMWindow = DirectCast(Marshal.GetObjectForIUnknown(PtrDomWin), nsIDOMWindow)
    64. Return domWin.GetHashCode().Equals(GetHashCode())
    65. Catch
    66. Return False
    67. End Try
    68. End Function
    70. Public Sub Observe(aSubject As nsISupports, aTopic As String, aData As String)
    71. If aTopic.Equals(ObserverNotifications.HttpRequests.HttpOnModifyRequest) Then
    72. Using httpChannel__1 = HttpChannel.Create(aSubject)
    73. If httpChannel__1.Uri IsNot Nothing AndAlso isChannelMine(httpChannel__1._httpChannel) Then
    74. Dim uploadChannel = Xpcom.QueryInterface(Of nsIUploadChannel)(aSubject)
    76. If uploadChannel IsNot Nothing Then
    77. Dim uc = New UploadChannel(uploadChannel)
    78. Dim uploadStream = uc.UploadStream
    80. If uploadStream IsNot Nothing Then
    81. If uploadStream.CanSeek Then
    82. Dim rdr = New BinaryReader(uploadStream)
    83. Dim reqBodyStream = New MemoryStream()
    84. Try
    85. Dim avl As Integer = 0
    86. While (InlineAssignHelper(avl, CInt(uploadStream.Available))) > 0
    87. reqBodyStream.Write(rdr.ReadBytes(avl), 0, avl)
    88. End While
    89. PostData = System.Text.Encoding.ASCII.GetString(reqBodyStream.ToArray())
    90. postDataUrl = httpChannel__1.Uri.AbsoluteUri
    91. reqBodyStream.Dispose()
    92. Catch
    93. End Try
    95. uploadStream.Seek(0, 0)
    96. End If
    97. End If
    98. End If
    99. End If
    101. End Using
    102. End If
    103. End Sub


    Könnte hier mir vielleicht einer sagen wo ich meine Fehler gemacht habe?
    Einige Sachen war ich mir auch absolut nicht sicher es währe also super wenn ihr mir sagen könntet wie ich das besser machen könnte damit ich das umschreiben kann...

    Ich hab nochmal ein wenig gebastelt und nun sieht das ganze so aus:

    VB.NET-Quellcode

    1. Public Shared Function downloadFile(localfile As String, url As String, postData As String) As nsIDownload
    2. Dim DownloadManager As nsIDownloadManager
    3. If DownloadManager Is Nothing Then
    4. DownloadManager = Xpcom.CreateInstance(Of nsIDownloadManager)("@mozilla.org/download-manager;1")
    5. End If
    7. Dim source As nsIURI = IOService.CreateNsIUri(url)
    8. Dim dest As nsIURI = IOService.CreateNsIUri(localfile)
    10. Dim objTarget = Xpcom.CreateInstance(Of nsILocalFile)("@mozilla.org/file/local;1")
    11. Using tmp As New nsAString(localfile)
    12. objTarget.InitWithPath(tmp)
    13. End Using
    15. Dim persist As nsIWebBrowserPersist = Xpcom.CreateInstance(Of nsIWebBrowserPersist)("@mozilla.org/embedding/browser/nsWebBrowserPersist;1")
    17. 'Dim download As nsIDownload = Nothing
    19. Dim t As nsAStringBase = DirectCast(New nsAString(Path.GetFileName(localfile)), nsAStringBase)
    21. Using download As New nsIDownload
    22. download = nsIDownloadManager.AddDownload(0, source, dest, t, Nothing, 0, Nothing, DirectCast(persist, nsICancelable))
    23. If download IsNot Nothing Then
    24. Dim myDown As nsIDownload = download
    25. persist.SetPersistFlagsAttribute(2 Or 32 Or 16384)
    26. persist.SetProgressListenerAttribute(DirectCast(myDown, nsIWebProgressListener))
    28. Dim post As nsIInputStream = Nothing
    29. If postData IsNot Nothing AndAlso postData.Length > 5 Then
    30. Dim converter As nsIScriptableUnicodeConverter = Xpcom.CreateInstance(Of nsIScriptableUnicodeConverter)("@mozilla.org/intl/scriptableunicodeconverter")
    31. Dim s As nsAStringBase = DirectCast(New nsAString(postData), nsAStringBase)
    32. converter.SetCharsetAttribute("ASCII")
    33. post = converter.ConvertToInputStream(s)
    34. End If
    36. persist.SaveURI(source, Nothing, Nothing, post, Nothing, DirectCast(dest, nsISupports))
    37. Return myDown
    38. End If
    39. End Using
    40. Return Nothing
    41. End Function
    43. Private PostData As String
    44. Private postDataUrl As String
    46. Private Function isChannelMine(channel As nsIHttpChannel) As Boolean
    47. Try
    48. Dim notificationCallbacks As nsIInterfaceRequestor = channel.GetNotificationCallbacksAttribute()
    49. If notificationCallbacks Is Nothing Then
    50. notificationCallbacks = channel.GetLoadGroupAttribute().GetNotificationCallbacksAttribute()
    51. End If
    53. If notificationCallbacks Is Nothing Then
    54. Return False
    55. End If
    57. Dim PtrDomWin As IntPtr = notificationCallbacks.GetInterface(GetType(nsIDOMWindow).GUID)
    59. If PtrDomWin = IntPtr.Zero Then
    60. Return False
    61. End If
    63. Dim domWin As nsIDOMWindow = DirectCast(Marshal.GetObjectForIUnknown(PtrDomWin), nsIDOMWindow)
    65. Return domWin.GetHashCode().Equals(GetHashCode())
    66. Catch
    67. Return False
    68. End Try
    69. End Function
    71. Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
    72. target = value
    73. Return value
    74. End Function
    75. Public Sub Observe(aSubject As nsISupports, aTopic As String, aData As String)
    76. If aTopic.Equals(ObserverNotifications.HttpRequests.HttpOnModifyRequest) Then
    77. Using httpChannel__1 = HttpChannel.Create(aSubject)
    78. If httpChannel__1.Uri IsNot Nothing AndAlso isChannelMine(httpChannel__1.Uri) Then
    79. Dim uploadChannel = Xpcom.QueryInterface(Of nsIUploadChannel)(aSubject)
    81. If uploadChannel IsNot Nothing Then
    82. Dim uc As New UploadChannel(uploadChannel)
    83. Dim uploadStream = uc.UploadStream
    85. If uploadStream IsNot Nothing Then
    86. If uploadStream.CanSeek Then
    87. Dim rdr = New BinaryReader(uploadStream)
    88. Dim reqBodyStream = New MemoryStream()
    89. Try
    90. Dim avl As Integer = 0
    91. While (InlineAssignHelper(avl, CInt(uploadStream.Available))) > 0
    92. reqBodyStream.Write(rdr.ReadBytes(avl), 0, avl)
    93. End While
    94. PostData = System.Text.Encoding.ASCII.GetString(reqBodyStream.ToArray())
    95. postDataUrl = httpChannel__1.Uri.AbsoluteUri
    96. reqBodyStream.Dispose()
    97. Catch
    98. End Try
    100. uploadStream.Seek(0, 0)
    101. End If
    102. End If
    103. End If
    104. End If
    106. End Using
    107. End If
    108. End Sub


    Jedoch bekomme ich 2 Fehler:
    Fehler 2 "Gecko.Net.UploadChannel.Friend Sub New(uploadChannel As Gecko.nsIUploadChannel)" ist in diesem Kontext nicht zugreifbar, da es "Friend" ist.
    Fehler 1 "New" kann nicht auf einer Schnittstelle verwendet werden. (bezogen auf diese Zeile: "Using download As New nsIDownload")
    Könntet ihr mir dabei helfen?

    Gruß Panics

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

Facebook
Telefonspende