【结贴】帮忙看一下代码，excel进程不注销。

qujinhai

这是写在资源集里的代码，执行后excel不退出啊，内存里有excel进程残留，怎么回事，帮忙看看，急等用啊。
static procedure TQZKZZYJ.GetExcelSheetsName(lExcelFileName : String; var lExcelSheetsName : String; var lCount : Integer);
var
    i:integer;
    oExcel,oWorkbooks,workbook,sbook : Object;
    appExcel,workbooks,sourceworkbook, sourceworksheets, sourceworksheet: System.DispatchHelper;
begin
     oExcel := ComObj.CreateOleObject('Excel.Application');
     appExcel := System.DispatchHelper.Create(oExcel);
     oWorkbooks := appExcel.PropertyGet('WorkBooks',[]);
     try
         workbooks := System.DispatchHelper.Create(oWorkbooks);
         workbook := workbooks.InvokeMethod('Open',[lExcelFileName]);
         sourceworkbook := System.DispatchHelper.Create(workbook);//打开文件
         sbook := sourceworkbook.PropertyGet('Sheets',[]);
         sourceworksheets := System.DispatchHelper.Create(sbook);
         lCount:=ObjectHelper.ToInt(sourceworksheets.PropertyGet('Count',[]));
         lExcelSheetsName:='';
         for i:=1 to lCount do
         begin
             sourceworksheet := System.DispatchHelper.Create(sourceworksheets.PropertyGet('Item',));
             lExcelSheetsName:=lExcelSheetsName+ObjectHelper.ToString(sourceworksheet.PropertyGet('Name',[]))
                             + '`';
         end;
     finally
         //关闭工作簿
         workbooks.InvokeMethod('Close', []);
     end;
     appExcel.InvokeMethod('Quit',[]);
     (sbook as System.IDisposable).Dispose;
     (workbook as System.IDisposable).Dispose;
     (oWorkbooks as System.IDisposable).Dispose;
     (oExcel as System.IDisposable).Dispose;
end;

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=27065

qujinhai

经过参考回帖，修改代码如下，仍然不释放excel

static procedure TQZKZZYJ.GetExcelSheetsName(lExcelFileName : String; var lExcelSheetsName : String; var lCount : Integer);
var
    i:integer;
    oExcel : Object;
    appExcel,workbooks,sourceworkbook, sourceworksheets, sourceworksheet : System.DispatchHelper;
begin
     oExcel := ComObj.CreateOleObject('Excel.Application');
     appExcel := System.DispatchHelper.Create(oExcel);
     try
         workbooks := System.DispatchHelper.Create(appExcel.PropertyGet('WorkBooks',[]));
         sourceworkbook := System.DispatchHelper.Create(workbooks.InvokeMethod('Open',[lExcelFileName]));//打开文件
         sourceworksheets := System.DispatchHelper.Create(sourceworkbook.PropertyGet('Sheets',[]));
         lCount:=ObjectHelper.ToInt(sourceworksheets.PropertyGet('Count',[]));
         lExcelSheetsName:='';
         for i:=1 to lCount do
         begin
             sourceworksheet := System.DispatchHelper.Create(sourceworksheets.PropertyGet('Item',));
             lExcelSheetsName:=lExcelSheetsName+ObjectHelper.ToString(sourceworksheet.PropertyGet('Name',[]))
                             + '`';
         end;
     finally
         //关闭工作簿
         workbooks.InvokeMethod('Close', []);
     end;
     appExcel.InvokeMethod('Quit',[]);
     (oExcel as System.IDisposable).Dispose;
end;

lixy

3、我们最头疼的是我们quit后，word或者excel等进程还在进程里面存在。
  有个好办法解决：
  只要是  DispatchHelper.Create  出来的object对象，都要  
  (o2 as System.IDisposable).Dispose;
  所有的都Dispose就不会遗留进程了。
需要注意的
  1、别忘记某个对象的释放。因为bbs上很多
lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));  类似这样的嵌套写法，所以造成了我们忘记释放对象。
   2、注意对象释放的顺序。
   3、PropertyGet出来的object不用释放。如果后面有DispatchHelper.Create语句，是必须释放的。
   例子：o1:= FApp.PropertyGet('Range', ['A3:F3']);
              Range := DispatchHelper.Create(o1);//属性和对象
        o1必须释放。

qujinhai

(sourceworksheets as System.IDisposable).Dispose;
     (sourceworkbook as System.IDisposable).Dispose;
     (workbooks as System.IDisposable).Dispose;
     (oExcel as System.IDisposable).Dispose;
改了以后，运行出错

qujinhai

出错图片

lixy

哪一行出错？

lixy

oExcel := ComObj.CreateOleObject('Excel.Application');
只要是  DispatchHelper.Create  出来的object对象，都要  
  (o2 as System.IDisposable).Dispose;
这个不应该这样释放吧？

qujinhai

(sourceworksheets as System.IDisposable).Dispose;
这一行出错

qujinhai

我不熟悉delphi，看了论坛的帖子，这样写的，我的目的就是过程执行完毕后，内存里不要有excel进程。不知怎么处理呀