Difference between revisions of "ISDBDownloader::DownloadFile"

From MediaMonkey Wiki
Jump to: navigation, search
(Example code)
 
Line 36: Line 36:
 
End Sub
 
End Sub
  
Sub SDBDownloadFinished( URL, Success)
+
Sub SDBDownloadFinished( URL, Success, ResponseCode)
     If Success then
+
     if Success then
 
       MsgBox("Download has finished successfuly for the URL:"&URL)
 
       MsgBox("Download has finished successfuly for the URL:"&URL)
     Else
+
     else
       MsgBox("Download has failed for the URL:"&URL)
+
       MsgBox("Download has failed for the URL:"&URL&", ResponseCode = "&ResponseCode)
     End If  
+
     end if  
 
End Sub
 
End Sub
  

Latest revision as of 13:47, 14 June 2010

CoClass SDBDownloader, Interface ISDBDownloader

Method DownloadFile( URL As String, FileName As String, AddToLibrary As Boolean)


Parameters

Name Type Description
URL String URL of the content to be downloaded
FileName String Specifies where to download the file, if this parameter is empty then the default download location specified in Options is used
AddToLibrary Boolean If this parameter is TRUE then the downloaded track will be added to MediaMonkey library


Method description

Initializes download of a file on the background.

To manipulate with the initialized download and for getting download progress use the others methods of SDBDownloader class. If you want to get an URL content directly to String then use ISDBDownloader::GetURLContent

Added in MediaMonkey 4.0

Example code

Option Explicit

Dim UI  : Set UI = SDB.UI

Sub OnStartUp()
    Dim mnuTest

    Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
    mnuTest.Caption = SDB.Localize("Download Script")
    mnuTest.OnClickFunc = "SDBOnClick"
    mnuTest.UseScript = Script.ScriptPath
    
    Script.RegisterEvent SDB, "OnDownloadFinished", "SDBDownloadFinished"
End Sub

Sub SDBDownloadFinished( URL, Success, ResponseCode)
    if Success then
      MsgBox("Download has finished successfuly for the URL:"&URL)
    else
      MsgBox("Download has failed for the URL:"&URL&", ResponseCode = "&ResponseCode)
    end if  
End Sub


Sub SDBOnClick(Item)   
  SDB.Downloader.DownloadFile "http://www.spiker.wz.cz/SecretStream.mp3", "C:\aaa.mp3", false   
End Sub

Related Topics