Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure affichage-image_milieu_video_avi; var inputparm, rectparm : TMCI_ANIM_RECT_PARMS; //structure mmsystem begin // détermine l'image dessinée pour l'avi / milieu du film (mediaplayer est open) mediaPlayer.Position := mediaPlayer.length div 2; //commande mmsystem pour recuperer les coordonnées de la video chargée ci dessus ! mcisendcommand(deviceid,mci_where,mci_anim_where_source,longint(@rectparm)); application.processmessages; rect:= rectparm.rc;//affecte les coordonnées de la video à rect setpanelrect(rect, display); // procedure definissant la taille du panel pour affichage avi inputparm.rc:=rect; //recupère les coordonnées de la zone d affichage du mediaplayer //commande mmsystem pour forcer la video à se dessiner entièrement dans display mcisendcommand(deviceid,mci_put,MCI_ANIM_PUT_DESTINATION,longint(@inputparm)); end;