Ну вообшем,отправили от колледжа на практику и сказали сделать код МультиМедияПроигрователь,ну конечно не виндовс медия плейер, но попроше я даже не щнаю с чего начать и подскажите в какой среде лучше писать Java или ещё в чем-то а если есть уже код то выложите чень буду блогадарен!

Проще всё же будет в Дельфи Там компоненты готовые. Заодно и с кодеками заморочки не будет. Можешь хоть windows media player накликать . Но на яве было бы намного интереснее. Так как отдельные проекты для проигрывания звука и виде существуют, но полностью такого Медиа-Плеера мне на глаза не попадалось.

Цитата(sergej @ 19.9.2005, 12:44)

Так как отдельные проекты для проигрывания звука и виде существуют, но полностью такого Медиа-Плеера мне на глаза не попадалось.

В состав Java Media Framework входит простенький проигрыватель.

Цитата

В состав Java Media Framework входит простенький проигрыватель.

А в соседней дирректории и исходники приложены...

Цитата(LSD @ 19.9.2005, 11:28)

В состав Java Media Framework входит простенький проигрыватель.

Он с кодеками работает или только определённые типы файлов проигрывает? Он опенсорс?

Нет с кодеками он не работает.
Вроде там обычная лицензия Sun.

sergei.z как ты думаешь шанс есть написать его на делфи если не зная язык.т.е. быстренько прочитать разобраться и написать за 1 месяц?

Господа, с такими обсуждениями - в другой раздел.

Имхо, с мультимедиа в Delphi проще начать работать, чем в Java.

da v delphi nado:)

Цитата(HELP2ME @ 19.9.2005, 14:36)

sergei.z как ты думаешь шанс есть написать его на делфи если не зная язык.т.е. быстренько прочитать разобраться и написать за 1 месяц?

Зависит от твоих способностей В принципе, если ты пару языков прог-я уже знаешь, то наверное реально.

Тема перемещена в "Разные вопросы"

da mne v kolledze Borland C++ za 2 nedeli prpadali...

Цитата(HELP2ME @ 19.9.2005, 17:21)

da mne v kolledze Borland C++ za 2 nedeli prpadali...

Однако сильно!!!! :-))))))))

da ne o4en';(

если ты хочешь, чтоб тебе сунули готовые исходники - иди на другой форум. вот помочь - пожалуйста. для начала определись с языком. имхо для таких штук ВБ рулит. у меня есть пара актив'иксов для аудио/видео, могу кинуть на мыло. в общем, по ходу дела спрашивай ;)

зы а зачем 2 темы-то создавать?

Я ДУмаю Делфи. Там есть готовые компоненты Delphi 5 -пару строк кода написать.

вы вот строки кода считаете..
а ведь человек ничему не научится, если пару строк напишет. зафиг тогда вообще учиться?

Цитата(HELP2ME @ 19.9.2005, 16:36)

sergei.z как ты думаешь шанс есть написать его на делфи если не зная язык.т.е. быстренько прочитать разобраться и написать за 1 месяц?

Да не проблема, на делфе он пишется за 2-3 часа, со всеми наворотами ака плэйлист, показ времени, громкость и т.д.

Хех поехали...
Открываем делфи и на появившуюся форму кладем MediaPlayer со вкалдки System.
В его свойстве VisibleButtons ставим False напротив btRecord и btEject.
Дальше кладем на ворму компанент ListBox со вкалдки Standart (это будет нашь плэйлист)
Ьросаем тудаже компанент OpenDialog со вкладки Dialogs (в нем мы будем файлы выбирать, которые в плэйлист совать).
Ну и на поледок бросаем 2-е кнопки ака Button в свойстве caption первой кнопки пишем Add to List в свойствах второй пишем Exit.
Дальше дело техники - тыкаем на первую кнопку два раза и пишем что нить вроде этого:

Код

procedure TForm1.Button1Click(Sender: TObject); begin   if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);     //Помещаем путь к файлу в нашь лист end;

Выделяем наш ListBox и в его Events тыкам дважды в OnDblClick пишем такой код:

Код

procedure TForm1.ListBox1DblClick(Sender: TObject); begin   MediaPlayer1.Close; //Закрываем предыдущий файл, на всякий случай   MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex]; //Загружаем новый файл из плэй листа   MediaPlayer1.Open; //Открываем новый файл end;

Ну и наконец, тыкаем дважды на вторую кнопку и пишем

Код

procedure TForm1.Button2Click(Sender: TObject); begin   Close; end;

Все.....F9 и приметивный плэер готов!
Добавлено @ 11:18
Вот полный код юнита

Код

unit Unit1; interface uses   Forms, Dialogs, MPlayer, StdCtrls, Classes, Controls; type   TForm1 = class(TForm)     MediaPlayer1: TMediaPlayer;     Button1: TButton;     Button2: TButton;     ListBox1: TListBox;     OpenDialog1: TOpenDialog;     procedure Button1Click(Sender: TObject);     procedure ListBox1DblClick(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin   MediaPlayer1.Close;   MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex];   MediaPlayer1.Open; end; procedure TForm1.Button2Click(Sender: TObject); begin   Close; end; end.

Это сообщение отредактировал(а) ~FoX~ - 22.9.2005, 11:23