Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.11.03;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.003 c
15-1368995402
Юрий
2013-05-20 00:30
2013.11.03
С днем рождения ! 20 мая 2013 понедельник


2-1360311329
Camaro
2013-02-08 12:15
2013.11.03
снизить цену на определенный %


2-1360068267
vlad
2013-02-05 16:44
2013.11.03
Bass.dll


15-1368909003
Юрий
2013-05-19 00:30
2013.11.03
С днем рождения ! 19 мая 2013 воскресенье


2-1360143133
Dmitry1987
2013-02-06 13:32
2013.11.03
проектирование иерархии классов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский