Lib_medialist - Получение списка медиаформатов, поддерживаемых телефоном

[odd]

Бывает нужно знать точно поддерживает ли телефон данный формат музыки или картинки. В этом случае пригодится эта маленькая библиотечка.

Функции такие:

GetMediaList - Считать список поддерживаемых форматов во временный массив;
integer GetMediaMax - Возвращает общее количество поддерживаемых форматов (вызывается только после GetMediaList);
string GetMedia(i: integer) - Получить название i-го формата (принимает значения от 0 до GetMediaMax-1);
MediaClean - Очистить временный массив с названиями форматов.

Простейший пример использования:

Program MediaTest;
Uses medialist;
Var    i, j: integer;
Begin
    GetMediaList;
    ShowForm;
    j:=FormAddString('Всего форматов: '+GetMediaMax+chr(10));
    for i:=0 to getmediamax-1 do j:=FormAddString(getmedia(i) + chr(10));
    Repaint;    
    Delay(50000);
End. 


[Skythrone]

odd, а почему твоя либа не показывает, что доступны форматы image/png и (или) image/jpeg ?

Это так и задумано?

[odd]

У меня всё нормально показывает. На SE показывает 41 элемент. В том числе и вышеупомянутые. А вот на эмуляторе может показывать всякий бред.