Listing 4

//Videoupdate für TMediaplayer

procedure Update(DeviceID: Word; DisplayHandle: HWND);
var
   UpdateParms : TMCI_ANIM_UPDATE_PARMS;
   errval : MCIERROR;
   errString : array [0..255] of char;
 
begin
     //DeviceID: etwa Mediaplayer1.DeviceID
    //DisplayHandle: etwa Form1.handle (oder anderes Videodisplay mit Fensterhandle);
     UpdateParms.dwCallback := DisplayHandle;
     UpdateParms.hDC:= GetDC(DisplayHandle);
     errval := mciSendCommand(DeviceID, MCI_UPDATE,
     MCI_ANIM_UPDATE_HDC + MCI_NOTIFY, DWORD(@UpdateParms));
     if errval <> 0 then
     begin
        mciGetErrorString(errval, errString, 255);
        MessageBox(Handle, errString, 'MCIPlayer', MB_ICONWARNING+MB_OK);
     end;
end;

Zurück zur Hauptseite