问题: 新手问题：如何从internet上下载文件？请高手忙里偷闲指点一下！！ ( 积分: 100 )
分类: Internet/TCPIP
来自: xiaoren2000, 时间: 2005-08-05 0:02:00, ID: 3156873
一个幼稚的问题：知道一个文件的地址，如何把它下载下来。不是直接的地址。举个例子吧
如一个bt种子文件的地址：http://dl2.www2.btchina.net/download.php?s=3e38bc1ff1a20063&attachmentid=504611。我做了个简单的下载，但是下在到的种子文件不能用。清高手指点。无需界面，只要有代码就好。
来自: 无泪, 时间: 2005-08-05 8:35:12, ID: 3156983
用HTTP从网站下载文件
方法一，用IdHttp：
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
fs := TFileStream.Create('c:/aaa.htm', fmCreate);
IdHTTP1.Get('http://www.abc.com/aaa.shtml', fs);
fs.Free;
end;
方法二：
uses
UrlMon
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile(edit1.Text, edit2.Text) then
ShowMessage('下载成功')
else ShowMessage('下载失败');
end;
来自: xiaoren2000, 时间: 2005-08-05 20:28:06, ID: 3158026
还是无泪好啊！我试试阿。
来自: crazycock, 时间: 2005-08-05 20:37:11, ID: 3158030
晕～竟然还有UrlDownloadToFile这个函数，Delphi真是体贴到家了。
来自: xiaoren2000, 时间: 2005-08-05 20:40:14, ID: 3158034
无泪阿，刚才试了试，还是不行啊，你能不能随便找个地址，用下试试。
就这个吧：http://nnv.dl1.btchina.net/download.php?s=65e6fc4e9ec6ec22&attachmentid=504951，你看看能不能下载，我试过，下载后的种子文件不能用。你的这个代码，可能对直接下载地址好用？麻烦指教，县谢谢阿！！
来自: crazycock, 时间: 2005-08-05 20:42:06, ID: 3158035
请教一下无泪，这个UrlMon单元主要用在哪个方面的，只看出它是网络方面的，具体用到什么地方呢？
来自: 无泪, 时间: 2005-08-05 21:30:30, ID: 3158054
to xiaoren2000:
你的这个网址我已经下载下来了：
http://nnv.dl1.btchina.net/download.php?s=65e6fc4e9ec6ec22&attachmentid=504951
可是内容为：
“d8 您访问的页面不存在或禁止访问，现在重定向到 BT @ China 联盟搜索引擎首页... ”
你可以直接把这个连接拷贝到IE里面，它自动转道BT @ China 联盟上了！！！
！！
来自: 无泪, 时间: 2005-08-05 21:33:28, ID: 3158056
to crazycock
UrlMon单元我也说不太清楚
你可以对它点右键->find...
可以看到这个单元。
{*******************************************************}
{ }
{ Borland Delphi Runtime Library }
{ URL Moniker support interface unit }
{ }
{ Copyright (C) 1995-1998, Microsoft Corporation. }
{ All Rights Reserved. }
{ }
{ Obtained on behalf of Borland through: }
{ Joint Endeavour of Delphi Innovators (JEDI) }
{ http://www.delphi-jedi.org }
{ Translator: Rudolph Velthuis }
{ }
{*******************************************************}
来自: xiaoren2000, 时间: 2005-08-05 21:56:10, ID: 3158066
to 无泪：
你再试一下，你到bt网站：http://bt1.btchina.net/cnxp/ ，找个种子文件下载试一下。
我试过了，你的方法，还有idhttp,nmhttp,我都试过了，都不行啊。
来自: 无泪, 时间: 2005-08-05 22:25:58, ID: 3158075
to xiaoren2000
我知道原因了，那是你的那个网站限制的原因，
它不让你下载真正的文件，而是在内存中一个连接，然后自动打开BT下载工具，直接下载，
所以你下载不了这个文件了。
你试试这个：
“文件下载： 点下面立即下载Torrent文件. [下载电影] ”
http://down.bt990.com/torrent/2005/8/5/2005852126610.torrent
这个连接才是真正的种子文件。
你下载后保存成.torrent，然后直接点击这个文件就可以自动打开BT下载了。
edit1.text中写http://down.bt990.com/torrent/2005/8/5/2005852126610.torrent
edit2.text中写c:/1.torrent
这样就可以在C盘下面有一个1文件的种子了！
//////////////////////////////////////////////////////////////////
回答的累，幸亏我也常用BT要不然真回答不了！
来自: xiaoren2000, 时间: 2005-08-05 23:47:43, ID: 3158111
无泪啊，你是高手阿，刚才看了你的资料，你的专家分这么高啊，恭喜你啊
你说的，我不是很清楚，你就拿这个网站说吧：http://bt1.btchina.net/cnxp/
我如何在程序里下载到他的bt种子。如何突破网站的限制。ok??
问题讨论没有结束 ...
