Mediaplayer Pause Screen erstellen fehlt das Bild

[blondervolker]

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;

[DeddyH]

Such mal nach Mediaplayer Screenshot, da müsste sich etwas finden lassen.

[blondervolker]

Hab ich schon gesucht wie ein Blödi,noch nix gefunden...

[DeddyH]

Wie man hier lesen kann, ist das Ganze gar nicht ohne, da muss man wohl auf DirectX zurückgreifen.

[EWeiss]

Zitat von DeddyH:

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

[blondervolker]

Also würde das bedeuten,ich kann ein Srceen vom Frame erstellen?
Oder sehe ich das falsch?

[EWeiss]

Zitat von blondervolker:

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

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

[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