forum.clarionlife.net

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

Предыдущие версии СУБД Oracle и языка Java также используют формат UCS-2 и не способны распознавать суррогатные символы.
Корпорация Oracle ввела поддержку Юникода в качестве набора символов для баз данных начиная с версии Oracle 7.
В настоящее время СУБД Oracle поддерживает два метода хранения данных в формате Юникод: 
первый - кодировка UTF-8 для символьных типов данных CHAR и VARCHAR2 и для всех имен и литералов SQL; 
второй - кодировка UTF-16 для хранения типов данных Юникод NCHAR, NVARCHAR и NCLOB. 
СУБД Oracle позволяет использовать оба метода одновременно.

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

  PROGRAM

  INCLUDE('winapi.inc'), ONCE

  MAP
    MODULE('WinAPI')
      winapi::CreateWindowExW(UNSIGNED dwExStyle, LONG lpClassName, LONG lpWindowName = 0, |
        UNSIGNED dwStyle, SIGNED X, SIGNED Y, SIGNED nWidth, SIGNED nHeight, |
        HWND hWndParent, HMENU hMenu, HINSTANCE hInstance, LONG lpParam),HWND,RAW,PASCAL,NAME('CreateWindowExW')
    END
    INCLUDE('printf.inc'), ONCE
  END

Window                                  WINDOW('CreateWindowExW test'),AT(,,278,171),GRAY,SYSTEM,FONT('Segoe UI',9)
                                        END

se                                      TStringEncoding

!- edit control styles
ES_LEFT                                 EQUATE(00h)
ES_MULTILINE                            EQUATE(04h)
ES_AUTOVSCROLL                          EQUATE(40h)

ctrlName                                STRING(256), AUTO
ctrlText                                STRING(256), AUTO
ctrlStyle                               UNSIGNED, AUTO

hwndEntry                               HWND, AUTO

  CODE
  OPEN(Window)
 
  ctrlName = se.ToUtf16('Edit') &'<0,0>'
  ctrlText = se.ToUtf16('Unicode aware ENTRY control') &'<0,0>'
  ctrlStyle = BOR(BOR(WS_BORDER, WS_CHILD), WS_VISIBLE)
  ctrlStyle = BOR(ctrlStyle, ES_LEFT)
  ctrlStyle = BOR(ctrlStyle, BOR(ES_MULTILINE, ES_AUTOVSCROLL))

  hwndEntry = winapi::CreateWindowExW( |
    0, | 
    ADDRESS(ctrlName), | 
    ADDRESS(ctrlText), | 
    ctrlStyle, | 
    0, 0, 250, 100, | 
    Window{PROP:ClientHandle}, | 
    0, | 
    SYSTEM{PROP:AppInstance}, | 
    0)
  printd('ENTRY handle = %x', hwndEntry)
  
  ACCEPT
  END