Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MP3 
:(
    Опции темы
Devostator
Дата 2.2.2005, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.8.2003

Репутация: нет
Всего: нет
Как в Дельфи проиграть МР3 файл??? Тока не через МедиаПлауер.
И еще плиз помогите!!!!! Мне ну очень нужно, чтобы FileListBox брал файлы из определенной папки, ну я хочу сделать что-то типа плей листа (как в винампе, тока чтобы он проигровал из FileListBox и фсе). Плиз!!! Кто знает???
PM MAIL   Вверх
Snowy
Дата 2.2.2005, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484
Набери в поиске по форуму MP3. Обсуждались разные варианты.
Рекомендую Bass. Там есть примеры и плейера, и грабера, и конвертера, и тагера, и вообще всего, что может потребоваться.
PM MAIL   Вверх
Satana
Дата 2.2.2005, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
вот нашел на торри за 20 сек попробуй должно помочь http://www.torry.net/vcl/sound/other/cmxmp310.zip

Это сообщение отредактировал(а) Satana - 2.2.2005, 18:37


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Devostator
Дата 2.2.2005, 23:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.8.2003

Репутация: нет
Всего: нет
Спасибо!!! Посмотрю щаЗ smile . Вот я слышал про Bass, тока незнаю, как в нем работать. Надо попробовать.
Добавлено @ 23:11
А где взять етот Bass?? Дайте линк smile
Добавлено @ 23:15
Нету по форуму ничего толкового по етой теме...... Жаль....... smile
PM MAIL   Вверх
Stalker Ghost
Дата 2.2.2005, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 11.11.2004
Где: между столом и ст улом

Репутация: 1
Всего: 2
Лови линк http://www.un4seen.com. Там можно скачать все вместе: саму bass и примеры работы с ней на Delphi, Visual Basic и С++ (не помню был ли это Builder o Visual)
PM MAIL MSN   Вверх
Devostator
Дата 2.2.2005, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.8.2003

Репутация: нет
Всего: нет
Как можно сделать так, чтобы при открывании через OpenDialog открывались сразу несколько mp3 файлов (как в Winamp'e). smile
Добавлено @ 23:40
А что именно качать?? У меня с англицким тугоsmile Там есть BassWMA, BASSCD, но нету BassMP3). Или я что-то попутал smile
PM MAIL   Вверх
Stalker Ghost
Дата 3.2.2005, 00:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 11.11.2004
Где: между столом и ст улом

Репутация: 1
Всего: 2
А BassMP3 не существует просто smile . Тебе надо Bass скачивать smile .

Цитата(Devostator @ 2.2.2005, 23:37)
Как можно сделать так, чтобы при открывании через OpenDialog открывались сразу несколько mp3 файлов (как в Winamp'e).


Ну я работал с Bass и загружал файлы в ListBox запоминая путь к ним.
Вот код, укороченный:
Код

unit unitMain;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 ComCtrls, StdCtrls, ExtCtrls, jpeg, Buttons,
 LittleButton, Menus, Bass, Dialogs;

type
  TfrmMain = class(TForm)
   lbList: TListBox;
   pmListAddItem: TPopupMenu;
   AddFile: TMenuItem;
   AddFolder: TMenuItem;
   pmListDeleteItem: TPopupMenu;
   DeleteSelected: TMenuItem;
   DeleteUnselected: TMenuItem;
   DeleteList: TMenuItem;
   odAddFile: TOpenDialog;
   pListControls: TPanel;
   lbAddToList: TButton;
   lbDeleteOfList: TButton;
   procedure DeleteListClick(Sender: TObject);
   procedure DeleteSelectedClick(Sender: TObject);
   procedure DeleteUnselectedClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure AddFileClick(Sender: TObject);
   procedure lbListDblClick(Sender: TObject);
   procedure lbAddToListClick(Sender: TObject);
   procedure lbDeleteOfListClick(Sender: TObject);

 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
   frmMain : TfrmMain;
    stream : HSTREAM;
   

implementation
{$R *.dfm}

type

  TFilePath=record
   FileName : string;
   FilePath : TStringList;
  end;

var    FI                   : TFilePath;
   Playing              : Boolean=False;
   Repeating            : Boolean=False;



{***Creacion & destrucion de la forma principal - inicio****}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
 // Chequear si BASS 2.0 se ha cargado
{версия} if (BASS_GetVersion <> DWORD(MAKELONG(2,0)))  then
 begin
   MessageBox(0, 'BASS versión 2.0 no ha sido cargada', 'Incorrecta BASS.DLL', 0);
   Halt;
 end;

 // Inicializar BASS; - dispositivo por defecto
 if (not BASS_Init(1, 44100, 0, Handle, nil)) then
 begin
   MessageBox(0, 'Imposible inicializar el dispositivo', 'Error', 0);
   Halt;
 end;
 
 FI.FilePath:= TStringList.Create;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
 BASS_Free;
 FI.FilePath.Destroy;
end;
{***Creacion & destrucion de la forma principal - final****}

procedure TfrmMain.DeleteListClick(Sender: TObject);
begin
//Limpiar la lista
if lbList.Items.Count<>0 then
   begin
    lbList.Clear;
    FI.FilePath.Clear;
   end;
end;

procedure TfrmMain.DeleteSelectedClick(Sender: TObject);
begin
//Eliminar lo selecionado
if lbList.Items.Count<>0 then lbList.DeleteSelected;
end;

procedure TfrmMain.DeleteUnselectedClick(Sender: TObject);
var i : integer;
begin
//Eliminar no seleccionado
if lbList.Items.Count<>0 then
  begin
   i:=0;
   while i<=lbList.Items.Count-1 do
    begin
     if not lbList.Selected[i] then
       begin
        lbList.Items.Delete(i);
        dec(i);
       end;
     inc(i);
    end;
  end;
end;

procedure TfrmMain.AddFileClick(Sender: TObject);
var i : integer;
begin
//Añadir archivos a la lista
 if odAddFile.Execute then
   for i:=0 to odAddFile.Files.Count-1 do
    begin
     FI.FilePath.Add(odAddFile.Files.strings[i]);
     FI.FileName:=ExtractFileName(odAddFile.Files.strings[i]);
     Delete(FI.FileName,length(FI.FileName)-3,4);
     lbList.Items.Add(FI.FileName);
    end;
 odAddFile.FileName:='';
end;

procedure TfrmMain.lbAddToListClick(Sender: TObject);
var x,y : integer;
begin
 //Sacar el menu Añadir en sitio adecuado
 x:=frmMain.Left+pListControls.Left+lbAddToList.Left;
 y:=frmMain.Top+pListControls.Top+lbAddToList.Top+lbAddToList.Height;
pmListAddItem.Popup(x,y);
end;

procedure TfrmMain.lbDeleteOfListClick(Sender: TObject);
var x,y : integer;
begin
//Sacar el menu Eliminar en sitio adecuado
x:=frmMain.Left+pListControls.Left+lbDeleteOfList.Left;
y:=frmMain.Top+pListControls.Top+lbDeleteOfList.Top+lbDeleteOfList.Height;
pmListDeleteItem.Popup(x,y);
end;

procedure TfrmMain.lbListDblClick(Sender: TObject);
var f: PChar;
begin
Playing:=False;
BASS_StreamFree(stream);
f := PChar(FI.FilePath.strings[lbList.ItemIndex]);
stream := BASS_StreamCreateFile(FALSE, f, 0, 0, 0);
gbPosition.Max := Trunc(BASS_ChannelBytes2Seconds(stream,
         BASS_StreamGetLength(stream)));
BASS_StreamPlay(stream, FALSE, 0);
Playing:=True;
end;

end.


OpenDialog options: [ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing]
ListBox multiselect: true

Ну и Popupы сотвестенно. Думаю что создашь сам

Пользуйся smile

Зы: может удалил чего-то лишнего - сообщай. Да и коментарии на испанском smile
И будь осторожен с версией Bass. Я использовал 2.0 а на станице уже 2.1

Это сообщение отредактировал(а) Stalker Ghost - 3.2.2005, 17:08
PM MAIL MSN   Вверх
Devostator
Дата 4.2.2005, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.8.2003

Репутация: нет
Всего: нет
ЛЮди!! У меня такая фигня, я скачал Bass 2.1 но не могу установить, может потому что у меня 6 версия Дельфи??
PM MAIL   Вверх
Snowy
Дата 4.2.2005, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484
Не можешь установить чего?
BASS это не компонент, а библиотека.
Бери примеры и смотри, как там делается работа с BASS.
BASS можно использовать из любой Delphi и вообще любого 32-бит компилятора/интерпретатора.
PM MAIL   Вверх
Devostator
Дата 4.2.2005, 23:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.8.2003

Репутация: нет
Всего: нет
Я один из примеров загрузил, а он не может найти библиотеку Bass, куда ету библиотеку пихать?
Объясните пжЛуста smile . Я в Delphi пол года, но еще не разу не загружал библиотеки......
PM MAIL   Вверх
Snowy
Дата 7.2.2005, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484
Ее нужно пихать в каталог с твоей программой.
Если юзаешь bass, то нужно таскать ее с собой в том же каталоге.
P.S. Как вариант в System32, но этот номер не всегда проходит - другие проги могут его юзать.
Добавлено @ 15:18
точнее юзать ту версию, которую кто-то положил туда до тебя.
PM MAIL   Вверх
Devostator
Дата 7.2.2005, 23:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.8.2003

Репутация: нет
Всего: нет
Спасибо! smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0531 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.