Mediaplayer Pause Screen erstellen fehlt das Bild

[EWeiss]

Zitat von Medium:

Das DSPack ist recht handlich, wenn es darum geht Einzelbilder aus einem Video zu bekommen, dass einen beliebigen installierten Codec verwendet. (Die Codecs selber alle zu implementieren dürfte Mannjahre dauern.)

Bei AVI handhabe ich das so wobei ich direkt auf das Bitmap aus dem Stream zurückgreifen kann.
Siehe ..
BMP := AVIStreamGetFrame(GetFramePointer, frame);

Delphi-Quellcode:

procedure GetAVIFrame;
var
  Frame          : Integer;
  AVIElapsedTime : DWord;
  BMP            : ^TBITMAPINFOHEADER;

begin
  // Get the elapsed time. If the elapsed time is longer than the
  // video clip, then reset the elapsed time and video start
  AVIElapsedTime :=GetTickCount() - AVIStart;
  if AVIElapsedTime > AVILength then
  begin
    AVIStart :=GetTickCount();
    AVIElapsedTime :=0;
  end;

  // Get the next frame based on the elaped time
  Frame :=AVIStreamTimeToSample(AVIStream, AVIElapsedTime);
  if Frame <> ActiveFrame then
  begin
    ActiveFrame :=Frame;
{    // use this for uncompressed video ONLY
    AVIStreamRead(AviStream, Frame, 1, FrameData, AviInfo.dwWidth*AviInfo.dwHeight*3, nil, nil);
}
    // use this for compressed video
    BMP := AVIStreamGetFrame(GetFramePointer, frame);
    FrameData := Pointer(Cardinal(BMP) + BMP.biSize + BMP.biClrUsed*sizeof(RGBQUAD));
    // the drawdib function will uncompress the framedata as it tries to copy the BMP
    DrawDibDraw(0, H_DC, 0, 0, AviInfo.dwWidth, AviInfo.dwHeight, @BMP, FrameData, 0, 0, AVIInfo.dwWidth, AVIInfo.dwHeight, 0);

    SwapRGB(FrameData, AviInfo.dwWidth * AviInfo.dwHeight);  // Swap the BGR image to a RGB image

    glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, AviInfo.dwWidth, AviInfo.dwHeight, GL_RGB, GL_UNSIGNED_BYTE, FrameData);

  end;
end;

Zitat:

Die Codecs selber alle zu implementieren dürfte Mannjahre dauern.)

Das ist wohl war.

gruss

[Davidlocke13]

Warum kein Hardcopy ?
http://www.chip.de/downloads/Hardcopy_12998258.html

[Medium]

Das ist doch wieder so ein überflüssiges Programm Die Druck-Taste tut unter Win7 klaglos, und auch das Programm da wird keinen Grabber für DirectX Overlays an Bord haben, sei versichert.

Allerdings: Wenn man Aero aktiviert hat, geht tatsächlich ein einfaches GetDC(0) und daraus die entsprechende Stelle ausschneiden, da Win7 hier ohnehin den Screenshot aus DX holen muss (weil dann ja alles via DX dargestellt wird). Das geht ABER NUR wenn Aero an ist!

[blondervolker]

Hallo nochmal,

ich habe es auf eine ganz einfache Weise" selber lösen können.

Delphi-Quellcode:

procedure TForm18.AdvGlassButton11Click(Sender: TObject);
var Bitmap : TBitmap;
DC:HDC;
begin
DC:=GetDc(Panel1.Handle);
Bitmap:=TBitmap.Create();
Bitmap.Width:=Panel1.Width;
Bitmap.Height:=Panel1.Height;
mediaplayer1.Display.PaintTo(Bitmap.Canvas,0,0); BitBlt(Bitmap.Canvas.Handle,0,0,Panel1.Width,Panel1.Height,DC,0,0,SRCCOPY);
Clipboard.Assign(Bitmap);
Bitmap.Free;
end;

hab es probiert mit mpg,wmv. Geht gut! Bin gerade beim testen mit avi und
was der Mediaplayer sonst noch "FRIST"

[Medium]

Und dann mach das mal mit abgeschaltetem Aero

Edit: Warum erst noch das Mediaplayer1.Display.PaintTo, wenn du nachher eh vom Panel DC blittest?

[blondervolker]

Hab ich gerade auf 3 verschiedenen Rechnern probiert.Es geht.Bei mir kam keine Fehlermeldung.WIN XP,Vista,WIN7 ohne Aero...

[Medium]

Dann nutzt der Mediaplayer kein Direct2D bzw. DirectDraw. Schwein gehabt

(Trotzdem müsste das mediaplayer1.Display.PaintTo(Bitmap.Canvas,0,0); überflüssig sein.)

[himitsu]

Aero und spezieller der Windows-Desktop-Manager leitet gerne solche Sachen um, so daß sie dann doch direkt im Bild enthalten sind. (könnte aber auch sein, daß die es in diesen Programmen selber machen )
Ansonsten könnte man kein anderes Fenster halbtransparent davorlegen und hätte auch kein Bild in der Aerovorschau.

Was mit aber aufgefallen ist, als ich mal Screenshots machen wollte. Wenn man einen zweiten Videoplayer offen hat, der als erstes die Schnittstellen für's direkte Zeichnen blockioert, dann weichen der WMP und VLC aus und zeichnen auch direkt, so daß man da auch wieder "billige" Screenshots machen kann.