{$IFDEF FREEPASCAL}

{$MODE DELPHI}

{$ENDIF}

unit dll_kernel32_char;



interface 

              

uses

  atmcmbaseconst, winconst, wintype;

  

const

{ Str Length Maximums. }

  MAX_LEADBYTES     = 12; { 5 ranges, 2 bytes ea., 0 term. }

  MAX_DEFAULTCHAR   = 2; { single or double byte }



type

  PCPInfo           = ^TCPInfo;

  _cpinfo           = record

    MaxCharSize     : UINT;                       { max length (bytes) of a char }

    DefaultChar     : array[0..MAX_DEFAULTCHAR - 1] of Byte; { default character }

    LeadByte        : array[0..MAX_LEADBYTES - 1] of Byte;      { lead byte ranges }

  end;

  TCPInfo           = _cpinfo;

  CPINFO            = _cpinfo;

                    

  PNumberFmtA       = ^TNumberFmtA;

  PNumberFmt        = PNumberFmtA;

  _numberfmtA       = packed record

    NumDigits       : UINT;        { number of decimal digits }

    LeadingZero     : UINT;      { if leading zero in decimal fields }

    Grouping        : UINT;         { group size left of decimal }

    lpDecimalSep    : PAnsiChar;   { ptr to decimal separator AnsiStr }

    lpThousandSep   : PAnsiChar;  { ptr to thousand separator AnsiStr }

    NegativeOrder   : UINT;    { negative number ordering }

  end;

  _numberfmt = _numberfmtA;

  TNumberFmtA = _numberfmtA;

  TNumberFmt = TNumberFmtA;

  NUMBERFMTA = _numberfmtA;

  NUMBERFMT = NUMBERFMTA;

                         

  PCurrencyFmtA = ^TCurrencyFmtA;

  PCurrencyFmt = PCurrencyFmtA;

  _currencyfmtA = packed record

    NumDigits: UINT;           { number of decimal digits }

    LeadingZero: UINT;         { if leading zero in decimal fields }

    Grouping: UINT;            { group size left of decimal }

    lpDecimalSep: PAnsiChar;      { ptr to decimal separator AnsiStr }

    lpThousandSep: PAnsiChar;     { ptr to thousand separator AnsiStr }

    NegativeOrder: UINT;       { negative currency ordering }

    PositiveOrder: UINT;       { positive currency ordering }

    lpCurrencySymbol: PAnsiChar;  { ptr to currency symbol AnsiStr }

  end;             

  _currencyfmt = _currencyfmtA;

  TCurrencyFmtA = _currencyfmtA;

  TCurrencyFmt = TCurrencyFmtA;

  CURRENCYFMTA = _currencyfmtA;

  CURRENCYFMT = CURRENCYFMTA;

  

{ Code Page Dependent APIs. }

  function IsValidCodePage(CodePage: UINT): BOOL; stdcall; external kernel32 name 'IsValidCodePage';

  function GetACP: UINT; stdcall; external kernel32 name 'GetACP';

  function GetOEMCP: UINT; stdcall; external kernel32 name 'GetOEMCP';

  function GetCPInfo(CodePage: UINT; var lpCPInfo: TCPInfo): BOOL; stdcall; external kernel32 name 'GetCPInfo';

  

  function IsDBCSLeadByte(TestChar: Byte): BOOL; stdcall; external kernel32 name 'IsDBCSLeadByte';

  function IsDBCSLeadByteEx(CodePage: UINT; TestChar: Byte): BOOL; stdcall; external kernel32 name 'IsDBCSLeadByteEx';



  // CP_UTF7

  // winconst_char.pas

  //   CodePage???????????????????????????????????????????????????????

  //       CP_ACP?ANSI????

  //       CP_MACCP?Macintosh????

  //       CP_OEMCP?OEM????

  //?     CP_SYMBOL???????42??

  //       CP_THREAD_ACP?????ANSI????

  //?     CP_UTF7???UTF-7???

  //       CP_UTF8???UTF-8??

  //dwFlags????????????????????????????????

  //    ???????????????????????????????????????????????

  //    MB_PRECOMPOSED??????????????????????????????????????????????????????????

  //    MB_COMPOSITE??????

  //    MB_COMPOSITE???????????????????????????????????????????????MB_PRECOMPOSED??????

  //    MB_ERR_INVALID_CHARS???????????????????????GetLastErro??ERROR_NO_UNICODE_TRANSLATION??

  //    MB_USEGLYPHCHARS??????????????

  function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD;

    const lpMultiByteStr: LPCSTR; cchMultiByte: Integer;

    lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer; stdcall; external kernel32 name 'MultiByteToWideChar';

  function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD;

    lpWideCharStr: LPWSTR; cchWideChar: Integer; lpMultiByteStr: LPSTR;

    cchMultiByte: Integer; lpDefaultChar: LPCSTR; lpUsedDefaultChar: PBOOL): Integer; stdcall; external kernel32 name 'WideCharToMultiByte';

    

{ Locale Dependent APIs. }

const          

  CSTR_LESS_THAN           = 1;             { str 1 less than str 2 }

  CSTR_EQUAL               = 2;             { str 1 equal to str 2 }

  CSTR_GREATER_THAN        = 3;             { str 1 greater than str 2 }



  function CompareStr(Locale: LCID; dwCmpFlags: DWORD; lpStr1: PAnsiChar;

    cchCount1: Integer; lpStr2: PAnsiChar; cchCount2: Integer): Integer; stdcall; external kernel32 name 'CompareStringA';

  function LCMapStr(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PAnsiChar;

    cchSrc: Integer; lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall; external kernel32 name 'LCMapStringA';

  function GetTimeFormat(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;

    lpFormat: PAnsiChar; lpTimeStr: PAnsiChar; cchTime: Integer): Integer; stdcall; external kernel32 name 'GetTimeFormatA';

  function GetDateFormat(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;

    lpFormat: PAnsiChar; lpDateStr: PAnsiChar; cchDate: Integer): Integer; stdcall; external kernel32 name 'GetDateFormatA';

  function GetNumberFormat(Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;

    lpFormat: PNumberFmt; lpNumberStr: PAnsiChar; cchNumber: Integer): Integer; stdcall; external kernel32 name 'GetNumberFormatA';

  function GetCurrencyFormat(Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;

    lpFormat: PCurrencyFmt; lpCurrencyStr: PAnsiChar; cchCurrency: Integer): Integer; stdcall; external kernel32 name 'GetCurrencyFormatA';

//  function EnumCalendarInfo(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;

//    Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;

  function GetStrTypeEx(Locale: LCID; dwInfoType: DWORD; lpSrcStr: PAnsiChar;

    cchSrc: Integer; var lpCharType): BOOL; stdcall; external kernel32 name 'GetStringTypeExA';

  

  function GetStrTypeA(Locale: LCID; dwInfoType: DWORD; const lpSrcStr: LPCSTR;

    cchSrc: BOOL; var ACharType: Word): BOOL; stdcall; external kernel32 name 'GetStringTypeA';

  function FoldStr(dwMapFlags: DWORD; lpSrcStr: PAnsiChar; cchSrc: Integer;

    lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall; external kernel32 name 'FoldStringA';

  { LPWSTR pMessage = L"%1!*.*s! %3 %4!*s!";

    FormatMessage(FORMAT_MESSAGE_FROM_STR |

                  FORMAT_MESSAGE_ALLOCATE_BUFFER,

                  pMessage, 

                  0,

                  0,

                  (LPWSTR)&pBuffer, 

                  0, 

                  &args); }

  function FormatMessage(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;

    lpBuffer: PAnsiChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall; external kernel32 name 'FormatMessageA';



type

  TwDLLKernel_Char  = record

    IsValidCodePage : function (CodePage: UINT): BOOL; stdcall;

    GetACP          : function : UINT; stdcall;

    GetOEMCP        : function : UINT; stdcall;

    GetCPInfo       : function (CodePage: UINT; var lpCPInfo: TCPInfo): BOOL; stdcall;



    IsDBCSLeadByte  : function (TestChar: Byte): BOOL; stdcall;

    IsDBCSLeadByteEx: function (CodePage: UINT; TestChar: Byte): BOOL; stdcall;

    MultiByteToWideChar: function (CodePage: UINT; dwFlags: DWORD; const lpMultiByteStr: LPCSTR;

        cchMultiByte: Integer; lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer; stdcall;

    WideCharToMultiByte: function (CodePage: UINT; dwFlags: DWORD; lpWideCharStr: LPWSTR;

        cchWideChar: Integer; lpMultiByteStr: LPSTR; cchMultiByte: Integer; lpDefaultChar: LPCSTR;

        lpUsedDefaultChar: PBOOL): Integer; stdcall;

    CompareStr      : function (Locale: LCID; dwCmpFlags: DWORD; lpStr1: PAnsiChar; cchCount1: Integer;

        lpStr2: PAnsiChar; cchCount2: Integer): Integer; stdcall;

    LCMapStr        : function (Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PAnsiChar;

        cchSrc: Integer; lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;

    GetTimeFormat   : function (Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;

        lpFormat: PAnsiChar; lpTimeStr: PAnsiChar; cchTime: Integer): Integer; stdcall;

    GetDateFormat   : function (Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;

        lpFormat: PAnsiChar; lpDateStr: PAnsiChar; cchDate: Integer): Integer; stdcall;

    GetNumberFormat : function (Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;

        lpFormat: PNumberFmt; lpNumberStr: PAnsiChar; cchNumber: Integer): Integer; stdcall;

    GetCurrencyFormat: function (Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;

        lpFormat: PCurrencyFmt; lpCurrencyStr: PAnsiChar; cchCurrency: Integer): Integer; stdcall;

  //  EnumCalendarInfo: function (lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;

  //    Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;

    GetStrTypeEx    : function (Locale: LCID; dwInfoType: DWORD; lpSrcStr: PAnsiChar;

        cchSrc: Integer; var lpCharType): BOOL; stdcall;

    GetStrTypeA     : function (Locale: LCID; dwInfoType: DWORD; const lpSrcStr: LPCSTR;

        cchSrc: BOOL; var ACharType: Word): BOOL; stdcall;

    FoldStr         : function (dwMapFlags: DWORD; lpSrcStr: PAnsiChar; cchSrc: Integer;

        lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;

    FormatMessage   : function (dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD;

        dwLanguageId: DWORD; lpBuffer: PAnsiChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;

  end;

  

implementation



end.