Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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;



Страницы: 1 вся ветка

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

Наверх















Память: 0.82 MB
Время: 0.032 c
4-22465
AKV
2001-11-02 10:44
2002.01.08
как определить handle окна над которым находится мышь


1-22251
Dreamer
2001-12-17 14:17
2002.01.08
Подскажите начсет TLIST


1-22110
Катерина
2001-12-19 18:09
2002.01.08
слезно прошу помочь


3-21925
Nailka
2001-12-04 16:16
2002.01.08
проблема с поиском в поле типа Long в Oracle


14-22342
Дремучий
2001-11-05 18:52
2002.01.08
Конкурс! Обои для игры (сайта) Sea Fight!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский