Как получить русское название кодировки. mlang?

← →
StriderMan (2008-11-18 18:16) [0]

Есть номера кодировок, требуется получить для каждой нормальное название как в настройках "Язык и региональные стандарты".

Копал MSDN в сторону IMultiLanguage, но так и не понял как малой кровью выцепить функции этого интерфейса в Делфях. по просторам инета бродят разные заголовочные файлы, но ради одной функции цеплять к проекту пару модулей по несколько КБ не готов. Подскажите, может есть еще какой легкий способ?

Пытался импортировать IMultiLanguage как ActiveX-контрол - не нашел его в списке. DLL-ка напрямую не импортируется, ошибок не выдает.

В идеале надо что-то типа
var ml: olevariant; ... ml := CreateOleObject("че-то типа MultiLanguage"); ml.GetCodePageInfo .... помогите плиз

← →
Eraser © (2008-11-18 22:00) [1]

> Есть номера кодировок, требуется получить для каждой нормальное
> название как в настройках "Язык и региональные стандарты".

вот это уточните, не понятно что требуется. в "Язык и региональные стандарты" туева куча настроек и параметров.

скорее всего тут можно обойтись без всяких ActiveX, стандартными функциями.

← →
StriderMan (2008-11-19 10:28) [2]

Панель управления/Язык и региональные стандарты/Дополнительно

например есть у меня список кодировок:
866, 855, 857

надо получить расширенный список типа
866 - (OEM русская) 855 - (OEM - кириллица традиционная) 857 - (OEM - турецкая)

← →
clickmaker © (2008-11-19 11:19) [3]

EnumSystemCodePages
GetCPInfoEx

← →
StriderMan (2008-11-19 12:56) [4]

> GetCPInfoEx

видимо то что нужно, но почему-то на любую таблицу ругается "Неверный параметр"

type TCPInfoEx = record MaxCharSize: UINT; DefaultChar: array [0..MAX_DEFAULTCHAR - 1] of byte; LeadByte: array[0..MAX_LEADBYTES - 1] of byte; UnicodeDefaultChar: Char; CodePage: UINT; CodePageName: array[0..MAX_PATH - 1] of Char; end; function GetCPInfoEx(CodePage: UINT; Flags: DWord; var CPInfo: TCPInfoEx): boolean; external "kernel32.dll" name "GetCPInfoExA"; procedure TForm1.Button1Click(Sender: TObject); var cpiex: TCPInfoEx; begin if not GetCPInfoEx(866, 0, cpiex) then RaiseLastOSError; ShowMessage(cpiex.CodePageName); end;

попробуй packed record и stdcall у функции

← →
StriderMan (2008-11-19 13:09) [6]

> stdcall у функции

Ну точно, как я забыл!! работает, большое спасибо!

Как получить русское название кодировки. mlang? Найти похожие ветки