如何使用URLDownloadToFile

chuxianbing 1月前 375

編譯時顯示 退出碼為1是怎么回事

我引用api 函數"URLDownloadToFile"顯示重復定義,不引用時顯示 URLDownloadToFileW未定義

最新回復 (3)
    您需要登錄后才可以回帖 登錄 | 注冊
  • hpstep 1月前
    #inclib "urlmon"
    
    Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '單擊
       Dim Ret As HRESULT
       Ret = URLDownloadToFile(NULL, "https://www.baidu.com/img/baidu_jgylogo3.gif", "C:\2.gif", NULL, NULL)
       IF Ret = S_OK Then
          AfxMsg "下載成功"
       Else
          AfxMsg str(Ret)
       End If
    End Sub


    或者直接引用lib庫,也行 


  • hpstep 1月前
    FUNCTION MyURLDownloadToFile(byval pCaller as LPUNKNOWN, byval szURL as LPCWSTR, byval szFileName as LPCWSTR, byval dwReserved as DWORD, byval lpfnCB as LPBINDSTATUSCALLBACK) as HRESULT
       DIM AS ANY PTR pLib = DyLibLoad("urlmon.dll")
       IF pLib = NULL THEN EXIT FUNCTION
       DIM pURLDownloadToFile AS FUNCTION(BYVAL pCaller AS LPUNKNOWN, BYVAL szURL AS LPCWSTR, BYVAL szFileName AS LPCWSTR, BYVAL dwReserved AS DWORD, BYVAL lpfnCB AS LPBINDSTATUSCALLBACK) As HRESULT
       pURLDownloadToFile = DyLibSymbol(pLib, "URLDownloadToFileW")
       IF pURLDownloadToFile THEN FUNCTION = pURLDownloadToFile(pCaller, szURL, szFileName, dwReserved, lpfnCB)
       DyLibFree(pLib)
    END FUNCTION
    
    Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '單擊
       IF MyURLDownloadToFile(NULL, "https://www.baidu.com/img/baidu_jgylogo3.gif", "C:\1.gif", NULL, NULL) = S_OK Then
          AfxMsg "下載成功"
       End If
    End Sub


    只能動態調用了  

  •   勇芳 1月前

    經查,URLDownloadToFile ...

    舊 API ,目前沒想到解決方法

返回
聯系勇芳
我要免费赚钱网