WebBrowser技巧大全

//webbrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
//webbrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER);
//WebBrowser1.ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DODEFAULT);
则此命令不可用）。
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn:
OleVariant); overload;
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
这几句话放在主窗口所有语句之后，“end.”之前。
--------------------------------------------------------------------------------------------------------
而在实际应用中，使用后几种方法调用时，由于我们很少用到后面几个参数，但函数声明又要求是变量参数，一般的做法如下：
var
t:OleVariant;
begin
webbrowser1.Navigate(edit1.text,t,t,t,t);
end;
需要定义变量t（还有很多地方要用到它），很麻烦。其实我们可以用EmptyParam来代替（EmptyParam是一个公用的Variant空变量，不要对它赋值），只需一句话就可以了：
procedure ExecWB(cmdID: rOLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn:
OleVariant; var pvaOut: OleVariant); overload;
打开： 弹出“打开Internet地址”对话框，CommandID为OLECMDID_OPEN（若浏览器版本为IE5.0，
WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);
end;
==============================================================
引入OleCtrls和Activex单元
IE.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,a,b);
--------------------------------------------------------------------------------------------------------
３、命令操作
常用的命令操作用ExecWB方法即可完成，ExecWB同样多次被重载：
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload;
const pDisp: IDispatch; var URL: OleVariant);
begin
RichEdit1.PlainText := true;
webbrowser1.ExecWB(OLECMDID_SELECTALL,0);
webbrowser1.ExecWB(OLECMDID_COPY,0);
finally
CmdTarget._Release;
end;
except
end;
end;
===================================================================================
Twebbrowser里如何保存里面的网页内容？
来自：zw84611, 时间：2002-11-19 9:53:00, ID：1441206
unit Unit1;
interfacges, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, OleCtrls, SHDocVw, Activex;
WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam,
EmptyParam);
这几个参数不用说了吧
==============================================================
２、EmptyParam
在Delphi 5中TWebBrowser的Navigate方法被多次重载：
procedure Navigate(const URL: WideString); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
虽然长一点，但比每次都定义变量方便得多。当然，也可以使用第一种方式。
webbrowser1.Navigate(edit1.text)
procedure WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
richedit1.PasteFromClipboard;
RichEdit1.Lines.SaveToFile('c:\ab.txt');
end;
//注意下面
initialization
OleInitialize(nil);
finalization
OleUninitialize;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
///RichEdit1.Lines.SaveToFile('a.txt');
end;
var
CmdTarget: IOleCommandTarget;
begin
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
try
CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
//WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);
//WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,pvaIn,pvaOut);
==================================================================================
WebBrowser技巧大全
这是明生个人收集有关webbrowser的技巧大全。。转换请注明
在webbrowser中查找字符串并定位
procedure TForm1.WebFindText;
const
CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure FormCreate(Sender: TObject);