Воспроизведение звука

[Skythrone]

Приветствую, коллеги!

Разбираюсь с возможностью воспроизведения звука.
Пока что вижу только возможность работы через стандартные возможности MP - через OpenPlayer, StartPlayer и т.п.

Но при этом предполагается, что плеер читает данные из ресурса:

function OpenPlayer(resource:string; mimetype:string):boolean;

А можно ли сделать так, чтобы он брал данные для проигрывания, наприме, из строки, загружаемой с сервера?

[ViNT]

Напрямую открыть поток с сервера вроде можно (в смысле, в джаве можно, т.е. либу писать надо), а вот из строки врядли получится, плееру именно InputStream нужен, или прямой URL файла на сервере.

[Piligrim]

ViNT, может добавь в свою mmapi библиотеку универсальное открытие?

            P.p = Manager.createPlayer(s);

В таком виде он берёт файл и из ФС и с сервера по http

[Skythrone]

Да, это было бы замечательно!

Полагаю, данная либа будет полезна не только мне, но многим форумчанам.

[ViNT]

Завтра откопаю исходник и добавлю функцию.

[Skythrone]

ViNT, если сможешь добавить данную функцию, буду очень тебе благодарен.

Это же рально круто, это позволит делать больше мультимедийных мидлетов.

[ViNT]

Добавил открытие URL, обновил здесь - http://forum.boolean.name/showthread.php?p=39187

[Winner]

Аналагичной темы на форуме не нашел, потому напишу тут. Если на форуме уже есть где-то ответ, просто скиньте ссылку.

В общем воспользовался русской справкой и нашел, как запустить свой звук в программе. Звук я предварительно кинул в папку ресурсов, но при компиляции выдает 2 ошибки.

Вот моя прога:

begin
openPlayer ('/Simply.wav','audio/x-wav');
startPlayer;
    if not openPlayer('/Simply.wav', 'audio/x-wav') then halt;    
    if not setPlayerCount(-1) then halt; 
    if not startPlayer then halt; 
    delay(5000);    
end. 


Выдает 2 ошибки на строках
openPlayer ('/Simply.wav','audio/x-wav');
startPlayer;

function 'openPlayer' cannot be called from here; procedure call or assignement expected
function 'startPlayer' cannot be called from here; procedure call or assignement expected


Помогите разобраться.

[Skythrone]

Сообщение от Winner

Вот моя прога:

begin
openPlayer ('/Simply.wav','audio/x-wav');
startPlayer;
    if not openPlayer('/Simply.wav', 'audio/x-wav') then halt;    
    if not setPlayerCount(-1) then halt; 
    if not startPlayer then halt; 
    delay(5000);    
end. 


Надо вызывать так:

var workbool: boolean;
.......
workbool:=OpenPlayer(.....); 


[Winner]

Спасибо большое! Разобрался.