ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBCodePage.pas

Comparing ibx/trunk/runtime/IBCodePage.pas (file contents):
Revision 42 by tony, Tue May 17 08:14:52 2016 UTC vs.
Revision 43 by tony, Thu Sep 22 17:10:15 2016 UTC

#	Line 11 | Line 11 | interface
11		uses
12		Classes, SysUtils;
13
14	<	{$IFDEF HAS_ANSISTRING_CODEPAGE}
15	<	function IBGetCodePage(IBCP_Name: string): TSystemCodePage;
16	<	function IBGetCharacterSetName(CodePage: TSystemCodePage): RawByteString;
17	<	{$ENDIF}
14	>	type
15	>	TFirebirdCharacterSets = class
16	>	public
17	>	class function GetCharsetName(CharSetID: integer): string;
18	>	{$IFDEF HAS_ANSISTRING_CODEPAGE}
19	>	class function CharSetID2CodePage(CharSetID: integer; var CodePage: TSystemCodePage): boolean;
20	>	class function CodePage2CharSetID(CodePage: TSystemCodePage; var CharSetID: integer): boolean;
21	>	{$ENDIF}
22	>	class function CharSetName2CharSetID(CharSetName: string; var CharSetID: integer): boolean;
23	>	class function CharSetWidth(CharSetID: integer; var Width: integer): boolean;
24	>	end;
25	>
26
27		implementation
28
21	–	{$IFDEF HAS_ANSISTRING_CODEPAGE}
29
30		type
31	<	TIBCodePage = record
32	<	IBCharacterSetName: string;
33	<	cp: TSystemCodePage;
31	>	TCharsetMap = record
32	>	CharsetID: integer;
33	>	CharSetName: string;
34	>	CharSetWidth: integer;
35	>	{$IFDEF HAS_ANSISTRING_CODEPAGE}
36	>	CodePage: TSystemCodePage;
37	>	{$ELSE}
38	>	CodePage: integer;
39	>	{$ENDIF}
40		end;
41
42	<	{ Code Page numbers should align with CodePageNames array in Sysutils}
42	>	{$IFNDEF HAS_ANSISTRING_CODEPAGE}
43	>	{necessary to ensure compilation}
44		const
45	<	IBCodePages: array [0..51] of TIBCodePage = (
46	<	(IBCharacterSetName: 'UTF8'; cp: CP_UTF8),
47	<	(IBCharacterSetName: 'NONE'; cp: CP_NONE),
48	<	(IBCharacterSetName: 'OCTETS'; cp: CP_NONE),
49	<	(IBCharacterSetName: 'ASCII'; cp: CP_ASCII),
50	<	(IBCharacterSetName: 'SJIS_0208'; cp: 932),
51	<	(IBCharacterSetName: 'WIN1250'; cp: 1250),
52	<	(IBCharacterSetName: 'WIN1251'; cp: 1251),
53	<	(IBCharacterSetName: 'WIN1252'; cp: 1252),
40	<	(IBCharacterSetName: 'WIN1253'; cp: 1253),
41	<	(IBCharacterSetName: 'WIN1254'; cp: 1254),
42	<	(IBCharacterSetName: 'WIN1255'; cp: 1255),
43	<	(IBCharacterSetName: 'WIN1256'; cp: 1256),
44	<	(IBCharacterSetName: 'WIN1257'; cp: 1257),
45	<	(IBCharacterSetName: 'WIN1258'; cp: 1258),
46	<	(IBCharacterSetName: 'ISO8859_1'; cp: 28591),
47	<	(IBCharacterSetName: 'ISO8859_2'; cp: 28592),
48	<	(IBCharacterSetName: 'ISO8859_3'; cp: 28593),
49	<	(IBCharacterSetName: 'ISO8859_4'; cp: 28594),
50	<	(IBCharacterSetName: 'ISO8859_5'; cp: 28595),
51	<	(IBCharacterSetName: 'ISO8859_6'; cp: 28596),
52	<	(IBCharacterSetName: 'ISO8859_7'; cp: 28597),
53	<	(IBCharacterSetName: 'ISO8859_8'; cp: 28598),
54	<	(IBCharacterSetName: 'ISO8859_9'; cp: 28599),
55	<	(IBCharacterSetName: 'ISO8859_13'; cp: 28603),
56	<	(IBCharacterSetName: 'EUCJ_0208'; cp: 20932),
57	<	(IBCharacterSetName: 'DOS437'; cp: 437),
58	<	(IBCharacterSetName: 'DOS850'; cp: 850),
59	<	(IBCharacterSetName: 'DOS865'; cp: 865),
60	<	(IBCharacterSetName: 'DOS852'; cp: 852),
61	<	(IBCharacterSetName: 'DOS857'; cp: 857),
62	<	(IBCharacterSetName: 'DOS860'; cp: 860),
63	<	(IBCharacterSetName: 'DOS861'; cp: 861),
64	<	(IBCharacterSetName: 'DOS863'; cp: 863),
65	<	(IBCharacterSetName: 'CYRL'; cp: 28595),
66	<	(IBCharacterSetName: 'DOS737'; cp: 737),
67	<	(IBCharacterSetName: 'DOS775'; cp: 775),
68	<	(IBCharacterSetName: 'DOS858'; cp: 858),
69	<	(IBCharacterSetName: 'DOS862'; cp: 862),
70	<	(IBCharacterSetName: 'DOS864'; cp: 864),
71	<	(IBCharacterSetName: 'DOS866'; cp: 866),
72	<	(IBCharacterSetName: 'DOS869'; cp: 869),
73	<	(IBCharacterSetName: 'NEXT'; cp: CP_NONE),
74	<	(IBCharacterSetName: 'KSC_5601'; cp: 949),
75	<	(IBCharacterSetName: 'BIG_5'; cp: 950),
76	<	(IBCharacterSetName: 'GB_2312'; cp: 52936),
77	<	(IBCharacterSetName: 'KOI8R'; cp: 20866),
78	<	(IBCharacterSetName: 'KOI8U'; cp: 21866),
79	<	(IBCharacterSetName: 'TIS620'; cp: 20838),
80	<	(IBCharacterSetName: 'GBK'; cp: 936),
81	<	(IBCharacterSetName: 'CP943C'; cp: 50220),
82	<	(IBCharacterSetName: 'UNICODE_FSS'; cp: CP_UTF8),
83	<	(IBCharacterSetName: 'GB18030' ; cp: 54936)
84	<	);
85	<
86	<	function IBGetCodePage(IBCP_Name: string): TSystemCodePage;
87	<	var I: integer;
88	<	begin
89	<	Result := CP_NONE;
90	<	for I := Low(IBCodePages) to High(IBCodePages) do
91	<	if IBCodePages[I].IBCharacterSetName = IBCP_Name then
92	<	begin
93	<	Result :=  IBCodePages[I].cp;
94	<	Exit;
95	<	end;
96	<	end;
97	<
98	<	function IBGetCharacterSetName(CodePage: TSystemCodePage): RawByteString;
99	<	var I: integer;
100	<	begin
101	<	Result := 'UTF8';
102	<	for I := Low(IBCodePages) to High(IBCodePages) do
103	<	if IBCodePages[I].cp = CodePage then
104	<	begin
105	<	Result :=  IBCodePages[I].IBCharacterSetName;
106	<	Exit;
107	<	end;
108	<	end;
45	>	CP_ACP     = 0;     // default to ANSI code page
46	>	CP_OEMCP   = 1;     // default to OEM (console) code page
47	>	CP_UTF16   = 1200;  // utf-16
48	>	CP_UTF16BE = 1201;  // unicodeFFFE
49	>	CP_UTF7    = 65000; // utf-7
50	>	CP_UTF8    = 65001; // utf-8
51	>	CP_ASCII   = 20127; // us-ascii
52	>	CP_NONE    = $FFFF; // rawbytestring encoding
53	>	{$ENDIF}
54
55	+	const
56	+	CharSetMap: array [0..69] of TCharsetMap = (
57	+	(CharsetID: 0; CharSetName: 'NONE'; CharSetWidth: 1; CodePage: CP_NONE),
58	+	(CharsetID: 1; CharSetName: 'OCTETS'; CharSetWidth: 1; CodePage: CP_NONE),
59	+	(CharsetID: 2; CharSetName: 'ASCII'; CharSetWidth: 1; CodePage: CP_ASCII),
60	+	(CharsetID: 3; CharSetName: 'UNICODE_FSS'; CharSetWidth: 3; CodePage: CP_UTF8),
61	+	(CharsetID: 4; CharSetName: 'UTF8'; CharSetWidth: 4; CodePage: CP_UTF8),
62	+	(CharsetID: 5; CharSetName: 'SJIS_0208'; CharSetWidth: 2; CodePage: 20932),
63	+	(CharsetID: 6; CharSetName: 'EUCJ_0208'; CharSetWidth: 2; CodePage: 20932),
64	+	(CharsetID: 7; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
65	+	(CharsetID: 8; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
66	+	(CharsetID: 9; CharSetName: 'DOS737'; CharSetWidth: 1; CodePage: 737),
67	+	(CharsetID: 10; CharSetName: 'DOS437'; CharSetWidth: 1; CodePage: 437),
68	+	(CharsetID: 11; CharSetName: 'DOS850'; CharSetWidth: 1; CodePage: 850),
69	+	(CharsetID: 12; CharSetName: 'DOS865'; CharSetWidth: 1; CodePage: 865),
70	+	(CharsetID: 13; CharSetName: 'DOS860'; CharSetWidth: 1; CodePage: 860),
71	+	(CharsetID: 14; CharSetName: 'DOS863'; CharSetWidth: 1; CodePage: 863),
72	+	(CharsetID: 15; CharSetName: 'DOS775'; CharSetWidth: 1; CodePage: 775),
73	+	(CharsetID: 16; CharSetName: 'DOS858'; CharSetWidth: 1; CodePage: 858),
74	+	(CharsetID: 17; CharSetName: 'DOS862'; CharSetWidth: 1; CodePage: 862),
75	+	(CharsetID: 18; CharSetName: 'DOS864'; CharSetWidth: 1; CodePage: 864),
76	+	(CharsetID: 19; CharSetName: 'NEXT'; CharSetWidth: 1; CodePage: CP_NONE),
77	+	(CharsetID: 20; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
78	+	(CharsetID: 21; CharSetName: 'ISO8859_1'; CharSetWidth: 1; CodePage: 28591),
79	+	(CharsetID: 22; CharSetName: 'ISO8859_2'; CharSetWidth: 1; CodePage: 28592),
80	+	(CharsetID: 23; CharSetName: 'ISO8859_3'; CharSetWidth: 1; CodePage: 28593),
81	+	(CharsetID: 24; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
82	+	(CharsetID: 25; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
83	+	(CharsetID: 26; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
84	+	(CharsetID: 27; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
85	+	(CharsetID: 28; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
86	+	(CharsetID: 29; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
87	+	(CharsetID: 30; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
88	+	(CharsetID: 31; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
89	+	(CharsetID: 32; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
90	+	(CharsetID: 33; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
91	+	(CharsetID: 34; CharSetName: 'ISO8859_4'; CharSetWidth: 1; CodePage: 28594),
92	+	(CharsetID: 35; CharSetName: 'ISO8859_5'; CharSetWidth: 1; CodePage: 28595),
93	+	(CharsetID: 36; CharSetName: 'ISO8859_6'; CharSetWidth: 1; CodePage: 28596),
94	+	(CharsetID: 37; CharSetName: 'ISO8859_7'; CharSetWidth: 1; CodePage: 28597),
95	+	(CharsetID: 38; CharSetName: 'ISO8859_8'; CharSetWidth: 1; CodePage: 28598),
96	+	(CharsetID: 39; CharSetName: 'ISO8859_9'; CharSetWidth: 1; CodePage: 28599),
97	+	(CharsetID: 40; CharSetName: 'ISO8859_13'; CharSetWidth: 1; CodePage: 28603),
98	+	(CharsetID: 41; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
99	+	(CharsetID: 42; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
100	+	(CharsetID: 43; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
101	+	(CharsetID: 44; CharSetName: 'KSC_5601'; CharSetWidth: 2; CodePage: 949),
102	+	(CharsetID: 45; CharSetName: 'DOS852'; CharSetWidth: 1; CodePage: 852),
103	+	(CharsetID: 46; CharSetName: 'DOS857'; CharSetWidth: 1; CodePage: 857),
104	+	(CharsetID: 47; CharSetName: 'DOS861'; CharSetWidth: 1; CodePage: 861),
105	+	(CharsetID: 48; CharSetName: 'DOS866'; CharSetWidth: 1; CodePage: 866),
106	+	(CharsetID: 49; CharSetName: 'DOS869'; CharSetWidth: 1; CodePage: 869),
107	+	(CharsetID: 50; CharSetName: 'CYRL'; CharSetWidth: 1; CodePage: 1251),
108	+	(CharsetID: 51; CharSetName: 'WIN1250'; CharSetWidth: 1; CodePage: 1250),
109	+	(CharsetID: 52; CharSetName: 'WIN1251'; CharSetWidth: 1; CodePage: 1251),
110	+	(CharsetID: 53; CharSetName: 'WIN1252'; CharSetWidth: 1; CodePage: 1252),
111	+	(CharsetID: 54; CharSetName: 'WIN1253'; CharSetWidth: 1; CodePage: 1253),
112	+	(CharsetID: 55; CharSetName: 'WIN1254'; CharSetWidth: 1; CodePage: 1254),
113	+	(CharsetID: 56; CharSetName: 'BIG_5'; CharSetWidth: 2; CodePage: 950),
114	+	(CharsetID: 57; CharSetName: 'GB_2312'; CharSetWidth: 2; CodePage: 936),
115	+	(CharsetID: 58; CharSetName: 'WIN1255'; CharSetWidth: 1; CodePage: 1255),
116	+	(CharsetID: 59; CharSetName: 'WIN1256'; CharSetWidth: 1; CodePage: 1256),
117	+	(CharsetID: 60; CharSetName: 'WIN1257'; CharSetWidth: 1; CodePage: 1257),
118	+	(CharsetID: 61; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
119	+	(CharsetID: 62; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
120	+	(CharsetID: 63; CharSetName: 'KOI8R'; CharSetWidth: 1; CodePage: 20866),
121	+	(CharsetID: 64; CharSetName: 'KOI8U'; CharSetWidth: 1; CodePage: 21866),
122	+	(CharsetID: 65; CharSetName: 'WIN1258'; CharSetWidth: 1; CodePage: 1258),
123	+	(CharsetID: 66; CharSetName: 'TIS620'; CharSetWidth: 1; CodePage: 874),
124	+	(CharsetID: 67; CharSetName: 'GBK'; CharSetWidth: 2; CodePage: 936),
125	+	(CharsetID: 68; CharSetName: 'CP943C'; CharSetWidth: 2; CodePage: 943),
126	+	(CharsetID: 69; CharSetName: 'GB18030'; CharSetWidth: 4; CodePage: 54936)
127	+	);
128	+
129	+	class function TFirebirdCharacterSets.GetCharsetName(CharSetID: integer): string;
130	+	begin
131	+	Result := '';
132	+	if (CharSetID >= Low(CharSetMap)) and (CharSetID <= High(CharSetMap)) and
133	+	(CharSetMap[CharSetID].CharSetID = CharSetID) then
134	+	begin
135	+	Result := CharSetMap[CharSetID].CharSetName;
136	+	Exit;
137	+	end;
138	+	end;
139	+
140	+	{$IFDEF HAS_ANSISTRING_CODEPAGE}
141	+	class function TFirebirdCharacterSets.CharSetID2CodePage(CharSetID: integer;
142	+	var CodePage: TSystemCodePage): boolean;
143	+	begin
144	+	Result := (CharSetID >= Low(CharSetMap)) and (CharSetID <= High(CharSetMap))
145	+	and (CharSetMap[CharSetID].CharSetID = CharSetID);
146	+	if Result then
147	+	begin
148	+	CodePage := CharSetMap[CharSetID].CodePage;
149	+	Result := true;
150	+	Exit;
151	+	end;
152	+	end;
153	+
154	+	class function TFirebirdCharacterSets.CodePage2CharSetID(CodePage: TSystemCodePage;
155	+	var CharSetID: integer): boolean;
156	+	var i: integer;
157	+	begin
158	+	Result := false;
159	+	for i := Low(CharSetMap) to High(CharSetMap) do
160	+	if CharSetMap[i].CodePage = CodePage then
161	+	begin
162	+	CharSetID := CharSetMap[i].CharSetID;
163	+	Result := true;
164	+	Exit;
165	+	end;
166	+	end;
167		{$ENDIF}
168
169	+	class function TFirebirdCharacterSets.CharSetName2CharSetID(CharSetName: string;
170	+	var CharSetID: integer): boolean;
171	+	var i: integer;
172	+	begin
173	+	Result := false;
174	+	for i := Low(CharSetMap) to High(CharSetMap) do
175	+	if CompareStr(CharSetMap[i].CharSetName, CharSetName) = 0 then
176	+	begin
177	+	CharSetID := CharSetMap[i].CharSetID;
178	+	Result := true;
179	+	Exit;
180	+	end;
181	+	end;
182	+
183	+	class function TFirebirdCharacterSets.CharSetWidth(CharSetID: integer; var Width: integer
184	+	): boolean;
185	+	begin
186	+	Result := (CharSetID >= Low(CharSetMap)) and (CharSetID <= High(CharSetMap))
187	+	and (CharSetMap[CharSetID].CharSetID = CharSetID);
188	+	if Result then
189	+	begin
190	+	Width := CharSetMap[CharSetID].CharSetWidth;
191	+	Result := true;
192	+	Exit;
193	+	end;
194	+	end;
195	+
196	+
197	+
198	+
199		end.
200

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines