TWebBrowser - 达人(在海水中游泳)

2005/09/14 | TWebBrowser
类别(语言类学习笔记) | 评论(0) | 阅读(570) | 发表于 00:29: ----------------------------------------------
like
作者： sephil (NA - Always) ★☆☆☆☆ 男的盒子中级会员 -
2003-9-28 18:20:29
1楼： A、用TWebBrowser的QueryStatusWB方法。
　if(QueryStatusWB(OLECMDID_COPY) = OLECMDF_ENABLED) or OLECMDF_SUPPORTED) then ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);

B、用IHTMLDocument2的QueryCommandEnabled方法。
var
　Doc: IHTMLDocument2;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
　if Doc.QueryCommandEnabled('Copy') then Doc.ExecCommand('Copy',false,EmptyParam);
end;

其他的诸如Cut\Paste\SelectAll是一样的

----------------------------------------------
My BLOG - Sephil的自由空间
My BLOG - Sephil的技术天地

Copyright ? 1998-2005 NAILY Soft of Sephil
作者： sephil (NA - Always) ★☆☆☆☆ 男的盒子中级会员 -
2003-9-28 18:22:36
2楼：关于回车不能提交表单
可以这样

A、用SendKeys函数向WebBrowser发送回车键
在Delphi光盘上的Info\Extras\SendKeys目录下有一个SndKey32.pas文件，其中包含了两个函数SendKeys和AppActivate，我们可以用SendKeys函数来向WebBrowser发送回车键，我现在用的就是这个方法，使用很简单，在WebBrowser获得焦点的情况下（不要求WebBrowser所包含的文档获得焦点），用一条语句即可：

　　　Sendkeys('~',true);// press RETURN key

　　　SendKeys函数的详细参数说明等，均包含在SndKey32.pas文件中。

　　B、在OnMessage事件中将接受到的键盘消息传递给WebBrowser。

　　　procedure TForm1.ApplicationEvents1Message(var Msg: TMsg; var Handled: Boolean);
　　　{fixes the malfunction of some keys within webbrowser control}
　　　const
　　　　StdKeys = [VK_TAB, VK_RETURN]; { standard keys }
　　　　ExtKeys = [VK_DELETE, VK_BACK, VK_LEFT, VK_RIGHT]; { extended keys }
　　　　fExtended = $01000000; { extended key flag }
　　　begin
　　　　Handled := False;
　　　　with Msg do
　　　　if ((Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST)) and
　　　　　((wParam in StdKeys) or
　　　　　{$IFDEF VER120}(GetKeyState(VK_CONTROL) < 0) or {$ENDIF}
　　　　　(wParam in ExtKeys) and
　　　　　((lParam and fExtended) = fExtended)) then
　　　　try
　　　　　if IsChild(Handle, hWnd) then { handles all browser related messages }
　　　　　begin
　　　　　　with {$IFDEF VER120}Application_{$ELSE}Application{$ENDIF} as
　　　　　　　　IOleInPlaceActiveObject do
　　　　　　　Handled := TranslateAccelerator(Msg) = S_OK;
　　　　　　　if not Handled then
　　　　　　　begin
　　　　　　　　Handled := True;
　　　　　　　　TranslateMessage(Msg);
　　　　　　　　DispatchMessage(Msg);
　　　　　　　end;
　　　　　　　end;
　　　　except
　　　　end;
　　　end; // MessageHandler

----------------------------------------------
My BLOG - Sephil的自由空间
My BLOG - Sephil的技术天地

Copyright ? 1998-2005 NAILY Soft of Sephil
作者： wealsh (wealsh) ▲▲△△△ 男的盒子活跃会员 -
2003-9-29 14:18:43
3楼： A、用TWebBrowser的QueryStatusWB方法。
　if(QueryStatusWB(OLECMDID_COPY) = OLECMDF_ENABLED) or OLECMDF_SUPPORTED) then ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);

　B、在OnMessage事件中将接受到的键盘消息传递给WebBrowser。

代码应该放在哪里啊？twebbrowser 没有 QueryStatusWB 、OnMessage事件的？

----------------------------------------------
like
作者： bios (阿贡) ★☆☆☆☆ 男的盒子中级会员 -
2003-10-4 11:46:23
4楼： to:： sephil (sephil) ★
嘿大哥我的WIN2003密码框帮我解决了吗？

----------------------------------------------

作者： bios (阿贡) ★☆☆☆☆ 男的盒子中级会员 -
2003-10-4 13:03:41
5楼：在Delphi程序中应用IE浏览器控件
mysofts.51.net 2001-8-20 软件自做

　　大概大家还记得Delphi的范例程序中的那个浏览器的例子吧。在那个例子中，利用控件
THttp的属性和方法制作了一个浏览器。该例子用于理解THttp控件的使用方法，确实不错。但
很少有人会用它作为一个真正的浏览器，原因很简单，功能太有限了，不支持Frame，不支持
Script脚本语言，不能以本地文件方式查看HTML文件等等。大部分用户在使用
Internet Explorer或Netscape Navigator；我们程序员也乐意使用现成的浏览器，在需要
使用浏览器时，就在程序中通过WinExec或CreateProcess等方法调用外部浏览器让用户使用。
这种方法确实挺省事的，但总让笔者有点不甘心，把程序控制权让给其它外部程序总让自己
很感到麻烦，尤其当应用软件的使用者的计算机使用水平不是很高时。如果能有一个浏览器
控件，就可把浏览器嵌入到自己的程序中，那应该挺不错的。
　　如果你的软件的外部环境是WIN95+IE或WIN98(这样的软件使用率还很高的)，那样在系统中
就已经有了一个IE浏览器控件可以使用了，也许是你长时间没有发觉吧，别浪费资源了，
拿来使用吧。当系统中已经安装了IE3.X或IE4.X时，IE浏览器控件已经注册到系统中了，请
运行Regedit，用“编辑”菜单下的“查找”功能，查找“Shell.Explorer”键名，你会发现
IE控件已经作为ActiveX控件注册在系统中了，这样就我们可以在Delphi中使用该控件了。

一、在Delphi中引入IE浏览器控件

　　由于IE浏览器控件需要提供显示功能才能使用，所以不能在程序中用CreateOleObject取得
一个实例后直接使用其属性和方法，否则程序在运行时会引起错误；这时需要用Delphi中提供的
“Import ActiveX Control”功能，操作方法见下所述。
　　在“Components”菜单中，调用“Import ActiveX Control”功能，在Registered Controls
(注册控件)列表中选择“Microsoft Internet Controls(Version1.1)”，下方的提示栏中显示出
其路径为C:\PWin98\System\SHDOCVW.DLL，在Class Names(类型列表)中列出了可注册的三个控件：
TWebBrowser_V1、TWebBrowser和TShellFolderViewOC，分别为IE3浏览器控件、IE4浏览器控件和
“Microsoft外壳文件夹查看路由器”控件。单击Install进行安装。安装完成后，在“ActiveX”
控件栏中，将增加三个控件，分别为TWebBrowser_V1、TWebBrowser和TShellFolderViewOC；在
Delphi的Imports目录下，将创建一个文件SHDocVw_TLB.PAS，其中有这三个控件的包装细节，当然
含控件的属性和方法说明了，它可以作为我们使用控件的参考资料。

二、在Delphi程序中使用IE浏览器控件

　　以TWebBrowser(IE4浏览器控件)为例子。
TWebBrowser的常见属性和方法主要有：
GoBack：方法，后退到上一个页面。
GoForward：方法，前进到下一个页面。
GoHome：方法，调用默认的主页页面，该页面在IE的选项中设定。
GoSearch：方法，调用默认的搜索页面，该页面在IE的选项中设定。
Navigate(const URL: WideString; var Flags, TargetFrameName, PostData,
Headers: OleVariant)：方法，调用指定页面，具体参数如下：
URL：指定页面的URL。 Flags：Word类型，作用还不清楚，可设为0。
TargetFrameName：WideString，打开页面所在的Frame，为空字符串时在当前的
Frame中打开；TargetFrameName指定的Frame存在时在Frame中打开；
TargetFrameName指定的Frame不存在时则新建一个窗口打开，此时就相当
于调用外部的IE浏览器了。
PostData：boolean，是否允许发送数据。
Headers：WideString，要发送的URL请求的头部数据。
Refresh：方法，刷新当前页面。
Stop：方法，停止调用或打开当前页面。
LocationName：属性(WideString)，当前位置的名称。
LocationURL：属性(WideString)，当前位置的URL。
Busy: 属性(Boolean)，是否正忙。
Visible: 属性(Boolean)，浏览器窗口是否可见。
(以下属性为在TWebBrowser新增，TWebBrowser_V1中没有，其作用有待探索)
StatusBar: 属性(Boolean)，是否显示状态栏。
StatusText: 属性(WideString)，状态栏内容。
ToolBar: 属性(SYSINT)，工具栏中的内容。
MenuBar: 属性(Boolean)，是否显示菜单条。
FullScreen: 属性(Boolean)，是否全屏显示。
Offline: 属性(Boolean)，是否脱机浏览。
AddressBar: 属性(Boolean)，是否显示地址栏。

TWebBrowser的常见事件主要有：
OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
　　在状态栏提示信息变化时发生，参数Text为当前状态栏提示信息，我们可以根据该信息
　来更新我们自己的状态栏提示信息或处理其它的事务．
OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object;
　　在打开页面的进度变化时发生，参数Progress为当前进度，ProgressMax为总进度，我们
　可以根据这两个参数来更新我们自己的状态栏提示信息或处理其它的事务．
OnCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
　　当执行新的命令时发生，Command为命令标识，Enable为是否允许执行该命令．
OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
　　在页面的标题发生变化时发生，Text为当前标题．
OnPropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;
　　在页面的属性发生变化时发生，Property_为属性名称
OnDownloadComplete: TNotifyEvent
　　在下载页面完成后发生．
OnDownloadBegin: TNotifyEvent
　　在下载页面开始前发生．

三、在Delphi程序中应用IE浏览器控件的两个例子

（１）制作自己的帮助系统
　　我们利用IE浏览器控件为用户制作了一个帮助系统，帮助文件由多个HTML文件组成，一个主题对应一个
HTML文件(Topic.HTM)，每个主题下的项目对应HTML文件中的一个标签(#Item)。这样在我们的系统中，就不
必再调用IE浏览器或WinHelp程序来为用户提供帮助了。相信大家知道HTML帮助文件与传统的HLP帮助文件相
比的优势所在吧。
　　在下面例子中，演示了TWebBrowser(IE4浏览器控件)的Navigate方法的使用方法。请注意程序
中的注释。(下面为程序的主要片段)。

{根据主题和项目调用帮助文件}
procedure ShowHelp( HelpTopic,HelpItem : String );
var
TargetFrameName,PostData,Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := ';{指定Frame的空字符串时,则在当前Frame中打开帮助文件}
PostData := false;{不发送数据}
Heads := ';{Header信息为空}
Flags := 0;{Flags设为0}
URL := HelpTopic + '.HTM#'+HelpItem;{帮助信息的URL}
with formHelp.webbrowser do{在帮助窗口中的IE浏览器控件中显示帮助信息}
begin
navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示帮助信息}
end;
end;

（２）显示一个GIF动画

　　假如你还没有一个适合的动画显示控件，不妨试用一下下面方法．
procedure ShowGIF( GIFFileName : String );
var
TargetFrameName,PostData,Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := ';{指定Frame的空字符串时,则在当前Frame中打开动画文件}
PostData := false;{不发送数据}
Heads := ';{Header信息为空}
Flags := 0;{Flags设为0}
URL := GIFFileName;
with formGIF.webbrowser do{在指定窗口中的IE浏览器控件中显示动画}
begin
navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件}
end;
end;

以上程序在PWIN98+Delphi3.0下调试通过。
(作者：王发军 wangfajun@163.net wangfajun.163.net)

----------------------------------------------

作者： bios (阿贡) ★☆☆☆☆ 男的盒子中级会员 -
2003-10-4 13:06:00
6楼： procedure TMainForm.FindAddress;
var
Flags: OLEVariant;

begin
Flags := 0;
UpdateCombo := True;
WebBrowser1.Navigate(WideString(Urls.Text), Flags, Flags, Flags, Flags);
end;

procedure TMainForm.About1Click(Sender: TObject);
begin
ShowAboutBox;
end;

procedure TMainForm.StopClick(Sender: TObject);
begin
WebBrowser1.Stop;
end;

procedure TMainForm.URLsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
begin
FindAddress;
end;
end;

procedure TMainForm.URLsClick(Sender: TObject);
begin
FindAddress;
end;

procedure TMainForm.LinksClick(Sender: TObject);
begin
if (Sender as TToolButton).Hint = ' then Exit;
URLs.Text := (Sender as TToolButton).Hint;
FindAddress;
end;

procedure TMainForm.RefreshClick(Sender: TObject);
begin
FindAddress;
end;

procedure TMainForm.BackClick(Sender: TObject);
begin
URLs.Text := HistoryList[HistoryIndex - 1];
FindAddress;
end;

procedure TMainForm.ForwardClick(Sender: TObject);
begin
URLs.Text := HistoryList[HistoryIndex + 1];
FindAddress;
end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Shift = [ssAlt] then
if (Key = VK_RIGHT) and ForwardBtn.Enabled then
ForwardBtn.Click
else if (Key = VK_LEFT) and BackBtn.Enabled then
BackBtn.Click;
end;

procedure TMainForm.Toolbar3Click(Sender: TObject);
begin
with Sender as TMenuItem do
begin
Checked := not Checked;
Coolbar1.Visible := Checked;
end;
end;

procedure TMainForm.Statusbar2Click(Sender: TObject);
begin
with Sender as TMenuItem do
begin
Checked := not Checked;
StatusBar1.Visible := Checked;
end;
end;

procedure TMainForm.HomePageRequest(var Message: TMessage);
begin
URLs.Text := 'http://www.borland.com';
FindAddress;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
HistoryIndex := -1;
HistoryList := TStringList.Create;
{ Load the animation from the AVI file in the startup directory. An
alternative to this would be to create a .RES file including the cool.avi
as an AVI resource and use the ResName or ResId properties of Animate1 to
point to it. }
Animate1.FileName := ExtractFilePath(Application.ExeName) + 'cool.avi';
{ Find the home page - needs to be posted because HTML control hasn't been
registered yet. }
PostMessage(Handle, CM_HOMEPAGEREQUEST, 0, 0);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
HistoryList.Free;
end;

procedure TMainForm.BackActionUpdate(Sender: TObject);
begin
if HistoryList.Count > 0 then
BackAction.Enabled := HistoryIndex > 0
else
BackAction.Enabled := False;
end;

procedure TMainForm.ForwardActionUpdate(Sender: TObject);
begin
if HistoryList.Count > 0 then
ForwardAction.Enabled := HistoryIndex < HistoryList.Count - 1
else
ForwardAction.Enabled := False;
end;

procedure TMainForm.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
NewIndex: Integer;
begin
NewIndex := HistoryList.IndexOf(URL);
if NewIndex = -1 then
begin
{ Remove entries in HistoryList between last address and current address }
if (HistoryIndex >= 0) and (HistoryIndex < HistoryList.Count - 1) then
while HistoryList.Count > HistoryIndex do
HistoryList.Delete(HistoryIndex);
HistoryIndex := HistoryList.Add(URL);
end
else
HistoryIndex := NewIndex;
if UpdateCombo then
begin
UpdateCombo := False;
NewIndex := URLs.Items.IndexOf(URL);
if NewIndex = -1 then
URLs.Items.Insert(0, URL)
else
URLs.Items.Move(NewIndex, 0);
end;
URLs.Text := URL;
Statusbar1.Panels[0].Text := URL;
end;

procedure TMainForm.WebBrowser1DownloadBegin(Sender: TObject);
begin
{ Turn the stop button dark red }
StopBtn.ImageIndex := 4;
{ Play the avi from the first frame indefinitely }
Animate1.Active := True;
end;

procedure TMainForm.WebBrowser1DownloadComplete(Sender: TObject);
begin
{ Turn the stop button grey }
StopBtn.ImageIndex := 2;
{ Stop the avi and show the first frame }
Animate1.Active := False;
end;

end.

----------------------------------------------; 0

http://wwle.5d.cn/

我有一对翅膀，不是用来飞翔，而是用来煮汤。

评论Comments