Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.11.03;
Скачать: CL | DM;

Вниз

Bass.dll   Найти похожие ветки 

 
vlad   (2013-02-05 16:44) [0]

Вопрос писателям плееров на Bass.dll - можно как нибудь через эту библиотеку достать из MP3 картинку обложки альбома (ну если конечно она там есть)?


 
RWolf ©   (2013-02-05 17:03) [1]

http://www.un4seen.com/forum/?topic=12835.0


 
vlad   (2013-02-06 12:04) [2]


> RWolf ©   (05.02.13 17:03) [1]


Библиотеку DLL нашел, документацию нашел.
А офф сайт с которого можно скачать PAS модуль для работы с этой библиотекой не нашел.


 
RWolf ©   (2013-02-06 12:56) [3]

для audiogenie? по этой же ссылке, второй пост.


 
vlad   (2013-02-06 13:06) [4]


> vlad   (06.02.13 12:04) [2]


То класс для VBasic.
но нашел я уже на соурсфорсе нужный PAS.
Лопачу теперь доки - ищу как вытянуть картинку в TImage


 
RWolf ©   (2013-02-06 13:26) [5]


> То класс для VBasic.

а каталогом выше — для всего остального.


 
vlad   (2013-02-06 13:46) [6]

Что то вообще гугл вообще молчит - как картинку вытянуть


 
vlad   (2013-02-06 15:35) [7]

Ну подскажите как в таком случае загрузить картинку в TImage

Int32 ID3V2GetPictureArrayW(Pointer pointer, UInt32 maxLen, Int16 index)

Datatype | Identifier  | Description
Pointer    | pointer     | to a Byte array
UInt32     | maxLen    | maximum size of the byte array

Int16 index index from 1 to picture frame count


 
RWolf ©   (2013-02-06 15:59) [8]

memorystream1.SetSize(size);
ID3V2GetPictureArrayW(memorystream1.Memory, size, index);
image1.Picture.LoadFromStream(memorystream1);


 
vlad   (2013-02-06 17:07) [9]


> RWolf ©   (06.02.13 15:59) [8]


Спасибо, понятно.

В моем случае рабочий код вот(так как, к примеру, PNG и др. форматы для 7-дельфи не пойдут):


 {-------------------------------------------------------------}
 AudioGenie.AUDIOAnalyzeFileW(AMp3File^.path+"\"+AMp3File^.name);
 MimeType := AudioGenie.ID3V2GetPictureMimeW(1);

 if(MimeType = "image/jpeg") then
 begin
   size := 650000;
   MemStream := TMemoryStream.Create;
   JpegImage := TJPEGImage.Create;

   MemStream.SetSize(size);
   AudioGenie.ID3V2GetPictureArrayW(MemStream.Memory, size, 1);
   MemStream.Position := 0;
   JpegImage.LoadFromStream(MemStream);
   CoverImg.Picture.Assign(JpegImage);
 end;  
 {-------------------------------------------------------------}


у меня один вопрос остался: можно ли точно под размер файла определить SIZE


 
RWolf ©   (2013-02-06 17:41) [10]

ID3V2GetPictureSizeW?


 
brother ©   (2013-02-06 17:41) [11]

> так как, к примеру, PNG и др. форматы для 7-дельфи не пойдут

с чего бы? скайчай доп модули...


 
vlad   (2013-02-06 17:48) [12]

всем спасибо за помощь.



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

Текущий архив: 2013.11.03;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.006 c
1-1316688285
denkop
2011-09-22 14:44
2013.11.03
TImage над TStringGrid


15-1366275194
Cobalt
2013-04-18 12:53
2013.11.03
браузеры на Андроиде


3-1293438440
avers_sm
2010-12-27 11:27
2013.11.03
Как передать TIBTransaction в качестве параметра процедуры.


15-1368966000
Interrupted++
2013-05-19 16:20
2013.11.03
Проблемы с внешним хардом.


2-1360298852
Andrey K
2013-02-08 08:47
2013.11.03
Вкладка Diagram