Главная страница
    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
4-1268135204
somio
2010-03-09 14:46
2013.11.03
Как узнать права текущего пользователя Windows


15-1368891373
Разведка
2013-05-18 19:36
2013.11.03
Помогите устроится программистом


15-1365950832
anikos
2013-04-14 18:47
2013.11.03
Взрыв при попадании


1-1317722383
vlk32
2011-10-04 13:59
2013.11.03
Неправильно вычисляется лог.выражение


15-1368541324
Es
2013-05-14 18:22
2013.11.03
Падение приложения, crash без визуализации





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