delphi – XE2中的COM是否断开,我该如何解决它？

rowCnt := UsedRange.Rows.Count;
colCnt := UsedRange.Columns.Count;
for Row := 1 to rowCnt do begin
  for Col := 1 to colCnt do begin
    v := UsedRange.Item[Row,Col].Value;
  end;
end;

这也工作(并且可以帮助您在更复杂的用例中找到解决方法)：

function ColCount(const range: ExcelRange): integer;
begin
  Result := range.Columns.Count;
end;

for Row := 1 to UsedRange.Rows.Count do begin
  for Col := 1 to ColCount(UsedRange) do begin
    v := UsedRange.Item[Row,Col].Value;
  end;
end;

分析

执行_Release时，它在DispCallByID中的System.Win.ComObj中崩溃

varDispatch,varUnknown:
  begin
    if PPointer(Result)^ <> nil then
      IDispatch(Result)._Release;
    PPointer(Result)^ := Res.VDispatch;
  end;

虽然PUREPASCAL版本的这个相同的过程在Delphi XE(XE使用汇编版本)是不同的…

varDispatch,varUnknown:
  begin
    if PPointer(Result)^ <> nil then
      IDispatch(Result.VDispatch)._Release;
    PPointer(Result)^ := Res.VDispatch;
  end;

…在这两种情况下的汇编代码是相同的(编辑：不是真的，请参见我的笔记结束)：

@ResDispatch:
@ResUnknown:
        MOV     EAX,[EBX]
        TEST    EAX,EAX
        JE      @@2
        PUSH    EAX
        MOV     EAX,[EAX]
        CALL    [EAX].Pointer[8]
@@2:    MOV     EAX,[ESP+8]
        MOV     [EBX],EAX
        JMP     @ResDone

有趣的是，这崩溃了…

for Row := 1 to UsedRange.Rows.Count do begin
  for Col := 1 to UsedRange.Columns.Count do begin
  end;
end;

…而这不是。

row := UsedRange.Rows.Count;
col := UsedRange.Columns.Count;
col := UsedRange.Columns.Count;

其原因是使用隐藏的局部变量。在第一个示例中，代码编译为…

00564511 6874465600       push $00564674
00564516 6884465600       push $00564684
0056451B A12CF35600       mov eax,[$0056f32c]
00564520 50               push eax
00564521 8D8508FFFFFF     lea eax,[ebp-$000000f8]
00564527 50               push eax
00564528 E8933EEAFF       call DispCallByIDProc

…并且被称为两次。

在第二个例子中，使用堆栈上的两个不同的临时位置(ebp – ???? offsets)：

00564466 6874465600       push $00564674
0056446B 6884465600       push $00564684
00564470 A12CF35600       mov eax,[$0056f32c]
00564475 50               push eax
00564476 8D8514FFFFFF     lea eax,[ebp-$000000ec]
0056447C 50               push eax
0056447D E83E3FEAFF       call DispCallByIDProc
...
0056449B 6874465600       push $00564674
005644A0 6884465600       push $00564684
005644A5 A12CF35600       mov eax,[$0056f32c]
005644AA 50               push eax
005644AB 8D8510FFFFFF     lea eax,[ebp-$000000f0]
005644B1 50               push eax
005644B2 E8093FEAFF       call DispCallByIDProc

当存储在该临时位置的内部接口被清除时，该错误发生，这仅在第二次执行“for”情况时发生，因为在该接口中已经存储了一些东西 – 当“for”被调用时它被放在那里首次。在第二个示例中，使用两个位置，因此此内部接口始终初始化为0，并且根本不调用释放。

真正的错误是，这个内部接口包含垃圾，当Release被调用时，sh！t发生。

在一些更多的挖掘之后，我注意到释放旧接口的汇编代码是不一样的 – XE2版本缺少一个“mov eax，[eax]”指令。 IOW，

IDispatch(Result)._Release;

是一个错误，它真的应该是

IDispatch(Result.VDispatch)._Release;

讨厌的RTL错误。