救命!!!!!! webbrowser 问题 (200分)

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #1

delphi 的帮助上说在 twebbrowser的 onbeforenavigator2 事件中
改变参数 URL 可以重定向网页,可我在这个事件中改变 URL 怎么一
点用也没有啊??它该访问哪还是哪!
紧急求救>

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #2

试了一下，确实如此，关注

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #3

faint,这是不是delphi的bug啊，我怎么以前没
听说过，这会一用就碰到了

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #4

改用embeddedwb

 

山

山泉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #5

的得确如此 好像PostData 也有问题。正常登陆一个有检测用户form的asp
如login.asp 登陆窗，输入用户名和密码
好像postdata应该是 http://xx.xx/login？用户名=??
但是实际读出的postdata确是乱码。
url也好像不大对。这是什么问题？


procedure Tmain.BrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
URLadd:OleVariant;
s:WideString;
begin
URLadd:=URL;
s:='';
URLs.Text := URL;
httpmemo.Lines.Add('您现在访问的页面的URL是：'+URL);
s:=Flags;
httpmemo.Lines.Add('Flags: '+(s));

s:=TargetFrameName;
httpmemo.Lines.Add('TargetFrameName: '+ (s));
s:=PostData;
httpmemo.Lines.Add('PostData: '+ (s));
s:=Headers;
httpmemo.Lines.Add('Headers: '+(s));
URL:=URLadd+'/fjwdweb/index.htm';

end;
这是什么问题？

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #6

to dana
哪里有embeddedwb啊?

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #7

给个mail我发给你吧！

 

W

woodstock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-12

• #8

到
http://www.euromind.com/iedelphi/embeddedwb.htm
下载EmbeddedWb构件

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #9

dana,请发到 xeen@163.net
Thanks a lot

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #10

呵呵，大家试过了吗，用embeddedwb一样不行!
url改了也没用，真是见鬼了.

 

C

caomo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #11

embeddedwb我也想试试
cao_yg@263.net 谢谢！

 

B

bnulaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-14

• #12

to 山泉：如果method为get的话，参数是这样传出去的，用request.querystring取,url的
长度限为255
但如果mehod为post的话就不是这样，用request.form('xx') 取

to xeen:是不是改变url之后还得navigate一次呢？或者用redirect（如果有的话）
我只在VB下用过webbrowser,它有什么方法也忘了

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #13

可以轉個方向試試！


procedure Tmain.BrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if pos('kimo',url)>0 then // 如果 url 內含 kimo ，便轉向至 Yahoo
begin
(Sender as TWebBrowser).Navigate('http://www.yahoo.com');
end;
end;

試過了，可行。

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-19

• #14

多人接受答案了。