新手(200分,全部奉献上)请教二个问题:1.TwebBrowser同时弹出两个广告窗口,但有一个不能显示(仅显窗体);2.在Delphi的HTTP控件编程中,

  • 主题发起人 海之魂
  • 开始时间

海之魂

Unregistered / Unconfirmed
GUEST, unregistred user!
新手(200分,全部奉献上)请教二个问题:1.TwebBrowser同时弹出两个广告窗口,但有一个不能显示(仅显窗体);2.在Delphi的HTTP控件编程中,如访问利用session控制权制的网页?(200分)<br />问题 1.代码如示,百思不得其解!!
unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.sohu.com');
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
newapp:TForm1;
begin
newapp:=TForm1.Create(nil);
ppdisp :=newapp.WebBrowser1.Application;
newapp.Visible :=true;
end;

end.
以上程序当访问有两个弹出小窗口的网页时,一个正常显示,另一个仅出现了窗体,但
不见了TWebBrowser控件,窗体为灰色!!
本人多思不得其解,请指教??

问题2.在DelPhi编程中,如何利用HTTP控件访问利用session控制权限的网页,就是说我
提交了用户名和密码以后,下次我如何告诉WEB页面,关于我上次的session信息??
 
[:(!]呵呵,没人能回答吗?急急
 
那个窗口其实是显示的
你把你的form弄成满屏,然后运行看看
嘿嘿

 
不行啊,我把那个窗口弄到最大也不行啊,不信你试试
 
没有人知道吗,我这二百分给谁啊,呵呵
 
GET /qqq.asp HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)
Host: 192.168.0.1
Connection: Keep-Alive

HTTP/1.1 200 OK
Server: Microsoft-IIS/5.0
Date: Tue, 27 Aug 2002 11:20:48 GMT
Pragma: no-cache
Content-Length: 54
Content-Type: text/html
Expires: Tue, 01 Jan 1980 00:00:00 GMT
Set-Cookie: ASPSESSIONIDGQGGGWDU=IADHGNHBJJDKJABELFMFMEHN; path=/
Cache-control: no-cache

IsNullFalse&lt;BR&gt;VarType0&lt;BR&gt;IsNumericTrue&lt;BR&gt;False&lt;BR&gt;

GET /qqq.asp HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)
Host: 192.168.0.1
Connection: Keep-Alive
Cookie: ASPSESSIONIDGQGGGWDU=IADHGNHBJJDKJABELFMFMEHN

HTTP/1.1 200 OK
Server: Microsoft-IIS/5.0
Date: Tue, 27 Aug 2002 11:26:35 GMT
Pragma: no-cache
Content-Length: 54
Content-Type: text/html
Expires: Tue, 01 Jan 1980 00:00:00 GMT
Cache-control: no-cache

IsNullFalse&lt;BR&gt;VarType0&lt;BR&gt;IsNumericTrue&lt;BR&gt;False&lt;BR&gt;

这是对同一个url发的2次请求
注意第2次get比第一次get多了一行:Cookie: ASPSESSIONIDGQGGGWDU=IADHGNHBJJDKJABELFMFMEHN
就是说只要不带这一行,web server就会再次分配一个session
Set-Cookie: ASPSESSIONIDGQGGGWDU=IADHGNHBJJDKJABELFMFMEHN; path=/
反之,就没有Set-Cookie: ASPSESSIONIDGQGGGWDU=IADHGNHBJJDKJABELFMFMEHN; path=/
 
关注! 帮你提前!
 
多人接受答案了。
 
顶部