Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Народ подскажите как мне быть ? 


Cntcyz.cm crfpfnm cdjt bvz   (2001-09-21 21:12) [0]

Да вот начал я делать Media Player и тут у меня появился сразу несколько проблемы:
1. Как мне методом Drag-Drop загрузить файлы TMediaPlayer1 и при этом TMediaPlayer1 должен автоматический проиграть этот файл ?
2. Я использую ещё TFileListBox и TListBox1 и теперь как мне из
TFileListBox загрузить файлы в TListBox1 и при автоматический проигрывать каждый файл последовательно без остановки и ещё при этом ввести журнал историй ?



aus   (2001-09-22 05:57) [1]

1. Насчет Drag"n"Drop посмотри пример по использованию RichEdit (он открывает файл который на него бросаешь) в папке .......Borland\Delphi5\Demos\RichEdit.
2. У обоих есть св-ва типа TStrings (у TFileListBox, вродебы Files, а у TListBox - Items).
А для автоматической загрузки файла св-во AutoOpen = true, обрабатывай событие окончания файла (см. OnNotify) и давай новый Filename из твоего списка.
И в журнал этот Filename пиши (можно еще и текущее время Now).

Желаю удачи.



Cntcyz.cm crfpfnm cdjt bvz   (2001-09-22 19:55) [2]

а нельзя ли на примере все энто показать и коментарий добавить к этому примерчику, а то я новичок и толком не понял что ты сказал!



aus   (2001-09-24 13:32) [3]

На примере - это значит компонент написать за тебя? Извини...
По первому вопросу посмотри все-же пример.
По второму:
ListBox.Items.Assign(FileListBox.Files)
OnNotify - смотри в справке, если AutoOpen = true, будет проигрывать файл после присвоения нового значения свойству TMediaPlayer.Filename.

Procedure Form1.MediaPlayer1OnNotify(sender: TObject);
begin
with MediaPlayer1 do begin
if Mode = mpStopped then
FileName := ListBox1.Items[i];
Notify := true;
end;
end;
Примерно так.

end;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.036 c
7-22435           sssss                 2001-09-23 14:15  2002.01.08  
МАСТЕРЫЫЫЫ!!! ВОПРОС ЖИЗНИ И СМЕРТИ !!!!


1-22072           Гарик                 2001-12-19 11:08  2002.01.08  
Как создать экземпляр потомка TFrame динамически


4-22498           cher_gvf              2001-11-05 20:12  2002.01.08  
Как узнать запущен ли такой процесс?


14-22340          Yuraz                 2001-11-06 10:09  2002.01.08  
Люди, подскажите где Cookie в W2K хранятся, и как их грохнуть можно


14-22370          Zergg                 2001-11-08 16:30  2002.01.08  
Про статическую загрузку DLL из CBuilder