找到一篇介绍写IE工具条的文章:
------------------------------------------------------------------
往IE中嵌入工具条 我们首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr;
然后建立一个COM Object,将其保存为BandUnit.pas;然后建立一个Form,
这个窗口将作为子窗口显示在IE工具栏中,将窗口的BorderStyle属性改为bsNone,
添加一个TButton组件和一个TComboBox组件,将TButton的Caption属性改为获取全部,
然后将窗口文件其保存为IEForm.pas。
在BandUnit中,需要建立一个实现上面提到的接口的TComObject对象。如下:
TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)另外由于需要在COM服务器注册时添加一些注册表信息,
所以还需要建立一个继承自TComObjectFactory类的对象,
在对象的UpdateRegistry事件中编写代码添加附加的注册表信息。下面的程序清单1-6到1-8是实现COM服务器的全部程序代码:程序清单1-6 MailIEBand.dpr
library MailIEBand;uses
ComServ,
BandUnit in 'BandUnit.pas',
IEForm in 'IEForm.pas' {Form1},
MailIEBand_TLB in 'MailIEBand_TLB.pas';exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;{$R *.TLB}{$R *.RES}begin
end.程序清单1-7 BandUnit.pasunit BandUnit;interfaceuses
Windows, Sysutils, Messages, Registry, Shellapi, ActiveX, Classes, ComObj,
Shlobj, Dialogs, Commctrl,ShDocVW,IEForm;type
TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)
private
frmIE:TForm1;
m_pSite:IInputObjectSite;
m_hwndParent:HWND;
m_hWnd:HWND;
m_dwViewMode:Integer;
m_dwBandID:Integer;
protected public
{Declare IDeskBand methods here}
function GetBandInfo(dwBandID, dwViewMode: DWORD; var pdbi: TDeskBandInfo):
HResult; stdcall;
function ShowDW(fShow: BOOL): HResult; stdcall;
function CloseDW(dwReserved: DWORD): HResult; stdcall;
function ResizeBorderDW(var prcBorder: TRect; punkToolbarSite: IUnknown;
fReserved: BOOL): HResult; stdcall;
function GetWindow(out wnd: HWnd): HResult; stdcall;
function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall; {Declare IObjectWithSite methods here}
function SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
function GetSite(const riid: TIID; out site: IUnknown):HResult;stdcall; {Declare IPersistStream methods here}
function GetClassID(out classID: TCLSID): HResult; stdcall;
function IsDirty: HResult; stdcall;
function InitNew: HResult; stdcall;
function Load(const stm: IStream): HResult; stdcall;
function Save(const stm: IStream; fClearDirty: BOOL): HResult; stdcall;
function GetSizeMax(out cbSize: Largeint): HResult; stdcall;
end;const
Class_GetMailBand: TGUID = '{954F618B-0DEC-4D1A-9317-E0FC96F87865}';
//以下是系统接口的IID
IID_IUnknown: TGUID = (
D1:$00000000;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleObject: TGUID = (
D1:$00000112;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleWindow: TGUID = (
D1:$00000114;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IInputObjectSite : TGUID = (
D1:$f1db8392;D2:$7331;D3:$11d0;D4:($8C,$99,$00,$A0,$C9,$2D,$BF,$E8));
sSID_SInternetExplorer : TGUID = '{0002DF05-0000-0000-C000-000000000046}';
sIID_IWebBrowserApp : TGUID= '{0002DF05-0000-0000-C000-000000000046}'; //面板所允许的最小宽度和高度。
MIN_SIZE_X = 54;
MIN_SIZE_Y = 22;
EB_CLASS_NAME = 'GetMailAddress';
implementationuses ComServ;
function TGetMailBand.GetWindow(out wnd: HWnd): HResult; stdcall;
begin
wnd:=m_hWnd;
Result:=S_OK;
end;下面的我就不写了,都在这里:
http://www.codesky.net/article/doc/200309/2003091647837714.htm----------------------------------------------------------------
但我把手里的Delphi的书中讲COM的章节读了一遍,仍不明白:
const
Class_GetMailBand: TGUID = '{954F618B-0DEC-4D1A-9317-E0FC96F87865}';
//以下是系统接口的IID
IID_IUnknown: TGUID = (
D1:$00000000;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleObject: TGUID = (
D1:$00000112;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleWindow: TGUID = (
D1:$00000114;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IInputObjectSite : TGUID = (
D1:$f1db8392;D2:$7331;D3:$11d0;D4:($8C,$99,$00,$A0,$C9,$2D,$BF,$E8));
sSID_SInternetExplorer : TGUID = '{0002DF05-0000-0000-C000-000000000046}';
sIID_IWebBrowserApp : TGUID= '{0002DF05-0000-0000-C000-000000000046}';这些关于接口的定义,是系统自动生成的还是程序员手工输入的?如果是系统自动生成怎么操作能得到这些代码,手工输入的我怎么知道TGUID的值及需要定义哪些接口?
------------------------------------------------------------------
往IE中嵌入工具条 我们首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr;
然后建立一个COM Object,将其保存为BandUnit.pas;然后建立一个Form,
这个窗口将作为子窗口显示在IE工具栏中,将窗口的BorderStyle属性改为bsNone,
添加一个TButton组件和一个TComboBox组件,将TButton的Caption属性改为获取全部,
然后将窗口文件其保存为IEForm.pas。
在BandUnit中,需要建立一个实现上面提到的接口的TComObject对象。如下:
TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)另外由于需要在COM服务器注册时添加一些注册表信息,
所以还需要建立一个继承自TComObjectFactory类的对象,
在对象的UpdateRegistry事件中编写代码添加附加的注册表信息。下面的程序清单1-6到1-8是实现COM服务器的全部程序代码:程序清单1-6 MailIEBand.dpr
library MailIEBand;uses
ComServ,
BandUnit in 'BandUnit.pas',
IEForm in 'IEForm.pas' {Form1},
MailIEBand_TLB in 'MailIEBand_TLB.pas';exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;{$R *.TLB}{$R *.RES}begin
end.程序清单1-7 BandUnit.pasunit BandUnit;interfaceuses
Windows, Sysutils, Messages, Registry, Shellapi, ActiveX, Classes, ComObj,
Shlobj, Dialogs, Commctrl,ShDocVW,IEForm;type
TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)
private
frmIE:TForm1;
m_pSite:IInputObjectSite;
m_hwndParent:HWND;
m_hWnd:HWND;
m_dwViewMode:Integer;
m_dwBandID:Integer;
protected public
{Declare IDeskBand methods here}
function GetBandInfo(dwBandID, dwViewMode: DWORD; var pdbi: TDeskBandInfo):
HResult; stdcall;
function ShowDW(fShow: BOOL): HResult; stdcall;
function CloseDW(dwReserved: DWORD): HResult; stdcall;
function ResizeBorderDW(var prcBorder: TRect; punkToolbarSite: IUnknown;
fReserved: BOOL): HResult; stdcall;
function GetWindow(out wnd: HWnd): HResult; stdcall;
function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall; {Declare IObjectWithSite methods here}
function SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
function GetSite(const riid: TIID; out site: IUnknown):HResult;stdcall; {Declare IPersistStream methods here}
function GetClassID(out classID: TCLSID): HResult; stdcall;
function IsDirty: HResult; stdcall;
function InitNew: HResult; stdcall;
function Load(const stm: IStream): HResult; stdcall;
function Save(const stm: IStream; fClearDirty: BOOL): HResult; stdcall;
function GetSizeMax(out cbSize: Largeint): HResult; stdcall;
end;const
Class_GetMailBand: TGUID = '{954F618B-0DEC-4D1A-9317-E0FC96F87865}';
//以下是系统接口的IID
IID_IUnknown: TGUID = (
D1:$00000000;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleObject: TGUID = (
D1:$00000112;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleWindow: TGUID = (
D1:$00000114;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IInputObjectSite : TGUID = (
D1:$f1db8392;D2:$7331;D3:$11d0;D4:($8C,$99,$00,$A0,$C9,$2D,$BF,$E8));
sSID_SInternetExplorer : TGUID = '{0002DF05-0000-0000-C000-000000000046}';
sIID_IWebBrowserApp : TGUID= '{0002DF05-0000-0000-C000-000000000046}'; //面板所允许的最小宽度和高度。
MIN_SIZE_X = 54;
MIN_SIZE_Y = 22;
EB_CLASS_NAME = 'GetMailAddress';
implementationuses ComServ;
function TGetMailBand.GetWindow(out wnd: HWnd): HResult; stdcall;
begin
wnd:=m_hWnd;
Result:=S_OK;
end;下面的我就不写了,都在这里:
http://www.codesky.net/article/doc/200309/2003091647837714.htm----------------------------------------------------------------
但我把手里的Delphi的书中讲COM的章节读了一遍,仍不明白:
const
Class_GetMailBand: TGUID = '{954F618B-0DEC-4D1A-9317-E0FC96F87865}';
//以下是系统接口的IID
IID_IUnknown: TGUID = (
D1:$00000000;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleObject: TGUID = (
D1:$00000112;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
IID_IOleWindow: TGUID = (
D1:$00000114;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IInputObjectSite : TGUID = (
D1:$f1db8392;D2:$7331;D3:$11d0;D4:($8C,$99,$00,$A0,$C9,$2D,$BF,$E8));
sSID_SInternetExplorer : TGUID = '{0002DF05-0000-0000-C000-000000000046}';
sIID_IWebBrowserApp : TGUID= '{0002DF05-0000-0000-C000-000000000046}';这些关于接口的定义,是系统自动生成的还是程序员手工输入的?如果是系统自动生成怎么操作能得到这些代码,手工输入的我怎么知道TGUID的值及需要定义哪些接口?
解决方案 »
- 判断网络连接状态的问题(掉线、已连接)
- 希望某些人不要原封不动的拷贝别人的回贴
- 取子字符串的问题,请帮忙看一下
- delphi打包問題
- 怎样通过调用系统函数取得星期数?
- 关于视频采集的问题
- 过节了,技术大放送3:利用Sql语句从数据库中随即取出20条纪录。
- 激活窗口,使其可以接收键盘事件,但不显示在最上层(立马给分)
- 请问Realplayer控件的使用方法?
- 用sql语句创建dbf文件时,date, numeric, logical, float(需要指定精度)的写法??
- 怎样将Tfontstyle里面的各项转换为字符串?
- 有谁知道这个符号在DELPHI里是什么意思????????????????
class name项输入GetMailBand
去掉复选Include type library
点击OKuses相应的单元
在生成的代码中,把TGetMailBand的声明改成
TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)const部分:
Class_GetMailBand: TGUID =是自动生成的
其它GUID都是在相应的单元文件里
既然这个ActiveX DLL嵌入IE中,可否理解为DLL向外部IE提供了方法调用?如果是,为什么还可以省略类型库呢?
不知你注意到没有,输入class name以后,如果Include type library选中,
则向导会自动生成一个接口,include指的是这个接口在你的那个例子里,
IE本身只会按照约定调用一些固定的接口,
不会调用你自己的接口,因此我们不必包含自己定义的接口