Кириллица и PAnsiChar

[garuna]

Есть функция, которая возвращает строку в формате PAnsiChar.
На русскоязычных ОС всё нормально, а вот если ОС английской локализации, то текст PAnsiChar содержащий кириллицу превращается в набор непонятных символов.

Подскажите, как конвертировать строку формата PAnsiChar в нормальный вид, чтобы кириллица отображалась нормально (я так полагаю надо привести к WideString). Использую Delphi 2010

Функция вот:

var
  Cliente_DDE: TDDEClientConv;
  temp: PansiChar;
begin
   Result := '';
   Cliente_DDE:= TDDEClientConv.Create( nil );
    with Cliente_DDE do
       begin
          SetLink('Firefox', 'WWW_GetWindowInfo');
          temp := RequestData('0xFFFFFFFF'); // RequestData возращает строку PAnsiChar
          Result := StrPas(temp);
          StrDispose(temp);
          CloseLink;
       end;
     Cliente_DDE.Free;

[Stilet]

Использую Delphi 2010

Попробуй применить класс TEncoding для переконвертации в юникод.

[garuna]

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

Попробуй применить класс TEncoding для переконвертации в юникод.

А можно подробнее? Где поменять?

[Stilet]

Что поменять? Тебе же переконвертировать нужно?
Или я чего-то не понимаю?
Кстати попробовать можно функцию AnsiToUTF8()
В D2010 должна быть.

[garuna]

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

Что поменять? Тебе же переконвертировать нужно?
Или я чего-то не понимаю?
Кстати попробовать можно функцию AnsiToUTF8()
В D2010 должна быть.

Сорри, глаза уже слипаются, "применить" как "поменять" читаю)
AnsiToUTF8() попробовал, не помогло

[Stilet]

А такое?: http://www.programmersforum.ru/showp...5&postcount=16

[garuna]

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

А такое?: http://www.programmersforum.ru/showp...5&postcount=16

Тоже нет (

[Stilet]

Ну тогда облом... Вполне возможно, что локали нужной на компе нет.
Я не знаю как такие проблемы решаются.

[Vapaamies]

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

На русскоязычных ОС всё нормально, а вот если ОС английской локализации, то текст PAnsiChar содержащий кириллицу превращается в набор непонятных символов.

В целом так и должно быть, поскольку в случае AnsiChar кодировка берется из умолчаний системы. Если умолчание в системе стоит на США, нужно или перестать работать с кириллицей, или установить кириллицу как умолчание. В Панели управления → Язык → Язык по умолчанию для программ, не использующих Юникод. Это нормальный и человеческий способ решения проблем, избегающий жесткого прописывания кириллицы в программе (что есть быдлокод, на мой взгляд).

Сам код тоже неплохо бы переписать, раз уж версия Delphi современная:

function GetDataFromFirefox: string;
var
  Temp: PAnsiChar;
begin
  with TDDEClientConv.Create(nil) do
  try
    SetLink('Firefox', 'WWW_GetWindowInfo');
    Temp := RequestData('0xFFFFFFFF');
    try
      SetString(Result, Temp, StrBufSize(Temp)); // используется DefaultSystemCodePage
      //SetCodePage(Result, 1251, False); // быдлокод, если системные умолчания -- не кириллица
    finally
      StrDispose(Temp);
    end;
  finally
    Free;
  end;
end;

[garuna]

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

В Панели управления → Язык → Язык по умолчанию для программ, не использующих Юникод.

Это понятно, но пользователи об этом не знают, а всякий раз объяснять что нужно изменить в системе не вариант (


Пробовал раскомментировать в вашем коде строку

SetCodePage(Result, 1251, False);

Но компилятор ругается что Result не является RawByteString:



Пробовал так (код ниже), компилируется, но кириллицу все равно не отображает.

function GetDataFromFirefox: string;
var
  Temp: PAnsiChar;
  s: RawByteString;
begin
  with TDDEClientConv.Create(nil) do
  try
    SetLink('Firefox', 'WWW_GetWindowInfo');
    Temp := RequestData('0xFFFFFFFF');
    try
      SetString(Result, Temp, StrBufSize(Temp));
      s:= RawByteString(Result);
      SetCodePage(s, 1251, False); 
      Result:= s;
    finally
      StrDispose(Temp);
    end;
  finally
    Free;
  end;
end;