2

我正在使用以下单元通过显示在非模式对话框中的 TWebBrowser 来显示和打印 HTML 代码。在我的生产程序中，以下代码在 Windows-XP 下工作，但在 Windows-7 下失败（错误消息始终为外部异常 C015D00F）。为了隔离问题，我编写了一个简单的测试程序，它还有一个包含 TWebBrowser 的非模态对话框；就其本身而言，这个测试程序可以在 Windows-7 上正常工作，但是当我将非模态对话框从测试程序插入生产程序时，我得到了外部异常。

这大概表明调用程序而不是被调用单元有问题，但我看不出那个问题是什么。HTML 代码是手工制作的，但可以正确显示。

可能是什么问题呢？打印代码来自 Embarcadero网站

unit Test4;

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

type
 THTMLPreview = class(TForm)
  web: TWebBrowser;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure webDocumentComplete(Sender: TObject; const pDisp: IDispatch;
                                var URL: OleVariant);
  private
   options: word;
   fn: string;
   procedure DoPrint;
  public
   Constructor Create (const afn, acapt: string; opts: word);
  end;

implementation

{$R *.dfm}

constructor THTMLPreview.Create (const afn, acapt: string; opts: word);                
begin
 inherited create (nil);
 caption:= acapt;
 fn:= afn;
 options:= opts;
 web.Navigate (fn);
end;

procedure THTMLPreview.webDocumentComplete(Sender: TObject;
                 const pDisp: IDispatch; var URL: OleVariant);
begin
 DoPrint
end;

procedure THTMLPreview.DoPrint;
var
 HTMLDoc: IHTMLDocument2;
 HTMLWnd: IHTMLWindow2;
 HTMLWindow3: IHTMLWindow3;

begin
 if options and 4 = 4 then
  begin
   HTMLDoc:= web.Document as IHTMLDocument2;
   if HTMLDoc <> nil then
    begin
     HTMLWnd:= HTMLDoc.parentWindow;
     HTMLWindow3:= HTMLWnd as IHTMLWindow3;
     HTMLWindow3.print;
    end
  end
end;

procedure THTMLPreview.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if options and 1 = 1 then deletefile (fn);
 action:= caFree
end;

end.

使用该语句Web.ControlInterface.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)会产生相同的错误。

几天后编辑：

我尝试了一种完全不同的方法来解决这个问题。在 HTML 代码中，我添加了一个显示“打印”按钮并添加“onprint”事件的 javascript 片段。再一次，这在我的开发机器 (XP) 上运行良好，但在我的客户端机器 (Win7) 上运行良好，程序冻结并显示外部异常 C015D00F（与以前的地址相同）。

经过大量的谷歌搜索，我发现异常代码 C015000F 是由“被停用的激活上下文不是最近激活的”引起的。这对一个可怜的 Delphi 程序员意味着什么？

4

3 回答 3

3

如果我没记错的话，IHTMLWindow3.print 方法会弹出默认的“发送到打印机”系统对话框。你想要这个吗？对于一个应用程序，我曾经搜索过一种避免这种情况的方法，然后找到了这段代码。

var
  r:TRect;
  sh,ph:HDC;
begin
  OleInitialize(nil);
  WebBrowser1.Navigate('file://'+HtmlFilePath);
  while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.HandleMessage;

  //Printer.PrinterIndex:=//set selected printer here
  Printer.BeginDoc;
  try
    Printer.Canvas.Lock;
    try
      sh:=GetDC(0);
      ph:=Printer.Canvas.Handle;

      //TODO: make rect a bit smaller for a page margin
      //TODO: get page size from printer settings, assume A4 here (210x297mm)
      r.Left:=0;
      r.Top:=0;
      r.Right:=2100 * GetDeviceCaps(sh,LOGPIXELSX) div 254;
      r.Bottom:=2970 * GetDeviceCaps(sh,LOGPIXELSY) div 254;
      WebBrowser1.BoundsRect:=r;

      SetMapMode(ph,MM_ISOTROPIC);
      SetWindowExtEx(ph,r.Right,r.Bottom,nil);
      SetViewportExtEx(ph,r.Right,r.Bottom,nil);
      r.Right:=GetDeviceCaps(ph,HORZRES)-1;
      r.Bottom:=GetDeviceCaps(ph,VERTRES)-1;

      (WebBrowser1.ControlInterface as IViewObject).Draw(
        DVASPECT_CONTENT,
        1,
        nil,nil,0,ph,@r,nil,nil,0);
    finally
      Printer.Canvas.Unlock;
    end;
    Printer.EndDoc;
  except
    Printer.Abort;
    raise;
  end;

SetWindowExtEx 和 SetViewportExtEx 设置了正确的缩放比例，因此您可以在 HTML/CSS 中使用单位“mm”。

于 2013-03-29T12:32:34.750 回答
1

尝试这个。

var
    vIn, vOut: OleVariant;
begin
    WebBrowser_mail.ControlInterface.ExecWB(OLECMDID_PRINT,
                    OLECMDEXECOPT_PROMPTUSER, vIn, vOut) ;
于 2013-04-01T16:59:28.863 回答
0

每当我遇到 WB 问题时，它有两个原因：a) 文档未完全加载 b) WB 组件未“完全注册”，因为它处于隐藏形式等。

对于a）我使用了很多年这个代码：

var
  CurDispatch: IDispatch;
  DocLoaded: boolean;


procedure TForm3.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  if (pDisp = CurDispatch) then begin
    CurDispatch := nil; {clear the global variable }
    DocLoaded:=true;
  end;
end;

procedure TForm3.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp; { save for comparison }
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  vIn, vOut: OleVariant;

begin
  DocLoaded:=false;
  WebBrowser1.Navigate(EdLink.Text);
  repeat
    Application.ProcessMessages;
  until DocLoaded;

  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vIn, vOut)
end;

如果仍然存在问题，请尝试将其放入 FormShow - 它解决了 b)：

WebBrowser1.HandleNeeded;

WB没有问题了。

不要忘记设置 WebBrowser1.Silent:=true 以隐藏页面中的 JavaScript 错误。

于 2015-02-23T07:47:31.757 回答