Кодировка потока

[cargo29]

Библиотека басс, получаю данные с потоком радио

Label3.Caption:=strpas(BASS_ChannelGetTags(s, BASS_TAG_HTTP));

но когда русские буквы идут с потоком, тогда отображаются какие то символы разные, как это можно исправить????

[Exception]

Результат от BASS_ChannelGetTags пропусти через Utf8ToAnsi.

[cargo29]

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

Результат от BASS_ChannelGetTags пропусти через Utf8ToAnsi.

пробовал все так же.... (((

[Exception]

Ну если ты используешь версию Delphi, где по умолчанию типы данных переведены в Юникод, то обозначай в секции var как и положены типы, например, заместо PChar - PAnsiChar, заместо String - AnsiString (А вслучае BASS_ChannelGetTags обозначь как UTF8String для меньшей путаницы). Также если используется "юникодная" версия, то тут корректнее использовать функцию Utf8Decode для преобразования сразу к WideString. Ты же проверял в других плеерах отображение тэгов потока? Если там все корректно значит недочет у тебя. В противном случае скинь ссылку на сетевое радио сюда для проверки.

[cargo29]

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

Ну если ты используешь версию Delphi, где по умолчанию типы данных переведены в Юникод, то обозначай в секции var как и положены типы, например, заместо PChar - PAnsiChar, заместо String - AnsiString (А вслучае BASS_ChannelGetTags обозначь как UTF8String для меньшей путаницы). Также если используется "юникодная" версия, то тут корректнее использовать функцию Utf8Decode для преобразования сразу к WideString. Ты же проверял в других плеерах отображение тэгов потока? Если там все корректно значит недочет у тебя. В противном случае скинь ссылку на сетевое радио сюда для проверки.

хорошо щас попробую все это что описали, в демке радио не русское поэтому текст идет на англ. щас проверю сразу отпишу

Utf8Decode
UTF8String
AnsiString

я правильно делал???

Label3.Caption:=ansistring(BASS_ChannelGetTags(s, BASS_TAG_HTTP));
Label3.Caption:=UTF8String(BASS_ChannelGetTags(s, BASS_TAG_HTTP));
Label3.Caption:=UTF8Decode(BASS_ChannelGetTags(s, BASS_TAG_HTTP));

вот проект сам посмотри радио расположено на 5 форме!
http://zalil.ru/30995284

Делфи 2010

[Exception]

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

Utf8Decode
UTF8String
AnsiString

я правильно делал???

Label3.Caption:=ansistring(BASS_ChannelGetTags(s, BASS_TAG_HTTP));
Label3.Caption:=UTF8String(BASS_ChannelGetTags(s, BASS_TAG_HTTP));
Label3.Caption:=UTF8Decode(BASS_ChannelGetTags(s, BASS_TAG_HTTP));

вот проект сам посмотри радио расположено на 5 форме!
http://zalil.ru/30995284

Извиняюсь за столь долгий ответ. В данный момент нет возможности вообще проверить работоспособность кода. Если не ошибаюсь, в Delphi 2010 ввели новый тип юникод строк - UnicodeString или типа того. Так вот и VCL автоматически поддерживает юникод здесь. Соответственно надо что-то типа такого...

var
  pszMeta: LPTSTR;
  pszText: UnicodeString;//WideString
begin
  pszMeta := BASS_ChannelGetTags(s, BASS_TAG_HTTP);
  pszText := UTF8Decode(pszMeta);
  Label3.Caption := pszText;
end;

[cargo29]

Нет ошибка выскакивает вот скрин

[Exception]

А сами не понимаете что за ошибка? В заголовочном файле басс поменяйте соответственно результат BASS_ChannelGetTags с PChar на PAnsiChar как минимум (он рассчитан на предыдущие неюникодовые версии). И приучивайте себя использовать строгое приведение типов - вместо String используйте AnsiString, вместо Char - AnsiChar, PChar - LPTSTR. А то понаделаете по неопытности тупые ошибки и трудно их будет найти.

[cargo29]

Исправил но щас отображает одни вопросы

с Pansichar не запускается

[Пепел Феникса]

PChar - LPTSTR.

о да, зашибись строго.
LPSTR или же LPWSTR