請問如何將中文字轉為UTF-8碼 |
|
尚未結案
|
|
1995
一般會員   發表：7 回覆：19 積分：5 註冊：2002-08-07 發送簡訊給我 |
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
在"UTF-16"編碼方式中，所有的字串都使用16個二進制位來表示，表示的從0到65535的字串。在處理使用該編碼的文件時，每取出一個字串，需要從該文件中得到兩字節的數據，按照其默認的高低為順序，將其組合為一個16位的數值，即為該字串的數值。 "UTF-8"編碼方式中，表示字串編碼的基本單位是一個八位二進制數(一字節)。根據字串在Unicode字串集中的位置，即字串的數值不同，一個字串可能被編碼成為一字節，兩字節，三字節。具體規定如下: 從0x0000到0x007f之間的字串(即ASCII碼的前128位)，使用一字節編碼。具體格式為 [0vvvvvvv]，該字節的第一位為0，後七位為有效位，表示該字串的數值，這與ASCII碼的編碼方式相同，無需特殊處理。 從0x0080到0x07ff之間的字串使用兩個字節編碼。具體格式為[110vvvvv]， [10vvvvvv]，第一個字節的開始三位為110，其後為有效位，第二個字節的開始兩位為10，有六個有效位。處理時需要將此兩個字節的有效位取出，合成一個十一位的二進制數，即為該字串的數值。 從0x0800到0xffff之間的字串使用三個字節編碼，具體格式為 [1110vvvv]， [10vvvvvv]， [10vvvvvv]。 此三個字節的有效位分別為4，6，6，處理時應把他們合併成16位的數值。
|
|
1995
一般會員 發表：7 回覆：19 積分：5 註冊：2002-08-07 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
|
|
1995
一般會員 發表：7 回覆：19 積分：5 註冊：2002-08-07 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
|
|
1995
一般會員 發表：7 回覆：19 積分：5 註冊：2002-08-07 發送簡訊給我 |
找到了 delphi 的 help 有 UCS4 的定義
UTF conversion scheme data type UCS4 另外找到一個例子，應該是用 JAVASCRIPT 寫的，有沒有人可轉成 DELPHI // UTF-8: converts code point array into UTF-8 code unit array function toUTF8(cpArray, cuArray, parseResult) {
parseResult.set();
var u = 0;
var bu;
var lastPoint = 0;
cuArray.length = 0;
for (var p = 0; p < cpArray.length; p) {
lastPoint = point;
var point = cpArray[p]; if (point < 0) {
parseResult.set("illegal code point - out of bounds: ", p, point);
return;
} else if (point <= 0x7F) {
cuArray[u ] = point;
} else if (point <= 0x7FF) {
u = 2;
bu = u;
cuArray[--bu] = 0x80 | (point & 0x3F);
point >>= 6;
cuArray[--bu] = 0xC0 | (point & 0x1F);
} else if (point <= 0xFFFF) {
if (0xD800 <= lastPoint && lastPoint <= 0xDFFF
&& 0xDC00 <= point && point <= 0xDFFF) {
parseResult.set("illegal code point - surrogate pair: ", p, point);
return;
}
u = 3;
bu = u;
cuArray[--bu] = 0x80 | (point & 0x3F);
point >>= 6;
cuArray[--bu] = 0x80 | (point & 0x3F);
point >>= 6;
cuArray[--bu] = 0xE0 | (point & 0x0F);
} else if (point <= 0x10FFFF) {
u = 4;
bu = u;
cuArray[--bu] = 0x80 | (point & 0x3F);
point >>= 6;
cuArray[--bu] = 0x80 | (point & 0x3F);
point >>= 6;
cuArray[--bu] = 0x80 | (point & 0x3F);
point >>= 6;
cuArray[--bu] = 0xF0 | (point & 0x07);
} else {
new ParseResult("illegal code point - out of bounds: ", p, point);
}
}
cuArray.length = u;
}
|
|
nulifes
一般會員 發表：4 回覆：3 積分：1 註冊：2003-11-13 發送簡訊給我 |
找到 indyURI 方法了 一個函數就好 免宣告 function UTF8Encode(const ASrc: string): string;
const
UnsafeChars = ['*', '#', '%', '<', '>', ' ', ' ']; {do not localize}
var
i: Integer;
begin
Result := ''; {Do not Localize}
for i := 1 to Length(ASrc) do begin
if (ASrc[i] in UnsafeChars) or (ASrc[i] >= #$80) or (ASrc[i] < #32) then begin
Result := Result '%' IntToHex(Ord(ASrc[i]), 2); {do not localize}
end else begin
Result := Result ASrc[i];
end;
end;
end;
|
|
WY.GZ
一般會員 發表：1 回覆：10 積分：7 註冊：2003-05-07 發送簡訊給我 |
unit utf8util; interface
// RFC 2279 function EncodeUTF8 (S: WideString): String;
function DecodeUTF8 (S: String): WideString; // *** //
// Created: //
// October 2. 2004 //
// By R.M. Tegel //
// //
// Discription: //
// UTF8 Encode and Decode functions //
// Encode and Decode UTF to and from WideString //
// //
// Limitations: //
// 4-byte UTF decoding not supported. //
// No effort is done to mask 4-byte UTF character to two-byte WideChar //
// 4-byte characters will be replace by space (#32) //
// This should not affect further decoding. //
// //
// Background: //
// Created as independant UTF8 unit to support libsql //
// Targeted to be more effective than borland's implementation in D7+ //
// especially on large strings. //
// //
// License: //
// Modified Artistic License //
// The MAL license is compatible with almost any open-source license //
// Especially including but no limited to GPL, LGPL and BSD //
// Main issues about this licese: //
// You may use this unit for any legal purpose you see fit //
// You may freely modify and redistribute this unit as long as //
// you leave author(s) name(s) as contributor / original creator //
// You may use this unit in closed-source commercial applications //
// You may include this unit in your projects' source distribution //
// You may re-license this unit as GPL or BSD if needed for your project //
// //
// Happy Programming ;) //
// Rene //
// *** // implementation function EncodeUTF8(S: WideString): String;
var rl: Integer;
procedure Plus (c: byte);
begin
inc (rl);
//pre-allocation to improve performance:
if rl>length(Result) then
SetLength (Result, length(Result)+2048);
Result[rl] := char(c);
end;
var i: Integer;
c: Word;
begin
//alter this to length(S) * 2 if you expect a _lot_ ('only') of non-ascii
//for max speed.
SetLength (Result, 20+round (length(S) * 1.2));
rl := 0;
for i:=1 to length (S) do
begin
c := Word(S[i]);
if c<=$7F then //single byte in valid ascii range
Plus (c)
else
if c<$7FF then //two-byte unicode needed
begin
Plus ($C0 or (c shr 6));
Plus ($80 or (c and $3F));
end
else
begin //three byte unicode needed
//Note: widestring specifies only 2 bytes
//so, there is no need for encoding up to 4 bytes.
Plus ($E0 or (c shr 12));
Plus ($80 or ((c and $FFF) shr 6));
Plus ($80 or (c and $3F));
end;
end;
SetLength (Result, rl);
end; function DecodeUTF8 (S: String): WideString;
var rl: Integer;
procedure Plus (c: word);
begin
inc (rl);
if (rl>length(Result)) then //alloc some extra mem
SetLength (Result, length(Result)+512);
Result[rl] := WideChar(c);
end;
var b,c,d,e,r: byte;
w: Word;
i,l: Integer;
begin
//Result := '';
SetLength (Result, length(S));
rl := 0;
i := 1;
l := length(S);
while i<=l do
begin
b := byte(S[i]);
if (b and $80)=0 then //7-bit
Plus (b)
else
if (b and $E0)=$C0 then //11-bit
begin
if i
|
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2004-10-20 10:10:52
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-11-22 17:42:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |