AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Mediaplayer Pause Screen erstellen fehlt das Bild

Mediaplayer Pause Screen erstellen fehlt das Bild

Ein Thema von blondervolker · begonnen am 15. Nov 2012 · letzter Beitrag vom 15. Nov 2012
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#1

Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 09:21
Hallo,

Ich wollte im Mediaplayer auf Pause stellen und dann mit einem
Button ein Bild erstellen und in ZW-Ablage speichern.
Die Form ist ist zwar komplett als Bild vorhanden,nur der Inhalt
des "Bildes vom Mediaplayer" is weechh...


Hat jemand eine Idee wie das funktioniert?

Delphi-Quellcode:
procedure TForm18.AdvGlassButton11Click(Sender: TObject);
var
Bitmap:TBitmap;
begin
Bitmap:=GetFormImage;
try
Clipboard.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;
www.bewerbungsmaker.de
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 09:34
Such mal nach Hier im Forum suchenMediaplayer Screenshot, da müsste sich etwas finden lassen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#3

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 09:41
Hab ich schon gesucht wie ein Blödi,noch nix gefunden...
www.bewerbungsmaker.de
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 09:48
Wie man hier lesen kann, ist das Ganze gar nicht ohne, da muss man wohl auf DirectX zurückgreifen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 10:17
Wie man hier lesen kann, ist das Ganze gar nicht ohne, da muss man wohl auf DirectX zurückgreifen.
Den muss ich beipflichten..

Es sei denn man liest die Video Datei in einen stream und greift auf das gerade abgespielte Frame zu.
Mit AVI habe ich es schon gemacht mit dem Mediaplayer dürfte das etwas komplizierter werden abhängig vom Codec
der verwendet wird beim abspielen.

gruss
  Mit Zitat antworten Zitat
Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#6

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 10:20
Also würde das bedeuten,ich kann ein Srceen vom Frame erstellen?
Oder sehe ich das falsch?
www.bewerbungsmaker.de
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#7

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 10:24
Also würde das bedeuten,ich kann ein Srceen vom Frame erstellen?
Oder sehe ich das falsch?
Ja wenn du an das aktuelle frame herankommst

gruss
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.679 Beiträge
 
Delphi 2007 Enterprise
 
#8

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 10:27
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.)
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#9

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 10:31
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
  Mit Zitat antworten Zitat
Benutzerbild von Davidlocke13
Davidlocke13

Registriert seit: 19. Sep 2012
Ort: MD (Sachsen-Anhalt)
166 Beiträge
 
Delphi 2010 Enterprise
 
#10

AW: Mediaplayer Pause Screen erstellen fehlt das Bild

  Alt 15. Nov 2012, 11:53
Warum kein Hardcopy ?
http://www.chip.de/downloads/Hardcopy_12998258.html
David
ApfelsineMandarineAllesGleich
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:30 Uhr.
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