如何使用URLDownloadToFile

chuxianbing 8月前 1220

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

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

最新回復 (3)
    您需要登錄后才可以回帖 登錄 | 注冊
  • hpstep 8月前
    #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 8月前
    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


    只能動態調用了  

  •   勇芳 8月前

    經查,URLDownloadToFile ...

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

返回
聯系勇芳
我要免费赚钱网 排列五最易中奖方法 深圳风采理发店电话 美国主要股票指数 北京快三计划精准版 江苏十一选五走势图预测 安徽11选518113不错 股票分析师需要考证吗 山东11走势图一定牛 急速赛车3 股票涨跌的原理是什么带你了解股票涨跌的真相