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

[cargo29]

Сообщение от Пепел Феникса

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

я с этим ни разу еще не сталкивался

[cargo29]

:conf used:

[Exception]

Ты намешал переменных, там анси и юникод в перемешку вот и получил знаки вопросов.

[cargo29]

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

Ты намешал переменных, там анси и юникод в перемешку вот и получил знаки вопросов.

там походу не в том дело...когда в плеере прогрывает так же отображаеться...

[Exception]

Можешь скинуть в личку исходный код а я посмотрю на досуге что у тебя не так иначе так и будем тянуть кота за хвост.

[cargo29]

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

Можешь скинуть в личку исходный код а я посмотрю на досуге что у тебя не так иначе так и будем тянуть кота за хвост.

кинул

[Exception]

Посмотрел код. В личке больше 4000 символов не отправляется поэтому пишу сюда. У меня нет компонентов, которые ты используешь в своем проекте, поэтому прилагаю куски кода из своего демо-проекта к сообщению.

function BassUtils_GetMeta(pszMeta: PAnsiChar; pszValue: AnsiString): Utf8String;
var
meta: PAnsiChar;
len : Integer;
utf8: Utf8String;
begin
Result := '';
meta := pszMeta;
while (Length(meta) > 0) do
begin
len := Length(pszValue);
utf8 := Copy(meta, 1, len);
if (UpperCase(utf8) = UpperCase(pszValue)) then
begin
utf8 := Copy(meta, len + 1, Length(meta) - len);
Result := URLDecode(utf8);
end;
meta := meta + Length(meta) + 1;
end;
end;

function BassUtils_CatCast(pszArtist, pszTitle: Utf8String): WideString;
var
artist: WideString;
title : WideString;
begin
Result := '';
artist := Utf8Decode(pszArtist);
title := Utf8Decode(pszTitle);
if ((artist = '') and (title <> '')) then
Result := title
else
if ((artist <> '') and (title = '')) then
Result := artist
else
if ((artist <> '') and (title <> '')) then
Result := Format('%s - %s', [artist, title])
end;

function BassUtils_GetCastName(stream: HSTREAM): WideString;
var
meta: PAnsiChar;
artist: Utf8String;
title: Utf8String;
TitlePos: Integer;
DelimeterPos: Integer;
info: BASS_CHANNELINFO;
begin
Result := '';
meta := BASS_ChannelGetTags(stream, BASS_TAG_META);
TitlePos := Pos('StreamTitle=', meta);
if (TitlePos <> 0) then
begin
DelimeterPos := Pos(';', meta);
if (DelimeterPos = 0) then
title := Copy(meta, TitlePos + 13, Length(meta) - TitlePos - 13)
else
title := Copy(meta, TitlePos + 13, DelimeterPos - TitlePos - 14);
Result := Utf8Decode(title);
end;
if (Result = '') then
begin
title := '';
artist := '';
ZeroMemory(@info, SizeOf(BASS_CHANNELINFO));
BASS_ChannelGetInfo(stream, info);
case info.ctype of
BASS_CTYPE_STREAM_OGG:
begin
meta := BASS_ChannelGetTags(stream, BASS_TAG_OGG);
if (meta <> nil) then
begin
artist := BassUtils_GetMeta(meta, 'artist=');
title := BassUtils_GetMeta(meta, 'title=');
Result := BassUtils_CatCast(artist, title);
end;
end;
BASS_CTYPE_STREAM_WMA,
BASS_CTYPE_STREAM_WMA_MP3:
begin
meta := BASS_ChannelGetTags(stream, BASS_TAG_WMA_META);
if (meta <> nil) then
begin
title := BassUtils_GetMeta(meta, 'caption=');
if (title = '') then
begin
artist := BassUtils_GetMeta(meta, 'artist='); //'artist=', '&title='
title := BassUtils_GetMeta(meta, 'title='); //'title=', '&album='
Result := BassUtils_CatCast(artist, title);
end
else
Result := Utf8Decode(title);
end;
if (meta = nil) then
meta := BASS_ChannelGetTags(stream, BASS_TAG_WMA);
if (meta <> nil) then
begin
artist := BassUtils_GetMeta(meta, 'author=');
title := BassUtils_GetMeta(meta, 'title=');
Result := BassUtils_CatCast(artist, title);
end;
end;
else
begin
meta := BASS_ChannelGetTags(stream, BASS_TAG_ICY);
if (meta = nil) then
meta := BASS_ChannelGetTags(stream, BASS_TAG_HTTP);
if (meta <> nil) then
begin
title := BassUtils_GetMeta(meta, 'icy-name:');
if (title = '') then
title := BassUtils_GetMeta(meta, 'ice-name:');
if (title = '') then
title := BassUtils_GetMeta(meta, 'x-audiocast-name:');
Result := BassUtils_CatCast('', title);
end;
end;
end;
end;
end;

Код в принципе рабочий. Используй поменьше глобальных переменных, все равно в таймере у тебя можно на локальных m и p сделать. И я не рекомендую использовать StrPas для конвертирования мета данных в строку, мало ли как изменят ее в заголовочных файлах, лучше через BassUtils_GetMeta, а то намешаешь еще еще в кучу разнокодировочных функций что потом не разгребешь.