Operator will wieder nicht!

[EWeiss]

Hi

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);

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

Delphi-Quellcode:

CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN);

Warum?

gruss Emil

[SirThornberry]

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

[EWeiss]

Zitat:

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..

Delphi-Quellcode:

CanGoFullScreen := bool(dwCaps and EFFECT_CANGOFULLSCREEN);

Wenn ja , geht auch nicht.

gruss Emil

[DeddyH]

Delphi-Quellcode:

CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN) > 0;

[SirThornberry]

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.

Delphi-Quellcode:

CanGoFullScreen := Boolean((dwCaps and Byte(EFFECT_CANGOFULLSCREEN)));

[EWeiss]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

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

[EWeiss]

Thanks SirThornberry

Jetzt gehts ;)

Gruss Emil

[DeddyH]

Wenn Du es so machst, sollte es gehen:

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);

[EWeiss]

Zitat:

Zitat von DeddyH

Wenn Du es so machst, sollte es gehen:

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

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;

[SirThornberry]

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

[DeddyH]

Hallo,
mit

Delphi-Quellcode:

GetCapabilities(dwCaps);

bekommt er ja eine Longint befüllt. Also bleibt sich das im Endeffekt gleich, außer dass er bei einem Set die Konstantendefinition wie aus meinem Posting wählen müsste, um das Set zu befüllen und anschließend wieder abzufragen, oder habe ich da was falsch verstanden?

[EWeiss]

Zitat:

Zitat von DeddyH

Hallo,
mit

Delphi-Quellcode:

GetCapabilities(dwCaps);

bekommt er ja eine Longint befüllt. Also bleibt sich das im Endeffekt gleich, außer dass er bei einem Set die Konstantendefinition wie aus meinem Posting wählen müsste, um das Set zu befüllen und anschließend wieder abzufragen, oder habe ich da was falsch verstanden?

Hier mal die Function um sich ein Bild machen zu können. ;)

Delphi-Quellcode:

    // called to retrieive the capabilities of the effect (fullscreen? property page?, etc.)
procedure GetCapabilities(var pdwCapabilities : DWORD); safecall;

Delphi-Quellcode:

function GetCapabilities(var caps: LongInt): HRESULT;
Var
  DwVal: DWORD;

begin
  if Assigned(_IWmpEffects) then
    begin
      DwVal := 0;
      _IWmpEffects.GetCapabilities(DwVal);
      caps := DwVal;
      result := DwVal;
  end else
  result := -1;

end;

gruss Emil

[DeddyH]

Hab ich ja gesagt ;)

[Hawkeye219]

Hallo,

beim harten TypeCast mit Boolean ist zu beachten, daß dieser nur funktioniert, wenn der umzuwandelnde Wert (wie in diesem Beispiel) im Bytebereich liegt. Bei höheren Werten sollte man LongBool verwenden.

Gruß Hawkeye

[EWeiss]

Zitat:

Zitat von Hawkeye219

Hallo,

beim harten TypeCast mit Boolean ist zu beachten, daß dieser nur funktioniert, wenn der umzuwandelnde Wert (wie in diesem Beispiel) im Bytebereich liegt. Bei höheren Werten sollte man LongBool verwenden.

Gruß Hawkeye

Du meinst das wäre empfehlendswert ?
Oder kann ich es so belassen.

gruss Emil

[SirThornberry]

du kannst auch einfach anstelle des Casts auf > 0 prüfen (wie bereits oben gepostet (nicht von mir))

[Hawkeye219]

Hallo Emil,

Zitat:

Du meinst das wäre empfehlendswert ?
Oder kann ich es so belassen.

Es schadet nicht, wenn du auf LongBool umstellst. Sollten in Zukunft höhere Werte auftreten, ersparst du dir damit unter Umständen eine aufwendige Fehlersuche:

Delphi-Quellcode:

const
  EFFECT_ONLYFORDEMO = $00010000;
var
  value : Cardinal;
begin
  value := $ffffffff;

  if Boolean(value and EFFECT_ONLYFORDEMO) then
    ShowMessage ('sollte nicht angezeigt werden');

  if LongBool(value and EFFECT_ONLYFORDEMO) then
    ShowMessage ('sollte angezeigt werden');
end;

Die erste IF-Abfrage sieht doch gut aus, hättest du da einen Fehler vermutet?

Gruß Hawkeye

[EWeiss]

Zitat:

Zitat von Hawkeye219

Hallo Emil,

Zitat:

Du meinst das wäre empfehlendswert ?
Oder kann ich es so belassen.

Es schadet nicht, wenn du auf LongBool umstellst. Sollten in Zukunft höhere Werte auftreten, ersparst du dir damit unter Umständen eine aufwendige Fehlersuche:

Delphi-Quellcode:

const
  EFFECT_ONLYFORDEMO = $00010000;
var
  value : Cardinal;
begin
  value := $ffffffff;

  if Boolean(value and EFFECT_ONLYFORDEMO) then
    ShowMessage ('sollte nicht angezeigt werden');

  if LongBool(value and EFFECT_ONLYFORDEMO) then
    ShowMessage ('sollte angezeigt werden');
end;

Die erste IF-Abfrage sieht doch gut aus, hättest du da einen Fehler vermutet?

Gruß Hawkeye

Nein sieht und ist auf den ersten Blick ja auch das gleiche.
Habe trotzdem ein problem bekomme mit miner Funktion immer einen 0 wert zurückgeliefert müßte aber eigentlich FullScreen möglich sein.
Na muss mal schaun.

EDIT:
Funktioniert doch richtig ;)

gruss Emil