UNICoder

[ZuBy]

Вот на протяжении ~2 месяцев писал эту библиотеку и вроде все работает на УРА!

Теперь о библиотеке:
Это конвертер Ansi/Unicode/UTF8
Размер ~20,0 кб


Вот функционал

function UNICoder_AnsiCharToWideChar(Str: PAnsiChar): PWideChar; 
function UNICoder_AnsiStringToWideString(Str: AnsiString): WideString; 

function UNICoder_WideCharToAnsiChar(Str: PWideChar): PAnsiChar; 
function UNICoder_WideStringToUTF8(const S: WideString): AnsiString; 

function UNICoder_UTF8ToWideString(const S: AnsiString): WideString; 

function UNICoder_GetInformation: string; 
function UNICoder_OpenFileDlg(HND: HWND; Filter: PWideChar): PWideChar;

Написан на Delphi 7 и для пользователей Delphi 7.

Протестируйте плиз

демо-пример:
запуск BASS с флагом BASS_UNICODE на Delphi7

[mihali4]

При чем тут раздел "Общие вопросы Delphi" ???
Переношу в свободное общение.

[raxp]

первое - из-за этой строчки... "Caption := UNICoder_GetInformation" выскакивает ошибка...
второе - вынос в библиотеку столь простых функций не оправдан, удобнее и прозрачней для пользователя будет использование модуля в виде pas.

[ZuBy]

Вот обновил библиотеку

Функционал:

// UTF 7
function UNICoder_WideStringToUTF7(const S: WideString): AnsiString; stdcall;
function UNICoder_UTF7ToWideString(const S: AnsiString): WideString; stdcall;

// UTF 8
function UNICoder_WideStringToUTF8(const S: WideString): AnsiString; stdcall;
function UNICoder_UTF8ToWideString(const S: AnsiString): WideString; stdcall;

// UTF 16
function UNICoder_UTF16ToWideString(Str: PWideChar): WideString; stdcall;
// not work!!! function UNICoder_WideStringToUTF16(Str: PAnsiChar): AnsiString; stdcall;
// UTF 32
// not work!!! function UNICoder_UTF32ToStr(Str: PWideChar): PAnsiChar; stdcall;

// ANSI TO XX
function UNICoder_AnsiStringToKoi(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_AnsiStringToDos(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_AnsiStringToIso(St: PAnsiChar): PAnsiChar; stdcall;

// KOI TO XX
function UNICoder_KoiToAnsiString(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_KoiToDos(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_KoiToIso(St: PAnsiChar): PAnsiChar; stdcall;

// DOS TO XX
function UNICoder_DosToAnsiString(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_DosToKoi(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_DosToIso(St: PAnsiChar): PAnsiChar; stdcall;

// ISO TO XX
function UNICoder_IsoToAnsiString(St: PAnsiChar): PAnsiChar;
function UNICoder_IsoToKoi(St: PAnsiChar): PAnsiChar; stdcall;
function UNICoder_IsoToDos(St: PAnsiChar): PAnsiChar; stdcall;

// OTHER
// not work!!! function UNICoder_GetCodePage(const Chr: Byte): TUCodePage; stdcall; external dll;
function UNICoder_GetInformation: WideString; stdcall; external dll;

ТО ЧТО ОБОЗНАЧЕНО not work!!! В РАЗРАБОТКЕ.

Библиотека http://zuby.ucoz.kz/Library/UNICoder.zip
Демо http://zuby.ucoz.kz/Library/Demo-UNICoder-.zip

[alex208210]

привет, сайт по ссылкам не работает. Откуда можно скачать исходники? или есть ли dll для wince ? если нет, можно ли взять исходники функций?

[waleri]

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

привет, сайт по ссылкам не работает. Откуда можно скачать исходники? или есть ли dll для wince ?

Ну, за столько лет...

А чем вас WideCharToMultiByte и MultiByteToWideChar не устраивают?

[ZuBy]

Этой библиотеки уже нет, даже исходников после версии ХЕ+ она уже не нужна, TEncoding справляется со всеми кодировками

[pproger]

Написан на Delphi 7 и для пользователей Delphi 7.

любитель мертвечины?

[pu4koff]

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

любитель мертвечины?

5 лет прошло так-то

[pproger]

аа, опять некрофилы активизировались(( а делфя седьмая уже в 2005 году была obsolete