Вверх ↑
Ответов: 1907
Рейтинг: 623
#1: 2017-06-27 21:27:37 ЛС | профиль | цитата
Nickname, попробуйте следующие: замените всю процедуру ThiMediaPlayerEx._var_FrameRate на этот код:
procedure ThiMediaPlayerEx._var_FrameRate;
var StatusParm: TMCI_Status_Parms;
begin
if FMedia.Width = 0 then
begin
dtReal(_Data, 0);
exit;
end;
StatusParm.dwItem := $400E{MCI_STATUS_TIME_FORMAT} and $7FFFFFFF;
mciSendCommand(FMedia.DeviceID, MCI_STATUS, MCI_WAIT or MCI_STATUS_ITEM, cardinal(@StatusParm));
dtReal(_Data, StatusParm.dwReturn / 1000);
end;
Что выдаст FrameRate?
карма: 9

0
Редактировалось 3 раз(а), последний 2017-06-27 21:28:31