Опять русские буквы...

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Сообщение shade » 13.05.2007 17:10:24

AnsiToUTF - перевод из текущей локали в UTF
под win используется две таблицы символов - одна для оконных приложений (Ansi), другая для консоли (Oem, в частности DOS). Так же есть функция (на winapi) для конвертирования между этими кодировками и eom-unicode.

Код: Выделить всё
uses windows;

function AnsiToDos(text: string): string;
var
  p: PChar;
  Len: Integer;
begin
  Len := Length(text);
  GetMem(p, Len);
  CharToOemBuff(PChar(text), p, Len);
  SetString(Result, p, Len);
  FreeMem(p);
end;


Не проще ли блобы хранить в unicode кодировке? (utf-8, utf-16...)
Аватара пользователя
shade
энтузиаст
 
Сообщения: 879
Зарегистрирован: 21.02.2006 20:15:48
Откуда: http://shamangrad.net/

Пред.

Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 32

Рейтинг@Mail.ru