想下载个外国网站文件,1、想用URLDownloadToFile下载,
但不知怎么设referer
因为不设的话它做了防盗 下载总是只有几K。
有谁知道怎么设referer吗2、想用idhttp下载。
用了idhttp下载总是提示HTTP/1.1 403 Forbidden,外国网站需要用VPN代理软件,
用这个代理,用IE就能下载,但用讯雷却无法下载。
不知是不是因为idhttpt和讯雷相同无法接收到那个代理。有谁知道怎么idhttp走的是什么协议,能不能像IE那样接收到代理。3、或还有什么办法能下载吗?
但不知怎么设referer
因为不设的话它做了防盗 下载总是只有几K。
有谁知道怎么设referer吗2、想用idhttp下载。
用了idhttp下载总是提示HTTP/1.1 403 Forbidden,外国网站需要用VPN代理软件,
用这个代理,用IE就能下载,但用讯雷却无法下载。
不知是不是因为idhttpt和讯雷相同无法接收到那个代理。有谁知道怎么idhttp走的是什么协议,能不能像IE那样接收到代理。3、或还有什么办法能下载吗?
解决方案 »
- Delphi处理EXCEL时遇到#VALUE!
- 关于用socket在服务端与客户端建立连接
- 如何把datetimepicker中的年份定在2005年?还有如果用户输错,如何判断?
- 关于stringgrid的ROW的跳动!
- 如何取得另外一个进程当前焦点控件的文本内容?
- 如何让线条动起来
- 菜鸟问题,Extended值如何转化为Integer值?
- 怎样在webbrowser控件的openwindow2事件中得到当前需打开的网页地址??
- ------ 再次询问几个关于数值转化的问题 ------
- 问一下,我想让listview(带图标)的每一行颜色(底色)不同,如何做?
- delphi ADOdateset;ADOquery判断插入的值是否重复
- 用installshield打包bde的问题。
InternetConnect
HttpOpenRequest(...PAnsiChar(sReferer)..)
InternetSetOption
HttpSendRequest
InternetReadFile
...
InternetCloseHandle
搜索这些函数的使用,
use
WinInet;
http://www.overbyte.be
Function TFrm_AutoUpdate.DownFile(FileURL, FileSave: String): BOOLEAN;
Var
FileStream : TMemoryStream;
Begin
result := FALSE;
IdAntiFreeze1.OnlyWhenIdle := False;
Try
IdHTTP1.HandleRedirects := TRUE;
// Encode URL...
FileURL := IdHTTP1.URL.URLEncode (FileURL);
IdHTTP1.Disconnect;
FileStream := TMemoryStream.Create;
Try
// Download the file...
IdHTTP1.Get (FileURL, FileStream);
// Save the file...
FileStream.SaveToFile (FileSave);
result := TRUE;
Except
on E: Exception Do
End;
Finally
FileStream.Free;
End;
End;