|
|
导航: |
论坛 -> 网络通讯
斑竹:liumazi,sephil |
|
作者: |
tzjwj (tzjwj) |
★☆☆☆☆ |
-
|
普通会员 |
|
2022/9/1 15:24:30 |
标题: |
哪位大神提供一下重定向地址获取的办法,谢谢 |
浏览:1196 |
|
加入我的收藏 |
楼主: |
如:http://files.eduu.com/down.php?id=57135 使用httpDownloadFile函数无法保存相应的文件名后缀 用浏览器打开后获得地址:http://files.eduuu.com/ohr/2009/05/18/173848_4c5b627393a42.ppt 请帮忙提供实例代码,谢谢
----------------------------------------------
- |
作者: |
|
2022/9/1 17:17:39 |
1楼: |
curl -I http://files.eduu.com/down.php?id=57135 HTTP/1.1 302 Moved Temporarily Server: nginx Date: Thu, 01 Sep 2022 09:17:20 GMT Content-Type: text/html; charset=UTF-8 Connection: keep-alive location: http://files.eduuu.com/ohr/2009/05/18/173848_4c5b627393a42.ppt
很简单的事啊.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
|
作者: |
|
2022/9/1 17:36:04 |
2楼: |
用head命令,直接读取 location值,然后再次访问下载。
----------------------------------------------
相信自己,若自己都不相信,那还有谁可信。
|
作者: |
|
2022/9/1 19:02:15 |
3楼: |
直接下: var Lstream: TMemoryStream := TMemoryStream.Create; Lstream.CopyFrom(NetHTTPClient1.Get('http://files.eduu.com/down.php?id=57135').ContentStream); Lstream.SaveToFile('d:\out.ppt'); Lstream.Free;
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。又不靠它 delphi 吃饭,怕甚?
|
作者: |
|
2022/9/1 23:01:46 |
4楼: |
@sail2000 你理解错了, 它是要抓原始文件名..
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
|
作者: |
tzjwj (tzjwj) |
★☆☆☆☆ |
-
|
普通会员 |
|
2022/9/2 9:19:30 |
5楼: |
@Tuesdays curl 指令虽然成功,但是无法将结果给delphi tempcommand:='cmd /c curl -I http://files.eduu.com/down.php?id=57135 >d:\temp.log'; winexec(PChar(tempcommand),0); tempstrings2.Clear; tempstrings2.LoadFromFile('d:\temp.log');//错误提示:另一个程序正在使用该文件 请问有啥办法?
----------------------------------------------
-
|
作者: |
|
2022/9/2 10:34:33 |
6楼: |
https://github.com/Mercury13/curl4delphi mormot 是不是也有 curl绑定?
----------------------------------------------
[alias] co = clone --recurse-submodules up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
|
作者: |
tzjwj (tzjwj) |
★☆☆☆☆ |
-
|
普通会员 |
|
2022/9/2 11:12:10 |
7楼: |
@keymark https://github.com/Mercury13/curl4delphi 下载后在delphi7环境下无法运行
----------------------------------------------
-
|
作者: |
|
2022/9/2 11:32:52 |
7楼: |
用indyhttp控件get网址,然后获取重定向网址。然后重新下载即可。 代码如下,亲测可以获取到重定向后的url procedure TForm1.Button1Click(Sender: TObject); var ss: string; begin idhttp1.HandleRedirects:= true; idhttp1.Request.UserAgent :='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)'; //不加useragent使用indy会返回404错误 idhttp1.Get('http://files.eduu.com/down.php?id=57135'); ss:= 'http://files.eduu.com/'+ idhttp1.Request.URL; showmessage(ss); //显示新的url
end;
----------------------------------------------
delphi
|
|