Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Bass.dll [D7]

vlad © (2013-02-05 16:44:00)
Вопрос писателям плееров на Bass.dll - можно как нибудь через эту библиотеку достать из MP3 картинку обложки альбома (ну если конечно она там есть)?

vlad (2013-02-06 17:48:00) [1]
всем спасибо за помощь.

RWolf (2013-02-06 17:41:00) [2]
ID3V2GetPictureSizeW?

brother (2013-02-06 17:41:00) [3]
> так как, к примеру, PNG и др. форматы для 7-дельфи не пойдут

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

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

> 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 15:59:00) [5]
memorystream1.SetSize(size);
ID3V2GetPictureArrayW(memorystream1.Memory, size, index);
image1.Picture.LoadFromStream(memorystream1);

vlad (2013-02-06 15:35:00) [6]
Ну подскажите как в таком случае загрузить картинку в 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

vlad (2013-02-06 13:46:00) [7]
Что то вообще гугл вообще молчит - как картинку вытянуть

RWolf (2013-02-06 13:26:00) [8]

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

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

vlad (2013-02-06 13:06:00) [9]

> vlad (06.02.13 12:04) [2]

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

RWolf (2013-02-06 12:56:00) [10]
для audiogenie? по этой же ссылке, второй пост.

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

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

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

RWolf (2013-02-05 17:03:00) [12]
http://www.un4seen.com/forum/?topic=12835.0

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »