And yes, I like to test your mediaplayer

Code: Select all
CreateImage(0,600,400,24)
Pos.q = MediaPosition(Media,#MEDIA_TIME_MSECS)
For nimg = 0 To 10
MediaSeek(Media2, Pos)
PlayMedia(Media2)
PauseMedia(Media2)
hdc = StartDrawing(ImageOutput(0))
BitBlt_(hdc, 0,0, 600,400, GetDC_(WindowID(2)),0,0, #SRCCOPY|#CAPTUREBLT|#NOMIRRORBITMAP)
StopDrawing()
Delay(1000)
SaveImage(0, "C:\PB_Player\Snapshots\"+Cap$+" "+Right(Str(im),2)+".png",#PB_ImagePlugin_PNG)
im+1
Pos + 1000
Next
dige wrote:@RASHAD: thank you very much! You can send it to me per email to: dige at gmx.de