Mediaplayer Pause Screen erstellen fehlt das Bild

[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"