问一个关于webbrowser有点难度的问题,希望高手作答一下 ( 积分: 100 )

  • 主题发起人 主题发起人 zhuxd
  • 开始时间 开始时间
Z

zhuxd

Unregistered / Unconfirmed
GUEST, unregistred user!
[:)]
delphi中使用Twebbrowser控件,
怎么获取这个控件发送的信息?
如:
Content-Type= application/x-www-form-urlencoded
Host= arcwebdb.yokohama.hitachi.co.jp
Accept= text/html, */*
UserAgent= Mozilla/1.0
Proxy-Authorization= Basic Og==
Connection=
ContentEncoding=
ContentType=text/html; charset=iso-8859-1
ContentVersion=
Pragma=
cookie=
等一些的信息.

我用idhttp控件登陆一个网址,用get和post都无法登录,但用浏览器的形式就可以登录。
因此想问一下,到底浏览器向服务器发送了哪些信息。。。望高手出来指教。谢谢!!!
 
[:)]
delphi中使用Twebbrowser控件,
怎么获取这个控件发送的信息?
如:
Content-Type= application/x-www-form-urlencoded
Host= arcwebdb.yokohama.hitachi.co.jp
Accept= text/html, */*
UserAgent= Mozilla/1.0
Proxy-Authorization= Basic Og==
Connection=
ContentEncoding=
ContentType=text/html; charset=iso-8859-1
ContentVersion=
Pragma=
cookie=
等一些的信息.

我用idhttp控件登陆一个网址,用get和post都无法登录,但用浏览器的形式就可以登录。
因此想问一下,到底浏览器向服务器发送了哪些信息。。。望高手出来指教。谢谢!!!
 
1、http.Request.Referer,有的网站会检查你的你的来源,也就是你是从哪个网站链接过来的,如
http.Request.Referer := 'http://www.Google.com';

2、 http.Port := 80;
http.Request.ContentType := 'application/x-www-form-urlencoded';
 
我也碰到过类似的问题。最终也是无法解决。njxdh,所说的方法我试过的了。但都没有用。不知道网站是怎么判断得出是不是浏览器访问他的网站的。
 
楼主,可不可以把登陆的代码放上来,我也在搞这个问题。谢谢!
 
procedure TForm1.Button1Click(Sender: TObject);
const
URL1='http://arcwebdb.yokohama.hitachi.co.jp/webdspovs/login.do';
var
P:TStringList;
begin
P:=TStringList.Create;
P.Clear;
memo1.Lines.Clear;
try
P.Add('userid=zhu');
P.Add('passwd=k3347');
P.Add('ipaddress=170.95.82.3');
Idhttp1.Request.UserAgent:='Mozilla/3.0 (compatible; MSIE 5.00; Windows 98)';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post(URL1,P);
Memo1.Lines.Add('Login ok '+idhttp1.Response.ResponseText);
Except
Memo1.Lines.Add('Login error '+idhttp1.Response.ResponseText);
End;
end;

注:其中URL1地址为公司内部局域网网址,外部的用户访问不了。

老是提示 “HTTP/1.1 403 Forbidden”错误,望高手能够帮帮忙。谢谢了。
 
楼上的估计是没有设置代理
 
代理我设置了,不行....
访问其他的网站没有问题,就是这个不行,好象是对方做了什么限制之类.(以前都可以)
 
这是因为链接的地址被重定向了。加入这句试试
IdHTTP1.HandleRedirects:=True;
 
试了,也不行.
 
后退
顶部