Delphi Проблемы с кодировкой

[bookkc]

Короче это у меня что-то на подобие радио-проигрывателя, и в этом Label должно писать название радиостанции по русски, а вмечто русских букв у меня иероглифы

Как исправить ? Если не ошибаюсь то это нада поставить как-то кодировку UTF-8 а как ?

[AlexXXX12389]

попробуйте так:
Label1.Caption:=AnsiToUtf8('названи е радиостанции');

[bookkc]

Дело в том что название радиостанции идет с потока, не я его пишу...

[Stilet]

название радиостанции идет с потока

Какого потока?

[Tronix]

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

Дело в том что название радиостанции идет с потока, не я его пишу...

Ну а рисуете то на форме вы его. Не знаю как там вы его выводите на экран, но нужно вставить функцию AnsiToUtf8 в вывод.

[Alter]

Это должно помочь

function Utf8Decode(const S: UTF8String): WideString;

[bookkc]

И куда его вставлять ?

Пробывал вставить в листинг программы

function Utf8Decode(const S: UTF8String): WideString;
begin
end;

Не помогло

[Sparkman]

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

И куда его вставлять ?

Пробывал вставить в листинг программы

function Utf8Decode(const S: UTF8String): WideString;
begin
end;

Не помогло

Вставьте вместо Label, Edit, оформите его как Label (readonly:=true;tabstop:=false; и т.д.) и на событие OnChange вставьте преобразование:

procedure TForm1.Edit1Change(Sender: TObject);
begin
     Edit1.Text:=AnsiToUtf8(Edit1.Text);
end;

[bookkc]

Там просто так не вставишь его...

begin
  inherited;
  if Msg.Msg = WM_INFO_UPDATE then
    case msg.WParam of
      0:
        begin
          Label4.Caption := 'connecting...';
          Label3.Caption := '';
          Label5.Caption := '';
        end;
      1:
        begin
          Label4.Caption := 'not play';
          //Error('Can''t play the stream');
         MessageBox(win, PChar('Can''t play the stream' + #13#10 + '(error code: ' +
            IntToStr(msg.LParam)+')'), nil, 0);

        end;
      2: Label4.Caption := Format('buffering... %d%%', [msg.LParam]);
      3: Label4.Caption := String(PAnsiChar(msg.LParam));
      4: Label5.Caption := String(PAnsiChar(msg.LParam));
      5: Label5.Caption := String(PAnsiChar(msg.LParam));
      6: Label3.Caption := String(PAnsiChar(msg.LParam));
      7: Label3.Caption := String(PAnsiChar(msg.LParam));
      8: Label5.Caption := String(PAnsiChar(msg.LParam));
    end;
end;

[Sparkman]

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

Там просто так не вставишь его...

begin
  inherited;
  if Msg.Msg = WM_INFO_UPDATE then
    case msg.WParam of
      0:
        begin
          Label4.Caption := 'connecting...';
          Label3.Caption := '';
          Label5.Caption := '';
        end;
      1:
        begin
          Label4.Caption := 'not play';
          //Error('Can''t play the stream');
         MessageBox(win, PChar('Can''t play the stream' + #13#10 + '(error code: ' +
            IntToStr(msg.LParam)+')'), nil, 0);

        end;
      2: Label4.Caption := Format('buffering... %d%%', [msg.LParam]);
      3: Label4.Caption := String(PAnsiChar(msg.LParam));
      4: Label5.Caption := String(PAnsiChar(msg.LParam));
      5: Label5.Caption := String(PAnsiChar(msg.LParam));
      6: Label3.Caption := String(PAnsiChar(msg.LParam));
      7: Label3.Caption := String(PAnsiChar(msg.LParam));
      8: Label5.Caption := String(PAnsiChar(msg.LParam));
    end;
end;

что мешает сделать так?

begin
  inherited;
  if Msg.Msg = WM_INFO_UPDATE then
    case msg.WParam of
      0:
        begin
          Label4.Caption := 'connecting...';
          Label3.Caption := '';
          Label5.Caption := '';
        end;
      1:
        begin
          Label4.Caption := 'not play';
          //Error('Can''t play the stream');
         MessageBox(win, PChar('Can''t play the stream' + #13#10 + '(error code: ' +
            IntToStr(msg.LParam)+')'), nil, 0);

        end;
      2: Label4.Caption := AnsiToUtf8(Format('buffering... %d%%', [msg.LParam]));
      3: Label4.Caption := AnsiToUtf8(String(PAnsiChar(msg.LParam)));
      4: Label5.Caption := AnsiToUtf8(String(PAnsiChar(msg.LParam)));
      5: Label5.Caption := AnsiToUtf8(String(PAnsiChar(msg.LParam)));
      6: Label3.Caption := AnsiToUtf8(String(PAnsiChar(msg.LParam)));
      7: Label3.Caption := AnsiToUtf8(String(PAnsiChar(msg.LParam)));
      8: Label5.Caption := AnsiToUtf8(String(PAnsiChar(msg.LParam)));
    end;
end;