Delphi.TRichView. Транслируем VCL mp3 плеер в веб

В данном посте научимся транслировать VCL  mp3 плеер, написанный нами ранее в веб. То есть выглядеть это будет примерно следующим образом.

9

 

10

Как это сделать (вариант 1)?

Это пожалуй лучший вариант – мы просто будем записывать в таг дополнительную информацию об имени файла mp3 и при сохранении в HTML пользоваться ей.

При добавлении плеера и mp3 файла соответственно.

Вот как это выглядит полностью

При сохранении в HTML воспользуемся процедурой SaveItemToFile

Присвоим её в OnCreate

 

Как это сделать (вариант 2, не оптимальный)?

Вот один из вариантов… Как оказалось впоследствии этот вариант не самый эффективный, так как при изменении позиции контрола, скажем при нажатии на Enter, номер его Itema смещается. Для этого нужно как-то обновлять.

Заведём 2 поля для хранения номеров элементов (items в TRichView) и названий компонентов.

Будем записывать в них в момент добавления плеера в TRichView следующим образом

Вот как это выглядит полностью

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

Вот как это выглядит полностью

Последнее событие, которое нам нужно обработать, это MySaveItemToFile, отвечающее за сохранение в файл и экспорт в HTML.

Сам обработчик сохранения в HTML выглядит следующим образом

Вот в принципе и всё !!!

This entry was posted in Delphi, TRichView. Bookmark the permalink.

Leave a Reply