使用HTML界面的Delphi开发环境建立

淩亂°似流年 2021-11-30 01:28 285阅读 0赞

1 SHDocVw\_TLB是shdocvw.dll的类型库导入单元，没有的话就改成shdocvw（delphi自带），或者在“Project”菜单下选“Import Type Library”，在弹出的对话框中再选择“Microsoft Internet Controls”，再点“Create Unit”即可。但是把第二个webbrowser改为webbrowser2.但以后其他工程要用就要改回来了.

2 安装EmbeddedWB\_D2005\_Update12.zip,它包含了IEConst,IEUtil等.

3 安装zoc,在demo中.

4 安装的路径,就是有dcu的路径加入delphi的环境变量 .

附Zoc代码:

unit ZoCWebBrowser;

interface

uses  
  Variants,  
  IEConst, IEUtils, Registry, Windows, Messages, SysUtils, Classes, Graphics,  
  Controls, Forms, Dialogs, EXTCtrls, OleCtrls, SHDocVw\_tlb,  
  ActiveX, shlObj, Wininet, Urlmon, shellapi, MSHTML;

type  
//zoc 2003-9-15 IDocHostUIHandler  
  TShowContextMenuEvent = function(const dwID: DWORD; const ppt: PPOINT;  
    const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT of object;  
  TGetHostInfoEvent = function(var pInfo: TDOCHOSTUIINFO): HRESULT of object;  
  TShowUIEvent = function(const dwID: DWORD; const pActiveObject:  
    IOleInPlaceActiveObject;  
    const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;  
    const pDoc: IOleInPlaceUIWindow): HRESULT of object;  
  THideUIEvent = function: HRESULT of object;  
  TUpdateUIEvent = function: HRESULT of object;  
  TEnableModelessEvent = function(const fEnable: BOOL): HRESULT of object;  
  TOnDocWindowActivateEvent = function(const fActivate: BOOL): HRESULT of object;  
  TOnFrameWindowActivateEvent = function(const fActivate: BOOL): HRESULT of object;  
  TResizeBorderEvent = function(const prcBorder: PRECT;  
    const pUIWindow: IOleInPlaceUIWindow;  
    const fRameWindow: BOOL): HRESULT of object;  
  TTranslateAcceleratorEvent = function(const lpMsg: PMSG; const pguidCmdGroup: PGUID;  
    const nCmdID: DWORD): HRESULT of object;  
  TGetOptionKeyPathEvent = function(var pchKey: POLESTR; const dw: DWORD): HRESULT of  
    object;  
  TGetDropTargetEvent = function(const pDropTarget: IDropTarget;  
    out ppDropTarget: IDropTarget): HRESULT of object;  
  TGetExternalEvent = function(out ppDispatch: IDispatch): HRESULT of object;  
  TTranslateUrlEvent = function(const dwTranslate: DWORD; const pchURLIn: POLESTR;  
    var ppchURLOut: POLESTR): HRESULT of object;  
  TFilterDataObjectEvent = function(const pDO: IDataObject;  
    out ppDORet: IDataObject): HRESULT of object;  
//zoc 2003-9-15 IDocHostUIHandler

//zoc 2003-9-15 IDocHostUIHandler2  
  TGetOverrideKeyPathEvent = function(pchKey: POLESTR; dw: DWORD): HRESULT of object;  
//zoc 2003-9-15 IDocHostUIHandler2

//zoc 2003-9-15 IDocHostShowUI  
  TShowMessageEvent = function(hwnd: THandle;  
    lpstrText: POLESTR; lpstrCaption: POLESTR; dwType: longint; lpstrHelpFile: POLESTR;  
    dwHelpContext: longint; var plResult: LRESULT): HRESULT of object;  
  TShowHelpEvent = function(hwnd: THandle; pszHelpFile: POLESTR; uCommand: integer;  
    dwData: longint; ptMouse: TPoint;  
    var pDispatchObjectHit: IDispatch): HRESULT of object;  
//zoc 2003-9-15 IDocHostShowUI

TZoCWebBrowser = class(TWebBrowser2, IDocHostUIHandler, IDocHostUIHandler2,  
    IDocHostShowUI)  
  private  
//zoc 2003-9-15 IDocHostUIHandler  
    FOnEnableModeless: TEnableModelessEvent;  
    FOnFilterDataObject: TFilterDataObjectEvent;  
    FOnGetDropTarget: TGetDropTargetEvent;  
    FOnGetExternal: TGetExternalEvent;  
    FOnGethostinfo: TGetHostInfoEvent;  
    FOnGetOptionKeyPath: TGetOptionKeyPathEvent;  
    FOnHideUI: THideUIEvent;  
    FOnOnDocWindowActivate: TOnDocWindowActivateEvent;  
    FOnOnFrameWindowActivate: TOnFrameWindowActivateEvent;  
    FOnResizeBorder: TResizeBorderEvent;  
    FOnShowContextmenu: TShowContextMenuEvent;  
    FOnShowUI: TShowUIEvent;  
    FOnTranslateAccelerator: TTranslateAcceleratorEvent;  
    FOnTranslateUrL: TTranslateUrlEvent;  
    FOnUpdateUI: TUpdateUIEvent;  
//zoc 2003-9-15 IDocHostUIHandler

//zoc 2003-9-15 IDocHostUIHandler2  
    FOnGetOverrideKeyPath: TGetOverrideKeypathEvent;  
//zoc 2003-9-15 IDocHostUIHandler2

//zoc 2003-9-15 IDocHostShowUI  
    FOnShowMessage: TShowMessageEvent;  
    FOnShowHelp: TShowHelpEvent;  
//zoc 2003-9-15 IDocHostShowUI

FUserInterfaceValue: Cardinal;  
    FHelpFile: string;  
  protected  
    \{ Protected declarations \}  
//zoc 2003-9-15 IDocHostUIHandler  
    function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;  
      const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT; stdcall;  
    function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;  
    function ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject;  
      const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;  
      const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;  
    function HideUI: HRESULT; stdcall;  
    function UpdateUI: HRESULT; stdcall;  
    function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;  
    function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;  
    function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;  
    function ResizeBorder(const prcBorder: PRECT;  
      const pUIWindow: IOleInPlaceUIWindow;  
      const FrameWindow: BOOL): HRESULT; stdcall;  
    function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;  
      const nCmdID: DWORD): HRESULT; stdcall;  
    function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HRESULT; stdcall;  
    function GetDropTarget(const pDropTarget: IDropTarget;  
      out ppDropTarget: IDropTarget): HRESULT; stdcall;  
    function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;  
    function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;  
      var ppchURLOut: POLESTR): HRESULT; stdcall;  
    function FilterDataObject(const pDO: IDataObject;  
      out ppDORet: IDataObject): HRESULT; stdcall;  
//zoc 2003-9-15 IDocHostUIHandler

//zoc 2003-9-15 IDocHostUIHandler2  
    function GetOverrideKeyPath(pchKey: POLESTR; dw: DWORD): HRESULT; stdcall;  
//zoc 2003-9-15 IDocHostUIHandler2

//zoc 2003-9-15 IDocHostShowUI  
    function ShowMessage(hwnd: THandle;  
      lpstrText: POLESTR; lpstrCaption: POLESTR; dwType: longint; lpstrHelpFile: POLESTR;  
      dwHelpContext: longint; var plResult: LRESULT): HRESULT; stdcall;  
    function ShowHelp(hwnd: THandle; pszHelpFile: POLESTR; uCommand: integer;  
      dwData: longint; ptMouse: TPoint;  
      var pDispatchObjectHit: IDispatch): HRESULT; stdcall;  
//zoc 2003-9-15 IDocHostShowUI

public  
    \{ Public declarations \}  
  published  
    \{ Published declarations \}  
    property HelpFile: string read FHelpFile write FHelpFile;  
//zoc 2003-9-15 IDocHostUIHandler  
    property OnShowContextMenu: TShowContextMenuEvent read FOnShowContextmenu write  
      FOnShowContextmenu;  
    property OnGetHostInfo: TGetHostInfoEvent read FOnGethostinfo write fongethostinfo;  
    property OnShowUI: TShowUIEvent read FOnShowUI write FOnShowUI;  
    property OnHideUI: THideUIEvent read FOnHideUI write FOnHideUI;  
    property OnUpdateUI: TUpdateUIEvent read FOnUpdateUI write FOnUpdateUI;  
    property OnEnableModeless: TEnableModelessEvent read FOnEnableModeless write  
      FOnEnableModeless;  
    property OnOnDocWindowActivate: TOnDocWindowActivateEvent read FOnOnDocWindowActivate  
      write FOnOnDocWindowActivate;  
    property OnOnFrameWindowActivate: TOnFrameWindowActivateEvent read  
      FOnOnFrameWindowActivate write FOnOnFrameWindowActivate;  
    property OnResizeBorder: TResizeBorderEvent read FOnResizeBorder write  
      FOnResizeBorder;  
    property OnTranslateAccelerator: TTranslateAcceleratorEvent read  
      FOnTranslateAccelerator write FOnTranslateAccelerator;  
    property OnGetOptionKeyPath: TGetOptionKeyPathEvent read FOnGetOptionKeyPath write  
      FOnGetOptionKeyPath;  
    property OnGetDropTarget: TGetDropTargetEvent read FOnGetDropTarget write  
      FOnGetDropTarget;  
    property OnGetExternal: TGetExternalEvent read FOnGetExternal write FOnGetExternal;  
    property OnTranslateUrl: TTranslateUrlEvent read FOnTranslateUrL write  
      FOnTranslateUrL;  
    property OnFilterDataObject: TFilterDataObjectEvent read FOnFilterDataObject write  
      FOnFilterDataObject;  
//zoc 2003-9-15 IDocHostUIHandler

//zoc 2003-9-15 IDocHostUIHandler2  
    property OnGetOverrideKeyPath: TGetOVerrideKeypathEvent read FOnGetOverrideKeyPath write FOnGetOverrideKeyPath;  
//zoc 2003-9-15 IDocHostUIHandler2

//zoc 2003-9-15 IDocHostShowUI  
    property OnShowMessage: TShowMessageEvent read FOnShowMessage write FOnShowMessage;  
    property OnShowHelp: TShowHelpEvent read FOnShowHelp write FOnShowHelp;  
//zoc 2003-9-15 IDocHostShowUI  
  end;

procedure Register;

implementation

var  
  Saved8087CW: Word;

//zoc 2003-9-15 IDocHostUIHandler

function TZoCWebBrowser.ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;  
  const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT;  
begin  
  if Assigned(FOnShowContextmenu) then  
    RESULT := FOnSHowContextmenu(dwID, ppt,  
      pcmdtreserved, pdispreserved)  
  else  
    RESULT := S\_FALSE;  
end;

function TZoCWebBrowser.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;  
begin  
  pInfo.cbSize := SizeOf(pInfo);  
  pInfo.dwFlags := FUserInterfaceValue;  
  pInfo.dwDoubleClick := DOCHOSTUIDBLCLK\_DEFAULT;  
  if Assigned(FOnGetHostInfo) then  
    Result := FOnGetHostInfo(pInfo)  
  else  
    Result := S\_OK;  
end;

function TZoCWebBrowser.ShowUI(const dwID: DWORD;  
  const pActiveObject: IOleInPlaceActiveObject;  
  const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;  
  const pDoc: IOleInPlaceUIWindow): HRESULT;  
begin  
  if Assigned(FOnShowUI) then  
    Result := FOnShowUI(dwID, pActiveObject, pCommandTarget, pFrame, pDoc)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.HideUI: HRESULT;  
begin  
  if Assigned(FOnHideUI) then  
    Result := FOnHideUI  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.UpdateUI: HRESULT;  
begin  
  if Assigned(FOnUpdateUI) then  
    Result := FOnUpdateUI  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.EnableModeless(const fEnable: BOOL): HRESULT;  
begin  
  if Assigned(FOnEnableModeless) then  
    Result := FOnEnableModeless(fEnable)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.OnDocWindowActivate(const fActivate: BOOL): HRESULT;  
begin  
  if Assigned(FOnOnDocWindowActivate) then  
    Result := FOnOnDocWindowActivate(fActivate)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.OnFrameWindowActivate(const fActivate: BOOL): HRESULT;  
begin  
  if Assigned(FOnOnFrameWindowActivate) then  
    Result := FOnOnFrameWindowActivate(fActivate)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.ResizeBorder(const prcBorder: PRECT;  
  const pUIWindow: IOleInPlaceUIWindow; const fRameWindow: BOOL): HRESULT;  
begin  
  if Assigned(FOnResizeBorder) then  
    Result := FOnResizeBorder(prcBorder, pUIWindow, fRameWindow)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.TranslateAccelerator(const lpMsg: PMSG;  
  const pguidCmdGroup: PGUID; const nCmdID: DWORD): HRESULT;  
begin  
  if Assigned(FOnTranslateAccelerator) then  
    Result := FOnTranslateAccelerator(lpMsg, pguidCmdGroup, nCmdID)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HRESULT;  
begin  
  if Assigned(FOnGetOptionKeyPath) then  
    Result := FOnGetOptionKeyPath(pchKey, dw)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.GetDropTarget(const pDropTarget: IDropTarget;  
  out ppDropTarget: IDropTarget): HRESULT;  
begin  
  if Assigned(FOnGetDropTarget) then  
    Result := FOnGetDropTarget(pDropTarget, ppDropTarget)  
  else  
    Result := S\_OK;  
end;

function TZoCWebBrowser.GetExternal(out ppDispatch: IDispatch): HRESULT;  
begin  
  if Assigned(FOnGetExternal) then  
    Result := FOnGetExternal(ppDispatch)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.TranslateUrl(const dwTranslate: DWORD;  
  const pchURLIn: POLESTR; var ppchURLOut: POLESTR): HRESULT;  
begin  
  if Assigned(FOnTranslateUrl) then  
    Result := FOnTranslateUrl(dwTranslate, pchUrlIn, ppchUrlOut)  
  else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.FilterDataObject(const pDO: IDataObject;  
  out ppDORet: IDataObject): HRESULT;  
begin  
  if Assigned(FOnFilterDataObject) then  
    Result := FOnFilterDataObject(pDO, ppDORet)  
  else  
    Result := S\_FALSE;  
end;

//zoc 2003-9-15 IDocHostUIHandler

//zoc 2003-9-15 IDocHostUIHandler2

function TZoCWebBrowser.GetOverrideKeyPath(pchKey: POLESTR;  
  dw: DWORD): HRESULT;  
begin  
  if Assigned(FOnGetOverrideKeyPath) then RESULT := FOnGetOverrideKeyPath(pchkey, dw) else  
    Result := S\_OK;  
end;

//zoc 2003-9-15 IDocHostUIHandler2

//zoc 2003-9-15 IDocHostShowUI  
function TZoCWebBrowser.ShowMessage(hwnd: THandle; lpstrText: POLESTR;  
  lpstrCaption: POLESTR; dwType: longint; lpstrHelpFile: POLESTR;  
  dwHelpContext: longint; var plResult: LRESULT): HRESULT;  
begin  
  if Assigned(FOnShowMessage) then  
    Result := FOnShowMessage(hwnd, lpstrText, lpStrCaption, dwType, lpStrHelpFile, dwHelpContext, plResult) else  
    Result := S\_FALSE;  
end;

function TZoCWebBrowser.ShowHelp(hwnd: THandle; pszHelpFile: POLESTR;  
  uCommand: integer; dwData: longint; ptMouse: TPoint;  
  var pDispatchObjectHit: IDispatch): HRESULT;  
begin  
  Result := S\_OK;  
  if Assigned(FOnShowHelp) then  
    Result := FOnShowHelp(hwnd, pszHelpFile, uCommand, dwData, ptMouse, pDispatchObjectHit) else  
    if FHelpFile <> '' then HtmlHelp(hwnd, Pchar(FHelpFile), ucommand, dwData) else  
      Result := S\_FALSE;  
end;

//zoc 2003-9-15 IDocHostShowUI

procedure Register;  
begin  
  RegisterComponents('EoC', \[TZoCWebBrowser\]);  
end;

initialization  
  Saved8087CW := Default8087CW;  
\{$IFDEF VER120\}  
  bMsgHandler := False;  
\{$ENDIF\}  
  OleInitialize(nil);  
finalization  
  Set8087CW(Saved8087CW);  
  try  
    OleUninitialize;  
  except end;

end.

转载于:https://www.cnblogs.com/MaxWoods/archive/2008/09/25/1298783.html