Nikita Frantsuzov

Пікірлер

@John_Walker. 4 жыл бұрын

Блядь, если бы посмотрел именно эту часть раньше, не потратил бы дня 2-3 на решение этих багов..

@vladislavkonovalov186 4 жыл бұрын

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

@sanzharrakhan5610 4 жыл бұрын

www.un4seen.com/ ссылка на биб.

@ДаниилТокарев-к8р 4 жыл бұрын

Чувак, спасибо большое. Помог написать курсач))))

@АлександраШироченко-я1ш 5 жыл бұрын

По данному видео-уроку создала проигрыватель. Все работает. Все супер! Но вот проблема: скидываю папку с программой на другой комп (такая же ОС), запускаю программу, плейлист добавляется, а вот при нажатии на кнопку "Плей", мне выдает ошибку "Не удалось инициализировать поток". Думаю проблема с библиотекой bass на новом компе. Подскажите, что нужно сделать?

@ЖанЖанг 6 жыл бұрын

Почему написано ошибка файл не загружен подскажите

@MoorNick 6 жыл бұрын

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

@ВалерийВаланчус 6 жыл бұрын

Как научится задавать частоту , уровень и время звучания простого звука ?

@ezlikaldy5772 6 жыл бұрын

У меня тоже звук долго не хотел воспроизводится и я написала так: if not bass_init(-1, 44100, 0, handle,0) then showmessage ('Ошибка инициализации' ); И у меня звук пошёл :D

@VoodyKazanRus 7 жыл бұрын

Благодаря этому уроку сделал плеер,но не на Delphi,а на Lazarus.У меня не открываются файлы,которые содержат не латинские символы.Может кто знает как это можно исправить?

@gitarick1853 7 жыл бұрын

как сделать кнопку следующий трек ?

@АлексейСавин-х9з 8 жыл бұрын

можно ли сделать мп3 плеер на Delphi XE5 ?

@shest-eo3iu 8 жыл бұрын

Можно

@CoospirChannel 8 жыл бұрын

У вас на сайте есть игра под названием Crazy Cubes. Можно ли получить от нее исходники?

@ixodesrus 8 жыл бұрын

Подскажите как сделать плейлист многоколоночным? Например 1-номер трека, 2-название,3-длительность. Спасибо

@milanacacmilan2933 8 жыл бұрын

пожалуйста сделайте видео как создать Обучения правила дороге с Дельфи 7 мне очень нужна ))

@舞騾組父元気等 8 жыл бұрын

Здесь else не нужно . У меня чёт с ним вылетала ошибка, а без него норм.

@舞騾組父元気等 8 жыл бұрын

А где ссылка на диск?

@MegaMickeyChannel 8 жыл бұрын

Спасибо!

@MAKCC460 9 жыл бұрын

Ничего не хочу сказать, но громкость которую вы показали регулирует общую громкость windows, а это вообще не кашерно! Попарился, но нашел то что нужно, а именно регулировка громкости именно этого потока. BASS_ChannelSetAttribute(stream,BASS_ATTRIB_VOL,sScrollbar2.Position/100);

@MAKCC460 9 жыл бұрын

Блин, ничего не работает, начиная с кнопки "старт". Delphi EX8

@shest-eo3iu 8 жыл бұрын

Думаю вам уже не актуально, а вот кому-то пригодиться. stream:=Bass_StreamCreateFile(false, PChar('1.mp3'), 0,0,0); для Delphi7 stream:=Bass_StreamCreateFile(false, PAnsiChar(AnsiString('1.mp3')), 0,0,0); для Rad Studio

@AlexBydanov 9 жыл бұрын

У меня такой вопрос, почему использовали ScrollBar, когда есть TrackBar? И еще, побывал сделать с TrackBar'ом, но вот с прокруткой в любое место трека беда, там нет события OnSсroll(

@qwesdfsfsadf 9 жыл бұрын

Приятный такой урок =)

@ПрохорИванов-ф5г 9 жыл бұрын

какой тип у переменной stream?

@artemmelkevich7043 9 жыл бұрын

Скиньте ссылку , архив пожалуйста!!))

@BidiukSasha 9 жыл бұрын

Почему он не переключает музыку сам? Когда заканчивается трек, следующий не начинает играть....

@MAKCC460 9 жыл бұрын

+Олександр Бідюк Потому что нужно прописать, что если скролбар:=max then выбрать следующую композицию и два раза нажать на неё.

@gitarick1853 7 жыл бұрын

можешь написать код этого действия ?

@БеглиСапаров-м3т 7 жыл бұрын

n:=ListBox1.Items.Capacity; ... procedure TForm3.BitBtn5Click(Sender: TObject); begin if ListBox1.ItemIndex+1<>n then begin ListBox1.ItemIndex:= ListBox1.ItemIndex+1; ListBox1DblClick(Sender); end else begin BitBtn4Click(Sender); SpeedButton4Click(Sender); close; end; end;

@БеглиСапаров-м3т 7 жыл бұрын

procedure TForm3.ScrollBar1Change(Sender: TObject); begin if ScrollBar1.Position/(24 * 3600)>scrollBar1.Max/(24 * 3600)-5 then begin BitBtn5Click(Sender); end; end;

@vladislavkonovalov186 4 жыл бұрын

@@MAKCC460 а можно код на это действие именно этого проэкта?