IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Procedure Getproperties - Help!, GetProperties
сообщение
Сообщение #1


Гость






mega_chok.gif Помогите!!!!!! Я не понимаю как использовать следующий код

procedure TForm1.GetProperties(FileName: String; var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);
begin
MediaPlayer1.FileName := FileName;
MediaPlayer1.Wait := False;
MediaPlayer1.Open;
MediaPlayer1.TimeFormat := tfFrames;
MediaFrames := MediaPlayer1.Length;
MediaPlayer1.TimeFormat := tfMilliseconds;
MediaLength := MediaPlayer1.Length;
MediaPlayer1.DisplayRect := Rect(1, 1, 0, 0);
MediaWidth := MediaPlayer1.DisplayRect.Right;
MediaHeight := MediaPlayer1.DisplayRect.Bottom;
if (MediaWidth <= 0) or (MediaHeight <= 0) then begin
{íåïðàâèëüíûå çíà÷åíèÿ îçíà÷àþò, ÷òî ýòî íå âèäåî-ôàéë}
MediaWidth := 0;
MediaHeight := 0;
end;

Куда его вставлять? В TListView? ПППППЛЛЛЛЛИИИИИИИИИЗЗЗЗЗЗЗЗЗЗЗЗЗ!!!!!!!
MediaPlayer1.Close;
end;
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.09.2021 20:38
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name