Supports verständnis problem

[Sir Rufo]

Du kannst das auch so schreiben (wird dann evtl. verständlicher)

Delphi-Quellcode:

function TWMPHelper.InitVis(VisGUID: TGuid; PresetIndex: Integer): Bool;
var
  ObjInstance : IUnknown;
begin
  Result := False;

    if CoCreateInstance(VisGUID, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
      IUnknown, ObjInstance) = S_OK then
    begin
      // Versuch auf IWmpEffects zu casten. Bei einem Fehlschlag,
      // wird Nil zurück gegeben und die ObjInstance
      // unterstützt das Interface IWmpEffects nicht.

      if Supports( ObjInstance, IID_IWMPEffects, _IWmpEffects ) then

        // Versuch auf IWmpEffects2 zu casten. Bei einem Fehlschlag,
        // wird Nil zurück gegeben und die ObjInstance
        // unterstützt das Interface IWmpEffects2 nicht.

        if Supports( ObjInstance, IID_IWMPEffects2, _IWmpEffects2) then

          // wird das Interface IWmpEffects2 unterstützt, brauchen
          // wir das Interface IWmpEffects nicht mehr.

          _IWmpEffects := nil;

      // Erstes Preset setzen. Das muss sein da es ansonsten bei
      // einigen Visualisierungen zu einer AccessViolation Exception führt.
      SetCurrentPreset(PresetIndex);

      Result := True;
    end;

end;

oder auch so

Delphi-Quellcode:

function TWMPHelper.InitVis(VisGUID: TGuid; PresetIndex: Integer): Bool;
var
  ObjInstance : IUnknown;
begin
  Result := False;

    if CoCreateInstance(VisGUID, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
      IUnknown, ObjInstance) = S_OK then
    begin

      // Versuch auf IWmpEffects2 zu casten. Bei einem Fehlschlag,
      // wird Nil zurück gegeben und die ObjInstance
      // unterstützt das Interface IWmpEffects2 nicht.

      if Supports( ObjInstance, IID_IWMPEffects2, _IWmpEffects2 ) then
        _IWmpEffects = nil
      else
        // Versuch auf IWmpEffects zu casten. Bei einem Fehlschlag,
        // wird Nil zurück gegeben und die ObjInstance
        // unterstützt das Interface IWmpEffects nicht.

        Supports( ObjInstance, IID_IWMPEffects, _IWmpEffects);

      // Erstes Preset setzen. Das muss sein da es ansonsten bei
      // einigen Visualisierungen zu einer AccessViolation Exception führt.
      SetCurrentPreset(PresetIndex);

      Result := True;
    end;

end;