delphi - 在这种情况下，为什么需要在调用 AviFileExit() 之前取消 IAviFile 指针？

Question

我发现了一个 Stack Overflow 帖子，其中包含一个示例，展示了如何获取 AVI 文件的持续时间:

Getting AVI file duration

我在 Delphi 6 应用程序中根据我的目的对其进行了修改，并创建了以下代码。最初，我在调用 AviFileExit() 之前删除了对 IAviFile 指针进行核攻击的行。但是当我这样做时，当调用 AviFileExit() 时，我遇到了访问冲突。我恢复了线路，访问冲突就消失了。

为什么在调用 AviFileExit() 之前需要取消 IAviFile 引用？这是内存泄漏吗？我认为正常的接口(interface)引用计数在这里可以正常工作，但显然它不能。是否有其他方法可以消除错误，例如调用 AviStreamRelease() 等？

这是我的代码:

function getAviDurationSecs(theAviFilename: string): Extended;
var
    aviFileInfo : TAVIFILEINFOW;
    intfAviFile : IAVIFILE;
    framesPerSecond : Extended;
begin
    intfAviFile := nil;

    AVIFileInit;

    try
        // Open the AVI file.
        if AVIFileOpen(intfAviFile, PChar(theAviFilename), OF_READ, nil) <> AVIERR_OK then
            raise Exception.Create('(getAviDurationSecs) Error opening the AVI file: ' + theAviFilename);

        try
            // Get the AVI file information.
            if AVIFileInfoW(intfAviFile, aviFileInfo, sizeof(aviFileInfo))  <> AVIERR_OK then
                raise Exception.Create('(getAviDurationSecs) Unable to get file information record from the AVI file: ' + theAviFilename);

            // Zero divide protection.
            if aviFileInfo.dwScale < 1 then
                raise Exception.Create('(getAviDurationSecs) Invalid dwScale value found in the AVI file information record: ' + theAviFilename);

            // Calculate the frames per second.
            framesPerSecond := aviFileInfo.dwRate / aviFileInfo.dwScale;

            Result := aviFileInfo.dwLength  / framesPerSecond;
        finally
            AVIFileRelease(intfAviFile);
            // Commenting out the line below that nukes the IAviFile
            //  interface reference leads to an access violation when
            //  AVIFileExit() is called.
            Pointer(intfAviFile) := nil;
        end;
    finally
        AVIFileExit;
    end;
end;

Answer 1

您必须手动清除变量，因为 Delphi 不知道 AVIFileRelease()发布了接口(interface)。 AVIFileRelease()不将变量设置为 nil对于你来说，所以变量仍然有一个非零值。如果您不手动清除它，Delphi将尝试调用Release()当变量超出范围时(在 AVIFileExit() 调用之后)并崩溃。

IAVIFile接口(interface)是 IUknown后代，所以我不知道为什么微软创建了 AVIFileRelease()功能放在第一位。它会减少接口(interface)的引用计数，并在计数降至零时执行清理。接口(interface)背后的实现可以简单地在内部处理该问题，而不需要显式函数。所以这是微软的坏处。