Итак, при запуске качается MP3 файлик из инета, затем проигрывается. После этого должно быть повторение, но файл не удаляется, пишет, что он занят мною! Как его освободить/удалить?

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

>А что связывает все три предложения между собой?
--
Скачивание - сохранение - проигрывание - (второе повторение цикла) - скачивание - не удается сохранить (перезаписать) или удалить.

http://delphi.about.com/od/multimedia/l/aa112800a.htm

>http://delphi.about.com/od/multimedia/l/aa112800a.htm
--
Юзаю BASS

(2) потому, что ты файл не закрываешь.
юзай CloseFile() или чего там у вас в этих ваших обдолбаных дельфях

(2) потому, что ты файл не закрываешь.
юзай CloseFile() или чего там у вас в этих ваших обдолбаных дельфях
--
Нет переменной файла. Его BASS открывает.

(7) Открывать-то открывает... А закрывать кто будет?

про дестрой объекта ещё не говорили?

(7) Открывать-то открывает... А закрывать кто будет?
--
как?

про дестрой объекта ещё не говорили?
--
а потом заново создавать? и как отвечать на пост?

(7) я в душе ниипу, кто этот BASS, но я ставлю дайм, что он умеет не только открывать файлы, но  закрывать их.
И заказнчивай оверквотить - номера постав в скобках вполне достаточно для того, чтобы понять, на что ты отвечаешь

(10) Ты код свой покажи. А то кто ж его знает, что ты там делаешь.

(11) отвечать на пост очень просто: (НомерПоста) _ТУТ_ТЕКСТ_ОТВЕТА_

(13)
ПЛИЗ НЕ СМЕЙТЕСЬ!
procedure TForm1.Button1Click(Sender: TObject);
var
 LoadStream: TMemoryStream;
 i: boolean;
 a, b: integer;
 o: string;
 Flags: TReplaceFlags;
begin
 CreateDir('cache');
 randomize;
 b := random(1000000);
 o := StringReplace(Application.Exename, 'read.exe', '', Flags);
 LoadStream := TMemoryStream.Create;
 IdHTTP1.Get('ссылка', LoadStream);
 IdHTTP1.Disconnect;
 LoadStream.SaveToFile('cache\' + IntToStr(b) + '.mp3');
 BASS_PlaySoundFile('cache\' + IntToStr(b) + '.mp3');
 LoadStream.Free;
 DeleteFile(o + 'cache\' + IntToStr(b) + '.mp3'); //вот тут нифига
end;

а если строчку с BASS закомментить - даёт удалить?

(16) Да!

(15) Попробуй вместо BASS_PlaySoundFile использовать BASS_StreamCreateFile и BASS_ChannelPlay, а в конце - сказать BASS_ChannelStop

(18) сек, попробую

(18) ого там параметров! что в них надо писать?

(19) А если не получится - почитай документацию по BASS :-)

(20) см. (21)

+(18) И в конце BASS_StreamFree

(17)а что в  BASS_PlaySoundFile()?

(15) читай мануал к инструменту ПЕРЕД использованием
http://www.un4seen.com/doc/bass/BASS_StreamFree.html

вот из за таких школьников, дельфистов и зовут "Помогите найти компонент"

виноват... без вброса не получилось...

(24) А там и есть те вызовы, которые в (18) :-)

(24) Играет он кагбэ

(28) ты не мудри, ты код кажи

(25) Никогда не просил найти компонент)

(29) function TForm1.BASS_PlaySoundFile(const FileName: string): Boolean;
var
 ChannelInfo: BASS_CHANNELINFO;
begin
 Result:= False;
 Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
 if (Channel <> 0) then
 ChannelType:= ctStream;
 if (Channel <> 0) then
 begin
   BASS_ChannelPlay(Channel, False);
 end;
 Result:= Channel <> 0;
end;

(28) Нет, он не "кагбэ играет". Он вызывает более другие функции, в которых самый прикол и есть.

(30) просить почитать за тебя мануал, ИМХО, - еще срамнее

(33) Однако цели товарисч добился - мануал ему таки сюда запостили.
А что нехорошими словами шутили - так "плюнь в глаза - а ему божья роса".

Лан, ок, последний вопрос. Как делать ChannelStop уже когда все проигралось?

(35) Иди читай мануал.

(36) не нашел

(35) в мануале этот вопрос освещен.
Вызывай BASS_ChannelStop и передавай ему дескриптор канала, полученный от BASS_StreamCreateFile.
(37) иди менять профессию тогда

если тебе в итоге файл на диске не нужен, проигрывай его вообще из памяти, не мусори на диске

Всем спс разобрался. Сделал так:
repeat
   BASS.BASS_ChannelStop(Channel);
   BASS.BASS_StreamFree(Channel);
 until BASS_StreamGetFilePosition(Channel, BASS_FILEPOS_END) <> BASS_StreamGetFilePosition(Channel, BASS_FILEPOS_CURRENT);

(40) А это точно надо сначала канал уничтожить - а потом смотреть его позицию?

sleep надо юзать

(41) фак, а как иначе?

(41) то есть как нормально

(44) приди в сознание уже. Сам-то как думаешь?

(44) Твой цикл на первом же шаге перестанет его играть и прикончит. А только потом задумается - а надо ли это было делать?
Насчёт кошерности обращения к освобождённому ресурсу - я уж молчу.

Все, готово.. Ну спс однако всем.

Хотя после фраз типа "Где это в мануале?" хочется закрыть нах страничку