Hi

markieren

Delphi-Quellcode:

Type EffectsCapability =
   (EFFECT_CANGOFULLSCREEN = $00000001, // can the effect go full screen?
   EFFECT_HASPROPERTYPAGE = $00000002, // does the effect have a property page?
   EFFECT_VARIABLEFREQSTEP = $00000004, // should effect return frequency data with variable size steps?
   EFFECT_WINDOWEDONLY = $00000008,
   EFFECT2_FULLSCREENEXCLUSIVE = $00000010);

zusammenfalten · markieren

Delphi-Quellcode:

Var
   dwCaps : LongInt;
   CanGoFullScreen : boolean;
   WindowedOnly : boolean;
   FullScreenExclusive : boolean;

begin


  if not Assigned(_IWmpEffects) then
  begin
    result := false;
    exit;
  end;

  dwCaps := 0;
  GetCapabilities(dwCaps);

  CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN);

Fehler:

Zitat:

[Pascal Error] WMPUnit.pas(1198): E2015 Operator not applicable to this operand type

CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN); Warum?

gruss Emil

du versuchst einem Boolean Ordinalwert zu zuweisen (und einen Integer konnte man noch nie einem Boolean zuweisen). Ein einfacher Cast und es funktioniert.

Zitat von SirThornberry:

du versuchst einem Boolean Ordinalwert zu zuweisen (und einen Integer konnte man noch nie einem Boolean zuweisen). Ein einfacher Cast und es funktioniert.

Du meinst..
CanGoFullScreen := bool(dwCaps and EFFECT_CANGOFULLSCREEN); Wenn ja , geht auch nicht.

gruss Emil

CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN) > 0;

oh, ich seh gerade das EFFECT_CANGOFULLSCREEN kein Integer, Cardinal etc. ist sondern Teil eines Enums. Daher wäre es das sinnvollste dwCaps als "Set of" zu declarieren oder wenn es so bleiben soll wie es ist musst du EFFECT_CANGOFULLSCREEN auf Byte casten.
CanGoFullScreen := Boolean((dwCaps and Byte(EFFECT_CANGOFULLSCREEN)));

Zitat von DeddyH:

CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN) > 0;

Ja.
War mein ursprünglicher code.
Geht aber nicht!

[Pascal Error] WMPUnit.pas(1198): E2015 Operator not applicable to this operand type
[Pascal Warning] WMPUnit.pas(1198): W1023 Comparing signed and unsigned types - widened both operands

Gruss Emil

Thanks SirThornberry

Jetzt gehts

Gruss Emil

Wenn Du es so machst, sollte es gehen:

zusammenfalten · markieren

Delphi-Quellcode:

const EFFECT_CANGOFULLSCREEN = $00000001, // can the effect go full screen?
      EFFECT_HASPROPERTYPAGE = $00000002; // does the effect have a property page?
      EFFECT_VARIABLEFREQSTEP = $00000004; // should effect return frequency data with variable size steps?
      EFFECT_WINDOWEDONLY = $00000008;
      EFFECT2_FULLSCREENEXCLUSIVE = $00000010;

type EffectsCapability = (
        EFFECT_CANGOFULLSCREEN,
        EFFECT_HASPROPERTYPAGE,
        EFFECT_VARIABLEFREQSTEP,
        EFFECT_WINDOWEDONLY,
        EFFECT2_FULLSCREENEXCLUSIVE);

Zitat von DeddyH:

Wenn Du es so machst, sollte es gehen:

zusammenfalten · markieren

Delphi-Quellcode:

const EFFECT_CANGOFULLSCREEN = $00000001, // can the effect go full screen?
      EFFECT_HASPROPERTYPAGE = $00000002; // does the effect have a property page?
      EFFECT_VARIABLEFREQSTEP = $00000004; // should effect return frequency data with variable size steps?
      EFFECT_WINDOWEDONLY = $00000008;
      EFFECT2_FULLSCREENEXCLUSIVE = $00000010;

type EffectsCapability = (
        EFFECT_CANGOFULLSCREEN,
        EFFECT_HASPROPERTYPAGE,
        EFFECT_VARIABLEFREQSTEP,
        EFFECT_WINDOWEDONLY,
        EFFECT2_FULLSCREENEXCLUSIVE);

Hmmm ..

Ich habs jetzt so und müßte funktionieren.
Trotzdem Danke für die info

zusammenfalten · markieren

Delphi-Quellcode:

function BASS_WMPVIS_SetFullScreen(FullScreen: BOOL): boolean; stdcall;
Var
   hr : HRESULT;
   dwCaps : LongInt;
   CanGoFullScreen : boolean;
   WindowedOnly : boolean;
   FullScreenExclusive : boolean;

begin


  if not Assigned(_IWmpEffects) then
  begin
    result := false;
    exit;
  end;

  dwCaps := 0;
  GetCapabilities(dwCaps);

  CanGoFullScreen := Boolean((dwCaps and Byte(EFFECT_CANGOFULLSCREEN)));
  WindowedOnly := Boolean((dwCaps and Byte(EFFECT_WINDOWEDONLY)));
  FullScreenExclusive := Boolean((dwCaps and Byte(EFFECT2_FULLSCREENEXCLUSIVE)));

  if (not CanGoFullScreen or WindowedOnly or FullScreenExclusive) then
  begin
    result := false;
    exit;
  end;

  hr := GoFullscreen(FullScreen);
  Result := hr = S_OK;

end;

ein Set erscheint mir hier sonnvoller (dwCaps) - dann könnte man einfach mit "in" überprüfen.