bass.dll и радио

[Ahmund]

эт я просто пример адресов дал каторые я хотел воспроизвести. За пример спасибо!
Счас столкнулся со следуещим вопросом, как вывести название играющей песни, собствено нашол в библиотеке функцию для вывода BASS_ChannelGetTags написал следуищий код для вывода:

PHP код:

var
  meta: PAnsiChar;
begin
  meta := BASS_ChannelGetTags(chan, BASS_TAG_META);
   Label1.Caption:= (PAnsiChar(AnsiString(meta))); 
end; 


Название выводит но иероглифами, как правильно задать кодировку чтоб выводило нормальные символы?
Пробывал еще так: Label1.Caption := String(PAnsiChar(meta));
пошли уже другие иероглифы, как правильно сделать кодировку? подскожите? смотрел в демке там такаяж кодировка как и уменя, но выводится все нормально

[cilvay]

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

[Joni_MK]

Добрый день. Подскажите пожалуйсто как вывести инфу радиостанции(играющего трека).

Вот код :

procedure TForm1.GroupBox1Click(Sender: TObject);
var
meta: PAnsiChar;
begin
meta := BASS_ChannelGetTags(chan, BASS_TAG_META);
Label4.Caption:= (PAnsiChar(AnsiString(meta)));
end;

procedure TForm1.Label4Click(Sender: TObject);
begin

end;

[Joni_MK]

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

Добрый день. Подскажите пожалуйсто как вывести инфу радиостанции(играющего трека).

Вот код :

procedure TForm1.GroupBox1Click(Sender: TObject);
var
meta: PAnsiChar;
begin
meta := BASS_ChannelGetTags(chan, BASS_TAG_META);
Label4.Caption:= (PAnsiChar(AnsiString(meta)));
end;

procedure TForm1.Label4Click(Sender: TObject);
begin

end;

Помогите пожалуйсто вывести, может дайте пожалуйсто другой код.

[cilvay]

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

эт я просто пример адресов дал каторые я хотел воспроизвести. За пример спасибо!
Счас столкнулся со следуещим вопросом, как вывести название играющей песни, собствено нашол в библиотеке функцию для вывода BASS_ChannelGetTags написал следуищий код для вывода:

PHP код:

var
  meta: PAnsiChar;
begin
  meta := BASS_ChannelGetTags(chan, BASS_TAG_META);
   Label1.Caption:= (PAnsiChar(AnsiString(meta))); 
end; 


Название выводит но иероглифами, как правильно задать кодировку чтоб выводило нормальные символы?
Пробывал еще так: Label1.Caption := String(PAnsiChar(meta));
пошли уже другие иероглифы, как правильно сделать кодировку? подскожите? смотрел в демке там такаяж кодировка как и уменя, но выводится все нормально

Неужели никто не знает как поправить кодировку?

[SCRIBE]

Там нужно использовать несколько процедур для отображения информации (DoMeta, MetaSync), обязательно еще и запуск радио через BeginThread!

В общем в примерах все есть, просто скопируйте и переделайте под себя...

[Vigi]

Label1.Caption:=UTF8ToString(meta);

может поможет... )