Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Neuen Beitrag zur Code-Library hinzufügen (https://www.delphipraxis.net/33-neuen-beitrag-zur-code-library-hinzufuegen/)
-   -   Mediaplayer Pause Screen erstellen fehlt das Bild (https://www.delphipraxis.net/171613-mediaplayer-pause-screen-erstellen-fehlt-das-bild.html)

Medium 15. Nov 2012 11:24

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
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 15. Nov 2012 11:31

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
Hallo nochmal,

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

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":-D

Medium 15. Nov 2012 11:48

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
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 15. Nov 2012 12:00

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
Hab ich gerade auf 3 verschiedenen Rechnern probiert.Es geht.Bei mir kam keine Fehlermeldung.WIN XP,Vista,WIN7 ohne Aero...:-D

Medium 15. Nov 2012 12:39

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
Dann nutzt der Mediaplayer kein Direct2D bzw. DirectDraw. Schwein gehabt ;)

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

himitsu 15. Nov 2012 13:14

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
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 :gruebel:)
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.

blondervolker 15. Nov 2012 13:23

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
Vielleicht den Code wieder rausradieren:-D,nicht dass es sich
jemand von Meikroosoooftbande noch anders überlegt.:-D:shock:

Ja und der eeene Code ist überflüssig :cyclops:

lbccaleb 15. Nov 2012 22:18

AW: Mediaplayer Pause Screen erstellen fehlt das Bild
 
http://www.swissdelphicenter.ch/torr...de.php?id=1180
oder
http://www.codeproject.com/Articles/...Grabber-for-Gr


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:01 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz