VPF::загрузка текста в ListBox из файла .wpl

BLACK_KOT

Дата 25.5.2009, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

загружаю в ListBox список воиспроизведения для медиа плеера - там чтото вроде html кода с тегами.

беда в том, что русские буквы при этом в аброкодабру превращаются. мож чё с кодировкой сделать, подскажите, пожалуйсто!

--------------------

.. я - демо версия Бога от Microsoft..

Keeper89

Дата 25.5.2009, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Поподробнее?

Цитата(BLACK_KOT @ 25.5.2009, 16:56

)

там чтото вроде html кода с тегами

Формат плей-листа такой?

Цитата(BLACK_KOT @ 25.5.2009, 16:56

)

беда в том, что русские буквы при этом в аброкодабру превращаются

в ListBox'е?

P.S. Что вообще добавляется в ListBox и каким образом? smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

BLACK_KOT

Дата 25.5.2009, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

загружаю в ListBox список воспроизведения, как обычный текстовый файл:

Код


ListBox1.Items.LoadFromFile('C:\1.wpl');

русские буквы - абракадабра.

а если из текстового файла загружать - всё нормально.

пробовал в мемо загружать - та же история.

формат плейлиста .wpl -для медиаплеера 11

--------------------

.. я - демо версия Бога от Microsoft..

Keeper89

Дата 25.5.2009, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

WMP сохраняет свои плейлисты в кодировке UTF-8 и просто так ты их не загрузишь. Для этого нужно перевести в "переваримую" стандартными компонентами кодировку ANSI, вот возможный вариант:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  ...  
  Listbox1.Items.LoadFromFile(YourFileName);
  for i := 0 to Listbox1.Items.Count - 1 do
    Listbox1.Items[i] := Utf8ToAnsi(listbox1.Items[i]);
end;

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

BLACK_KOT

Дата 25.5.2009, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

благодарю! всё замечательно!

--------------------

.. я - демо версия Бога от Microsoft..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »