求调用IE下载对话框实现mp3文件下载的方法,不是你想象中的简单 ( 积分: 100 )

W

webyjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #1

求调用IE下载对话框实现mp3文件下载的方法,不是你想象中的简单<br>比如有一个<br>button1.caption=http://www.xxx.com/1.mp3<br>如何写click代码,可以实现单击后跳出IE的下载对话框(询问下载文件名,保存的目录那个对话框),用户指定一个名字后就自动下载到所选择的目录呢<br><br>我用shellexecute下载mp3时,因为mp3文件和Windows media player关联了,所以每次都会使用WMP打开这个mp3文件,而不是下载.<br><br>我曾经尝试用一种笨方法进行下载:执行shellexecute前删掉mp3的关联,shellexecute执行后再恢复mp3的关联,但是效果不是太好<br><br>请高手大侠帮帮忙.

 

W

webyjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #2

求调用IE下载对话框实现mp3文件下载的方法,不是你想象中的简单<br>比如有一个<br>button1.caption=http://www.xxx.com/1.mp3<br>如何写click代码,可以实现单击后跳出IE的下载对话框(询问下载文件名,保存的目录那个对话框),用户指定一个名字后就自动下载到所选择的目录呢<br><br>我用shellexecute下载mp3时,因为mp3文件和Windows media player关联了,所以每次都会使用WMP打开这个mp3文件,而不是下载.<br><br>我曾经尝试用一种笨方法进行下载:执行shellexecute前删掉mp3的关联,shellexecute执行后再恢复mp3的关联,但是效果不是太好<br><br>请高手大侠帮帮忙.

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #3

用shellexecute下载MP3！！！<br>首先要赞扬一下楼主的创意，但是下载MP3不是几个API函数就可以完成的。

 

X

xiaoxinya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #4

楼上的解决问题就是解决问题。。。没事别进行人身&quot;攻击&quot;<br>API的话～最简单的就是~两句话下载播放MP3<br>Urlmon.pas单元的<br>URLDownloadToFile<br>

代码:

<br>uses<br> &nbsp;ShellAPI,UrlMon;<br>begin<br> &nbsp;if URLDownloadToFile(nil, 'http://www.xxxx.com/xxx.mp3', 'c:/xxx.mp3', 0, nil) = S_OK then<br> &nbsp;begin <br> &nbsp; &nbsp;ShellExecute(0,'open','C:/xxx.mp3',nil,nil,0);<br> &nbsp;end;<br>end;<br>

<br>使用方便～<br>不过～URLDownloadToFile函数不稳定(一般都可以达到要求～)<br>不喜欢的话可以使用WinInet.pas中的函数<br>网上代码好多。。。自己找一下好了

 

W

webyjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #5

可能我问得不是很清楚,不好意思,我重新修改了贴子,现在应该理解我的意思了吧

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #6

楼主，其实我没那个意思的，可能是我表达得不好引起大家误会的，如果你觉得我的话冒犯了你的话，我可以给你赔个不是。<br>其实我是真的以为你想要用一个ShellExecute就完成下载MP3的工作，我才说你有创意的。<br>另，如果xiaoxinya说的都不对的话，我也不清楚你要达到什么样的下载目的了，说清楚吧。

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #7

如果你是想要打开IE的下载窗口的话可以这样<br> &nbsp;ShellExecute(Handle,'Open','Iexplore.exe',<br> &nbsp;'http://www.xxx.com/xxx.MP3',nil,SW_SHOWNORMAL);<br>放心，已经测试通过了。

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-30

• #8

改一下：<br> &nbsp;ShellExecute(Handle,PChar('Open'),PChar('Iexplore.exe'),<br> &nbsp;PChar('http://www.xxx.com/xxx.MP3'),nil,SW_SHOWNORMAL);<br>这是传参数的方法，不用直接打开的方法就不会启动MP3的关联程序了，其实也挺简单的。