DirectX9 Header für 64Bit

[EWeiss]

Zitat von Zacherl:

Benutzt du denn die von TiGü erwähnten mitgelieferten Header? Würde ich auch wärmstens empfehlen (die alten - manuellen - C-Ports haben teilweise diverse Bugs wie fehlende {$Z4} Direktiven, etc). Der Code 0x8876086C ist D3DERR_INVALIDCALL , könnte also gut sein, dass ein Delphi Enum mit 8-Bit in ein 64-Bit Register gepackt wird, ohne die unbenutzen Bytes zu clearen, weshalb die D3D API dann einen ungültigen Wert registriert.

Zitat:

Siehe Zacherls Beitrag!
Deine Funktion läuft hier mit der Winapi.Direct3D9-Unit problemlos in 64-Bit.
ErrStr = 'No Error' und m_pD3DDevice ist gefüllt.

Ja ich habe es versucht danach geht es.

Aber mir fehlen MediaTypen die im Code von Emba nicht enthalten sind.
bsp. MEDIATYPE_Subtitle, DXVA_ModeH264_E, DXVA_ModeH264_F (DirectShow9) und andere.

Delphi-Quellcode:

  {$EXTERNALSYM DXVA_ModeH264_E}
  DXVA_ModeH264_F   : TGUID = (D1:$1b81be69; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));

gruss

[Zacherl]

Zitat von EWeiss:

Aber mir fehlen MediaTypen die im Code von Emba nicht enthalten sind.

Ja, leider sind die offiziellen Header nicht immer die Aktuellsten Denke die fehlenden Werte in einer seperaten Unit nachzutragen ist dennoch einfacher, als die "alten" Header zu fixen.

[EWeiss]

Zitat von Zacherl:

Zitat von EWeiss:

Aber mir fehlen MediaTypen die im Code von Emba nicht enthalten sind.

Ja, leider sind die offiziellen Header nicht immer die Aktuellsten Denke die fehlenden Werte in einer seperaten Unit nachzutragen ist dennoch einfacher, als die "alten" Header zu fixen.

Ich habe die Header von Emba genommen DirectShow9 und Direct3D9 diese angepasst und jetzt läuft es mit 64Bit.
Muss das noch mit 32Bit testen denke aber das sollte auch funktionieren.

PS:
Nein muss die alten Header für 32Bit behalten.

Danke für die Hilfe..

gruss

[EWeiss]

Geht immer noch nicht wirklich.
1 Fehler in VMR7 Renderer funktioniert in 32Bit aber nicht in 64Bit

Fehler!
COM Error 0x80040227, The operation could not be performed because the filter is in the wrong state.
oder
COM Error 0x80040227, Der Vorgang konnte nicht ausgeführt werden, da der Filterstatus falsch ist.'

Delphi-Quellcode:

function TVMR7.SetBitmapFromImage(Image_: TBitmap; nAlpha: word; bitmapRect: TRECT): BOOL;
var
  hr: HRESULT;
  nRect: VMR9NormalizedRect;
  sRect, dRect: TRECT;
begin
  result := false;

  if (VMR7MixerBitmap = nil) then
  begin
       m_ErrorDescription := ReportError('Can''t set bitmap, no VMR7MixerBitmap', E_FAIL);
    exit;
  end;

  if Image_ = nil then
  begin
    alphaBitmap7.dwFlags := VMRBITMAP_DISABLE;
    hr := VMR7MixerBitmap.SetAlphaBitmap(alphaBitmap7);
    result := (SUCCEEDED(hr));
    if result then
      bIsOverlayImage := false;
    exit;
  end;

  // Accept only 32bit ARGB or 24bit RGB formatted image
  if (Image_.PixelFormat <> pf32bit) and (Image_.PixelFormat <> pf24bit) then
  begin
       m_ErrorDescription := ReportError('not a supported bitmap format', E_FAIL);
    exit;
  end;

  if not PrepareDDSurface(Image_, bitmapRect) then
    exit;

  if FAILED(m_pWindowless.GetVideoPosition(sRect, dRect)) then
    exit;

  nRect := NormalizeRect(sRect, bitmapRect);
  alphaBitmap7.dwFlags     := VMRBITMAP_ENTIREDDS;
  alphaBitmap7.hdc            := 0;
  alphaBitmap7.pDDS         := m_pDDSurface;
  alphaBitmap7.rDest.top   := nRect.top;
  alphaBitmap7.rDest.left := nRect.left;
  alphaBitmap7.rDest.bottom := nRect.bottom;
  alphaBitmap7.rDest.right    := nRect.right;
  alphaBitmap7.fAlpha       := nAlpha / 255.0;
  alphaBitmap7.clrSrcKey   := 0;

  // SHOW the bitmap
  hr := VMR7MixerBitmap.SetAlphaBitmap(alphaBitmap7); // Fehler nur unter 64Bit

  m_pWindowless.RepaintVideo(m_hMediaWindow, m_hMediaDC);
  result := (SUCCEEDED(hr));
  if result then
    bIsOverlayImage := true;
end;

getestet mit meinen und den direkten Headern von Emba /rtl/win
Der Video Renderer meldet keine Fehler (Filme spielen gut ab) nur das mit dem Overlay Bitmap will nicht.

gruss

[TiGü]

Nach einen minimalen Beispielprojekt zu fragen wird wahrscheinlich abgelehnt?

[EWeiss]

Zitat von TiGü:

Nach einen minimalen Beispielprojekt zu fragen wird wahrscheinlich abgelehnt?

Ich kann den Quellcode hochladen und dir den link dazu über PN mitteilen wenn das reicht.
Ein minimal Beispiel macht keinen sinn da zu viel davon abhängt das es komplett getestet wird.

gruss

[TiGü]

Zitat von EWeiss:

Zitat von TiGü:

Nach einen minimalen Beispielprojekt zu fragen wird wahrscheinlich abgelehnt?

Ich kann den Quellcode hochladen und dir den link dazu über PN mitteilen wenn das reicht.
Ein minimal Beispiel macht keinen sinn da zu viel davon abhängt das es komplett getestet wird.

gruss

Nein, das bedeutet wieder unglaublich viele Abhängigkeiten.
Du musst lernen deine Probleme auf minimale Beispiele runterzubrechen.
Jeder gute Programmierer musste durch diese harte Schule gehen.