运行具有嵌套 var 访问权限的 Delphi 程序后 Excel.exe 仍处于加载状态

Posted

技术标签:

【中文标题】运行具有嵌套 var 访问权限的 Delphi 程序后 Excel.exe 仍处于加载状态【英文标题】:Excel.exe remains loaded after running a Delphi program with nested var access 【发布时间】:2015-03-18 07:17:58 【问题描述】:

我遇到了一个类似于reasons why excel.exe remains loaded after running a delphi client automation program? question 的奇怪问题。但问题更深了一步。

我已经获得了用 Delphi 7 编写的代码并将其升级到 XE2。这样做后,我在 XE2 中遇到了同样的问题,虽然建议的解决方案在简单的测试应用程序中有效,但只要我使用这些行,Excel.exe 在程序退出后仍然加载:

fExcel: Variant; // Tried both as a field of a class and global variable

fExcel := CreateOleObject('Excel.Application');
try
  fExcel.Workbooks.Open(srcPathName);
  fExcel.DisplayAlerts := False;
  ...
  // Offending lines
  fExcel.ActiveWorkBook.ActiveSheet.Range[                                //
      fExcel.ActiveWorkBook.ActiveSheet.Cells[3, 2],                      //
      fExcel.ActiveWorkBook.ActiveSheet.Cells[3+i,1+XL_PT_Tip_FieldCount] //
  ].Formula := VarArr;                                                    //
  ...
  fExcel.ActiveWorkBook.SaveAs(tgtPathName, -4143, '', '', False, False);
  fExcel.ActiveWorkBook.Close;
finally
  fExcel.Application.Quit;
  fExcel.Quit;
  fExcel := Unassigned;
end;

但是,如果我引入临时变量 cl,ch: Variant 并将上面替换为:

cl := fExcel.ActiveWorkBook.ActiveSheet.Cells[3, 2];
ch := fExcel.ActiveWorkBook.ActiveSheet.Cells[3+i,1+XL_PT_Tip_FieldCount];
fExcel.ActiveWorkBook.ActiveSheet.Range[cl, ch].Formula := VarArr;

它神奇地开始工作,Excel.exe 得到妥善处理。

如果使用工作表变量也会发生同样的情况,添加临时变量可以解决问题:

sheetDynamicHb := fExcel.ActiveWorkBook.Sheets['Dynamics Hb'];
cl := sheetDynamicHb.Cells[52, 2];
ch := sheetDynamicHb.Cells[52+i, 2+3];
sheetDynamicHb.Range[cl, ch].Formula := VarArr;

以某种方式引入临时变量 (cl,ch: Variant) 可以解决问题。似乎嵌套的Excel 变量访问做了一些奇怪的事情(引用计数?)。我无法解释为什么会这样,但它确实像描述的那样工作,让我有点发疯。

除了每次都添加临时变量之外,是否有这种行为的原因和解决方案?


根据要求:一个完整​​的程序:

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ActiveX, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

$R *.dfm

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, VarArr, cl, ch: Variant;
begin
  ex := CreateOleObject('Excel.Application');
  try
    // Loading template XLS
    ex.Workbooks.Open('C:\Documents and Settings\...\TemplateCommon.xls');
    ex.DisplayAlerts := False;

    //Selecting work sheet
    ex.ActiveWorkBook.Sheets['Sheet ABC'].Select;

    VarArr := VarArrayCreate([0, 9, 0, 12], varVariant);

    // This code works fine    
    cl := ex.ActiveWorkBook.ActiveSheet.Cells[3, 2];
    ch := ex.ActiveWorkBook.ActiveSheet.Cells[3 + 9, 2 + 12];
    ex.ActiveWorkBook.ActiveSheet.Range[cl, ch].Formula := VarArr;

    // This code leaves Excel running
    ex.ActiveWorkBook.ActiveSheet.Range[
      ex.ActiveWorkBook.ActiveSheet.Cells[3, 2],
      ex.ActiveWorkBook.ActiveSheet.Cells[3 + 9, 2 + 12]
    ].Formula := VarArr;

    ex.ActiveWorkBook.SaveAs('C:\Documents and Settings\...\out.xls', -4143, '', '', False, False);
    ex.ActiveWorkBook.Close;
  finally
    ex.Quit;
    ex := Unassigned;
  end;
end;

end.

实际程序要复杂得多,但即使在这个简单的测试用例中也存在错误:

如果出现临时变量,Excel 会立即处理掉。 在嵌套变量的情况下,Excel 仅在程序关闭时才被释放,好像某些东西持有对它的引用或其他东西。

【问题讨论】:

我希望编译器在您不使用本地变量时必须隐藏临时变量。但是,我们无法说明此代码的范围。一个完整的程序会向我们展示这一点。坦率地说,你们都听我说过无数次了。为什么人们仍然没有设法花费额外的 5 分钟来发布完整的节目? @DavidHeffernan:感谢您的评论。我对发布完整程序犹豫不决,因为它看起来像是“为我调试”的请求。我发布小样本以防有人遇到这种模式并可以分享他的知识。 我们不想要你的完整的程序。只需一个完整的程序。从真实程序中缩减为尽可能小的复制品。也许在这里我们有一个完整的程序并不重要,但我有一些事情发生了。对不起。 感谢您的编辑。 FWIW 作为控制台应用程序通常会更好,因为它可以是一个文件中的完整程序。 @DavidHeffernan:我理解你的立场,只是希望得到一个简短描述的答案,如果有人知道的话。感谢您对 OP 格式的指导。 【参考方案1】:

按照创建变量的相反顺序处理excel的每个变量,然后excel对象才能正确处理。

【讨论】:

请看问题中的示例程序。

以上是关于运行具有嵌套 var 访问权限的 Delphi 程序后 Excel.exe 仍处于加载状态的主要内容,如果未能解决你的问题,请参考以下文章

delphi VCL显示问题 分线程与主线程的同步

在 Delphi 中开发具有管理员权限的应用程序

Phpmyadmin 4.9.5 -> $cfg['TempDir'] (/var/lib/phpmyadmin/tmp/) 不可访问,即使它存在并且具有正确的权限

Delphi中的published

嵌套 SQL 查询

Delphi中纤程的使用