Problem mit Video-Downloader

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Myrax.

    Problem mit Video-Downloader

    Hi

    Ich habe ein kleines Programm geschrieben das Dateien downloaden kann. Nur mein Problem ist die gedownloadeten Dateien werden als "pure" Dateien dargestellt. Also als Dateien ohne Dateinamenserweiterung das Icon dieser Dateien ist einfach ein weißes Blatt mit einer Knickecke oben rechts.

    Meine Frage nun was muss ich an diesem Code ändern so das die Datei im MP3-Format gespeichert wird (mit dem Filter beim SaveFileDialog hab es schon versucht, hat nicht funktioniert)

    Der Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    4. Public Const Clickdown As Integer = &HA1
    5. Public Const FormCapture As Integer = &H2
    6. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    7. Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32
    8. Dim whereToSave As String
    9. Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
    10. Delegate Sub DownloadCompleteSafe(ByVal cancelled As Boolean)
    12. Private Sub PictureBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    13. If (e.Button = Windows.Forms.MouseButtons.Left) Then
    14. ReleaseCapture()
    15. SendMessage(Handle.ToInt32, Clickdown, FormCapture, 0)
    16. End If
    17. End Sub
    19. Public Sub DownloadComplete(ByVal cancelled As Boolean)
    20. Me.txtFileName.Enabled = True
    21. Me.btn_download.Enabled = True
    23. If cancelled Then
    24. Me.btn_cancel.Enabled = False
    25. Me.lblstat.Text = "Status : " & "Abgebrochen"
    26. MessageBox.Show("Download wurde abgebrochen !", "Abgebrochen", MessageBoxButtons.OK, MessageBoxIcon.Information)
    27. Else
    28. Me.btn_cancel.Enabled = False
    29. Me.lblstat.Text = "Status : " & "Successfully downloaded"
    30. MessageBox.Show("Erfolgreich heruntergeladen !", "Fertig", MessageBoxButtons.OK, MessageBoxIcon.Information)
    31. End If
    33. Me.ProgressBar1.Value = 0
    34. End Sub
    36. Public Sub ChangeTexts(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
    38. Me.lblsize.Text = "Größe: " & Math.Round((length / 1024), 2) & " KB"
    39. Me.lbldownloading.Text = "Downloading: " & Me.txtFilename.Text
    40. Me.lblstat.Text = "Status: " & Math.Round((position / 1024), 2) & " KB von " & Math.Round((length / 1024), 2) & "KB (" & Me.ProgressBar1.Value & "%)"
    41. Me.lblpercent.Text = Me.ProgressBar1.Value & "%"
    42. If speed = -1 Then
    43. Me.lblspd.Text = "Geschwindigkeit: " & "wird ausgerechnet..."
    44. Else
    45. Me.lblspd.Text = "Geschwindigkeit: " & Math.Round((speed / 1024), 2) & " KB/s"
    46. End If
    48. Me.ProgressBar1.Value = percent
    49. End Sub
    51. Private Sub btn_download_Click(sender As System.Object, e As System.EventArgs) Handles btn_download.Click
    52. If Me.txtFilename.Text <> "" AndAlso Me.txtFilename.Text.StartsWith("http://") Then
    53. Me.whereToSave = Me.loc.Text
    54. Me.SaveFileDialog1.FileName = ""
    55. Me.lblsloc.Text = "Speicherort: " & whereToSave
    56. Me.txtFilename.Enabled = False
    57. Me.btn_download.Enabled = False
    58. Me.btn_cancel.Enabled = True
    59. Me.loc.Enabled = False
    60. Me.brws.Enabled = False
    61. Me.BackgroundWorker1.RunWorkerAsync()
    62. Else
    63. MessageBox.Show("Dieser Link verweist auch kein gültiges Videoformat", "Warnung", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    64. End If
    65. End Sub
    67. Private Sub brws_Click(sender As System.Object, e As System.EventArgs) Handles brws.Click
    68. Me.SaveFileDialog1.FileName = Me.txtFilename.Text.Split("/"c)(Me.txtFilename.Text.Split("/"c).Length - 1)
    69. Me.lblname.Text = "Name: " & Me.txtFilename.Text.Split("/"c)(Me.txtFilename.Text.Split("/"c).Length - 1)
    70. Me.SaveFileDialog1.ShowDialog()
    71. Me.loc.Text = Me.SaveFileDialog1.FileName
    72. End Sub
    74. Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    75. Me.btn_download.Enabled = False
    76. Dim theResponse As HttpWebResponse
    77. Dim theRequest As HttpWebRequest
    78. Try
    79. theRequest = WebRequest.Create(Me.txtFilename.Text)
    80. theResponse = theRequest.GetResponse
    81. Catch ex As Exception
    82. MessageBox.Show("Ein Fehler ist aufgetreten während sie die Datei(en) gedownloadet haben. Mögliche Ursachen:" & ControlChars.CrLf & _
    83. "1) Die Datei existiert n" & ControlChars.CrLf & _
    84. "2) Webserver-Fehler, versuchen sie es später nochmal", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    85. Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
    86. Me.Invoke(cancelDelegate, True)
    87. Exit Sub
    88. End Try
    89. Dim length As Long = theResponse.ContentLength
    90. Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
    91. Me.Invoke(safedelegate, length, 0, 0, 0)
    92. Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Create)
    93. Dim nRead As Integer
    94. Dim speedtimer As New Stopwatch
    95. Dim currentspeed As Double = -1
    96. Dim readings As Integer = 0
    98. Do
    99. If BackgroundWorker1.CancellationPending Then
    100. Exit Do
    101. End If
    102. speedtimer.Start()
    103. Dim readBytes(4095) As Byte
    104. Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
    105. nRead += bytesread
    106. Dim percent As Short = (nRead / length) * 100
    107. Me.Invoke(safedelegate, length, nRead, percent, currentspeed)
    109. If bytesread = 0 Then Exit Do
    110. writeStream.Write(readBytes, 0, bytesread)
    111. speedtimer.Stop()
    112. readings += 1
    114. If readings >= 5 Then
    115. currentspeed = 20480 / (speedtimer.ElapsedMilliseconds / 1000)
    116. speedtimer.Reset()
    117. readings = 0
    118. End If
    119. Loop
    121. theResponse.GetResponseStream.Close()
    122. writeStream.Close()
    124. If Me.BackgroundWorker1.CancellationPending Then
    125. IO.File.Delete(Me.whereToSave)
    126. Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
    127. Me.Invoke(cancelDelegate, True)
    128. Exit Sub
    129. End If
    131. Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
    132. Me.Invoke(completeDelegate, False)
    133. End Sub
    134. End Class



    Möglicherweise wichtige angaben: "Me.loc" ist die Textbox mit dem Speicherort. "Me.sloc" ist der Label mit dem Inhalt von "Me.loc".

    @PhoenixBlaster
    Mal nebenbei. Für Downloadas würde ich einen WebClienten benutzen.

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Public WithEvents wc As New Net.WebClient()
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. wc.DownloadFileAsync(New Uri("Adresse der Ressource"), "Pfad zum Speichern")
    8. End Sub
    9. Private Sub wc_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
    10. MessageBox.Show("Fertig")
    11. End Sub
    12. Private Sub wc_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
    13. ProgressBar1.Value = e.ProgressPercentage
    14. End Sub
    15. End Class

    Mehr an Code ist es nicht. Keine Berechnungen, kein Backgroundworker, gar nichts ...

    Ich hab einen Filter mit dem geht es nicht wenn ich keinen Filter habe und schreibe "DerNameDerDatei.mp3" kann es trotzdem nicht geöffnet werden. Ich habe es an Windows MediaPlayer, VLC Player und QuickTime getestet

    @PhoenixBlaster: Wenn Du eine Datei ziehst solltest Du wissen, was es für eine ist.
    Was wird Dir denn angeboten, wenn Du sie im IE, FF oder so downloadest?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @LaMiy: Genau. ;)
    @PhoenixBlaster:

    RodFromGermany schrieb:

    Was wird Dir denn angeboten, wenn Du sie im IE, FF oder so downloadest?
    Warum schreibst Du solch vollkommen irrelevante Information schon in Post #8 :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook