使用TIdHTTP(indy)的get函数获取asp网页内容时,如果URL中有中文参数,无法获取内容,为什么? ( 积分: 50 )

  • 主题发起人 主题发起人 huangwei8123
  • 开始时间 开始时间
H

huangwei8123

Unregistered / Unconfirmed
GUEST, unregistred user!
问题如上,请问有什么解决的办法吗?
delphi版本7.0,自带INDY控件。

//-------------------------------------------------------------
在网页地址栏中输入:http://p1.930t.com/FindLRC.asp?LRCFile=倩女幽魂 - 张国荣.lrc可以产生结果
但使用下面代码就不行了~
不过当参数中没有中文的时候又可以了。

procedure TForm1.Button1Click(Sender: TObject);
var
GetURL : wideString;
Temp : String;
begin
GetURL := 'http://p1.930t.com/FindLRC.asp?LRCFile=倩女幽魂 - 张国荣.lrc';
//GetURL := 'http://p1.930t.com/FindLRC.asp?LRCFile=abc.lrc';
try
Temp := IdHTTP1.get(GetURL);//获取LRC 文件-------
Memo1.Lines.Add(Temp)
except
ShowMessage('not get File.....');
end;
end;
 
你要先把url decode encode
 
没有用过这个decode encode ,请问是怎么用的呢?给你例子,感激不尽~
 
先uses
HTTPApp单元
然后调用
HTTPEncode函数

uses HTTPApp;

procedure TForm1.Button1Click(Sender: TObject);
var
GetURL : wideString;
Temp : String;
begin
GetURL := 'http://p1.930t.com/FindLRC.asp?LRCFile=倩女幽魂 - 张国荣.lrc';
//GetURL := 'http://p1.930t.com/FindLRC.asp?LRCFile=abc.lrc';
try
Temp := IdHTTP1.get(HTTPEncode(GetURL));//获取LRC 文件-------
Memo1.Lines.Add(Temp)
except
ShowMessage('not get File.....');
end;
end;
 
在iduri单元
 
前一段时间忙其他的事情。
to:LeeChange 提示: 'HTTP/1.1 404 not Found'. 但是我在IE可以取到内容。没有加HTTPEncode之前是到了那句IdHTTP1.get就定在那里了。
to:linuxping iduri没有。
 
这个问题就差那么一点点了~~~~,急用~
 
顶上来~
 
我回复过一个帖子,你看看,和你的问题类是,估计就是汉字utf-8编码问题:http://www.delphibbs.com/delphibbs/dispq.asp?lid=3801719
 
如果你想花最少的钱学习流行的计算机技术,本人低价提供
计算机专业高清晰 视 频 教 程,所有教程由业内名家讲解,物超所值,
所有光盘4元/张,特快专递全国三天内到货.
联系方式:手 机:1 3 5 76145612(手机联系佳) Q Q:108410943
E-mail:ncncldjjg@126.com
1、Oracle9iOCP(Oracle认证专家DBA)视频教程(23CD)
2、SQL语言、数据挖掘、SQLServer2000视频教程(6CD)
3、计算机网络原理视频教程(4CD)
4、计算机实用组网技术视频教程(3CD)
5、MCSE(微软认证系统工程师)认证视频教程(11CD)
6、windows2003即学即会视频教程(6CD)
7、J2EE Web程序开发定向班/Java就业班视频教程
(java基础jsp核心技术UML设计)(13CD)
8、J2EE基础高级案例分析视频教程(9CD)
9、马士兵J2SE入门与精通(含坦克大战、BBS实例)视频教程(6CD)
10、java语言深入详解视频教程(12CD)
11、java技术从入门到精通视频教程(21CD)
12、javascript全接触视频教程(13CD)
13、各类网站源程序(9CD)
14、unix原理视频教程(3CD)
15、Linux软件开发工程师(C语言)视频教程(4CD)
16、Linux配置、管理、优化实战工程师视频教程(8CD)
17、Linux内核编程视频教程(11CD)
18、C语言详解视频教程(2CD)
19、VC++6.0(MFC)开发技术术详解视频教程(6CD)
20、ASP.NET中文视频教程(3CD)
21、洪恩C#入门多媒体教程(1CD)
22、XML技术视频教程(2CD)
23、操作系统视频教程(3CD)
24、网络技术基础视频教程(2CD)
25、数据结构视频教程(5CD)
26、清华大学计算机专业多媒体教程(数据结构、汇编、编译原理等)(13CD)
27、大学数学[离散数学线性代数概率与数理统计微积分]视频教程(22CD)
28、LearnKey Asp.Net (老外用英语讲课)(13CD)
29、LearnKey Asp.Net Webservice(老外用英语讲课)(5CD)
30、AppDev Asp.Net2.0 UsingC# (老外用英语讲课)(1CD)
31、APPDev .Net Framework(老外用英语讲课)(2CD)
32、林清安pro/e2001(野火版)视频教程(18CD)
33、深圳大学3D设计视频教程(4CD)
34、3DMAX建模视频教程(老外用英语讲课)(6CD)
35、3DMAX纹理与贴图材质灯光视频教程(老外用英语讲课)(5CD)
36、3DMAX格式500个常用模型库(4CD)
37、lightscape基础入门视频教程(2CD)
38、聚光制造(lightscape3.2入门与精通视频教程)(4CD)
39、coreldraw12中文版入门与精通swf格式视频教程(2CD)
 
上面这个怎么删掉阿~真讨厌......我还以为有人回答我的问题了
 
下面两种均可。

GetURL := 'http://p1.930t.com/FindLRC.asp?LRCFile='+httpencode('倩女幽魂 - 张国荣.lrc'); // 需USES HTTPApp;
GetURL:=StringReplace('http://p1.930t.com/FindLRC.asp?LRCFile=倩女幽魂 - 张国荣.lrc',' ','%20',[rfReplaceAll]);
 
TIdURI.ParamsEncode() 类函数 // uses IdURI
 
使用那些函数还是没有用,提示'HTTP/1.1 404 not Found'. 我用TWebBrowser搞定了,不过还是谢谢DFW们...
 
后退
顶部