VPF::wstring to UTF-8 - Форум программистов

NOCaut

Дата 15.8.2011, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0

Подскажите где ошибка функцию нашол в нете.

Код

var
  s: string;
begin
  s := WideStringToString('ام بنفقة كذ',CP_ACP);     на виходе: '??? ?? ?????'
  s := WideStringToString('لقرآن الكريم ',CP_UTF8);  на виходе: ''
 
function WideStringToString(const ws: WideString; codePage: Word): AnsiString;
var
  l: integer;
begin
  if ws = '' then
    Result := ''
  else
  begin
    l := WideCharToMultiByte(codePage,
      WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
      @ws[1], - 1, nil, 0, nil, nil);
    SetLength(Result, l - 1);
    if l > 1 then
      WideCharToMultiByte(codePage,
        WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
        @ws[1], - 1, @Result[1], l - 1, nil, nil);
  end;
end;

Это сообщение отредактировал(а) NOCaut - 15.8.2011, 15:55

NOCaut

Дата 16.8.2011, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0

http://forum.sources.ru/index.php?act=ST&a...11&t=338432

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »