【结】DispatchHelper调用Excel后还留有进程

bfaomei

如题：以下是我的代码程序：  
o:=ComObj.CreateOleObject('Excel.Application');
  app := System.DispatchHelper.Create(o);
  app.PropertyPut('Visible', [False]);
  try
     odocs:=app.PropertyGet('WorkBooks',[]);
     docs := System.DispatchHelper.Create(odocs);
     docs.InvokeMethod('Open', [DataSetBrokerSALES_RECORD_IMPORT_STYLE_DT.DataSet.FieldByName('FILE_NAME').AsString]);
     odoc:= docs.PropertyGet('Item',[1]);
     doc := System.DispatchHelper.Create(odoc);
     sheet:= System.DispatchHelper.Create(doc.PropertyGet('Worksheets',[ComboBox1.ItemIndex+1]));
     sheet.InvokeMethod('Select', []);
     UsedRange:=System.DispatchHelper.Create(sheet.PropertyGet('UsedRange', []));
     //cells:=System.DispatchHelper.Create(UsedRange.PropertyGet('Cells', []));
     Rows:=System.DispatchHelper.Create(UsedRange.PropertyGet('Rows', []));
     DataSetBrokerSALES_RECORD_IMPORT_STYLE_DT.DataSet.FieldByName('END_ROW').AsInteger:=objecthelper.ToInt(Rows.PropertyGet('count',[]));
  finally
     docs.InvokeMethod('close',[]);
  end;
  app.InvokeMethod('Quit',[]);

  //(doc as System.IDisposable).Dispose;
  (odoc as System.IDisposable).Dispose;
  (odocs as System.IDisposable).Dispose;
  (o as System.IDisposable).Dispose;

bfaomei

顶贴呀。。 有人知道吗？

zfang

应该是有对象未释放的缘故吧
请楼主看一下这个帖子http://bbs.justep.com/forum.php?mod=viewthread&tid=27065 的下面这段内容：
PropertyGet出来的object不用释放。如果后面有DispatchHelper.Create语句，是必须释放的。
   例子：o1:= FApp.PropertyGet('Range', ['A3:F3']);
              Range := DispatchHelper.Create(o1);//属性和对象
        o1必须释放。

bfaomei

o:=ComObj.CreateOleObject('Excel.Application');
      app := System.DispatchHelper.Create(o);
      app.PropertyPut('Visible', [False]);
      try
         odocs:=app.PropertyGet('WorkBooks',[]);
         docs := System.DispatchHelper.Create(odocs);
         docs.InvokeMethod('Open', [DataSetBrokerSALES_RECORD_IMPORT_STYLE_DT.DataSet.FieldByName('FILE_NAME').AsString]);
         odoc:= docs.PropertyGet('Item',[1]);
         doc := System.DispatchHelper.Create(odoc);
         oworksheets:= doc.PropertyGet('Sheets',[]);
         worksheets := System.DispatchHelper.Create(oworksheets);
         lCount:=ObjectHelper.ToInt(worksheets.PropertyGet('Count',[]));
         ComboBox1.Items.Clear;
         for i:=1 to lCount do
         begin
           oworksheet:= worksheets.PropertyGet('Item',);
           worksheet:= System.DispatchHelper.Create(oworksheet);
           ComboBox1.Items.Add(ObjectHelper.ToString(worksheet.PropertyGet('Name',[])));
         end;
         ComboBox1.ItemIndex:=0;
      (oworksheet as System.IDisposable).Dispose;
      (oworksheets as System.IDisposable).Dispose;
      (odoc as System.IDisposable).Dispose;
      (odocs as System.IDisposable).Dispose;
      (o as System.IDisposable).Dispose;

bfaomei

我释放掉了 但是还有一个Excel进程没有关掉！！

shangxy

InvokeMethod和PropertyGet方法返回的都是object，所以你需要定义这样的变量，然后把你这两个付给这个变量，然后释放掉。

3楼连接中的帖子。

bfaomei

请具体告知哪个地方要改动！多谢！

bfaomei

oMethod:=docs.InvokeMethod('Open', [DataSetBrokerSALES_RECORD_IMPORT_STYLE_DT.DataSet.FieldByName('FILE_NAME').AsString]);     

然后再把oMethod释放掉 也还是关不掉最后一个Excel进程

shangxy

for i:=1 to lCount do
         begin
           oworksheet:= worksheets.PropertyGet('Item',);
           worksheet:= System.DispatchHelper.Create(oworksheet);
           ComboBox1.Items.Add(ObjectHelper.ToString(worksheet.PropertyGet('Name',[])));
         end;
要在循环里面释放吧

bfaomei

问题解决，非常感谢shangxy！ 不知为什么要在循环里面释放？