RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

Delphi操作Unicode字符

作者:admin 来源: 日期:2018/2/9 15:52:00 人气: 标签:

当前版本(2007)中的默认状态下, String 就是 AnsiString
在 Delphi 2009 中:
string = UnicodeString; (同样: PString = PUnicodeString;)
Char = WideChar; (同样: PChar = PWideChar;)

procedure
var
List: TStrings;
begin
List := TStringList.Create;
List.Text := str;
List.SaveToFile(FilePath, TEncoding.ASCII);
List.LoadFromFile(FilePath, TEncoding.ASCII); // TEncoding.UTF8;
Memo2.Lines := List;
List.Free;
end;

请教下万老师:我发现delphi2009里用idhttp来获取网页,如果网页源码是utf8的话可以直接用htmsrc:=idhttp.get(url),而如果是gb码的话只能用stream方式。但是用stream取得的gb编码网页怎样把他转成utf呢?如果不转的话在非中文操作系统下会乱码。
procedure TForm1.Button1Click(Sender: TObject);
var
stream1,stream2: TStringStream;
b: Byte;
bs: string;
begin
{建立第一个流, 使用默认的双字节编码; 流中的数据是 Memo 中的字符串}
stream1 := TStringStream.Create(Memo1.Text, 54936);
{把第一个流的十六进制编码显示在 Memo 中}
bs := '';
for b in stream1.Bytes do bs := Format(bs + '%2x ', [b]);
Memo1.Lines.Add(bs);
stream2 := TStringStream.Create(stream1.DataString, TEncoding.UTF8);
{把第二个流的十六进制编码显示在 Memo 中}
bs := '';
for b in stream2.Bytes do bs := Format(bs + '%2x ', [b]);
Memo1.Lines.Add(bs);
stream1.Free;
stream2.Free;

 

function Str_Gb2UniCode(text: string): String;
var
i,len: Integer;
cur: Integer;
t: String;
ws: WideString;
begin
Result := '';
ws := text;
len := Length(ws);
i := 1;
while i <= len do
begin
cur := Ord(ws[i]);
FmtStr(t,'%4.4X',[cur]);
Result := Result + t;
Inc(i);
end;
end;


function Unicode_str(text: string):string;
var
i,len: Integer;
ws: WideString;
begin
ws := '';
i := 1;
len := Length(text);
while i < len do
begin
ws := ws + Widechar(StrToInt('$' + Copy(text,i,4)));
i := i+4;
end;
Result := ws;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Str_Gb2UniCode('íòò»')); //4E074E00
ShowMessage(Unicode_str('4E074E00')); //íòò»
end;


Unicode和字符相互转化的函数
2009-11-09 14:52
// 将字符转化成Unicode 
function AnsiToUnicode(Ansi: string):string; 
var 
s:string; 
i:integer; 
j,k:string[2]; 
a:array [1..1000] of char; 
begin 
s:=''; 
StringToWideChar(Ansi,@(a[1]),500); 
i:=1; 
while ((a[i]<>#0) or (a[i+1]<>#0)) do begin 
j:=IntToHex(Integer(a[i]),2); 
k:=IntToHex(Integer(a[i+1]),2); 
s:=s+k+j; 
i:=i+2; 
end; 
Result:=s; 
end;

// 将Unicode转化成字符 
function ReadHex(AString:string):integer; 
begin 
Result:=StrToInt('$'+AString) 
end;

function UnicodeToAnsi(Unicode: string):string; 
var 
s:string; 
i:integer; 
j,k:string[2]; 
begin 
i:=1; 
s:=''; 
while i< if end; s:="s+Char(ReadHex(j))+Char(ReadHex(k));" i:="i+4;" k:="Copy(Unicode,i,2);" j:="Copy(Unicode,i+2,2);" begin do>'' then 
s:=WideCharToString(PWideChar(s+#0#0#0#0)) 
else 
s:=''; 
Result:=s; 
end;


//WideChar 兼容了 AnsiChar 的 #0..#255; 但占用了 2 字节大小
//UniCode 字符 WideChar; 和 AnsiChar 不同, WideChar 是占 2 字节大小.
var
c: WideChar; {WideChar 的取值范围是: #0..#65535, 用十六进制表示是: #$0..#$FFFF}
begin
{WideChar 兼容了 AnsiChar 的 #0..#255; 但占用了 2 字节大小}
c := #65;
ShowMessage(c); {A}
ShowMessage(IntToStr(Length(c))); {1; 这是字符长度}
ShowMessage(IntToStr(SizeOf(c))); {2; 但占用 2 个字节}

Navigation: 问与答 >

汉字与多字节编码的转换


汉字与多字节编码的转换 - 回复 "不知道" 的问题

问题来源:

TEncoding.Default码(中的16位 CE D2 C3 C7 )如何转成汉字呢?

汉字为'我们';

--------------------------------------------------------------------------------
Delphi 2009 默认的编码是多字节编码(MBCS), Delphi 这样表示它: TEncoding.Default.

下面是多字节编码与汉字之间转换的例子:

--------------------------------------------------------------------------------

 


{汉字到多字节编码}

procedure TForm1.Button1Click(Sender: TObject);

var

stream: TStringStream;

b: Byte;

string;

begin

stream := TStringStream.Create('我们', TEncoding.Default);
s := '';
for b in stream.Bytes do s := Format('%s%x '
ShowMessage(s); {CE D2 C3 C7}
stream.Free;

end;

{多字节编码到汉字}

procedure TForm1.Button2Click(Sender: TObject);
var
stream: TStringStream;
begin

stream := TStringStream.Create;
stream.Size := 4;
stream.Bytes[0] := $CE; 
stream.Bytes[1] := $D2;
stream.Bytes[2] := $C3;
stream.Bytes[3] := $C7;
ShowMessage(stream.DataString); 
stream.Free;

end;

 

{把多字节编码的字符串转换到汉字}

procedure TForm1.Button3Click(Sender: TObject);
var
stream: TStringStream;
i: Integer;
begin
str := 'CED2C3C7';
stream := TStringStream.Create;
stream.Size := Length(str) div 2;
for i := 1to Length(str) do
if Odd(i) then stream.Bytes[i div 2] := StrToIntDef(Concat(#36,str[i],str[i+1]), 0);
ShowMessage(stream.DataString); {我们}
stream.Free;
end;
end.


获取所有汉字与 Unicode 的对照表 
var
w: WideString;
i: Integer;
s: string;
List: TStringList;
begin
List := TStringList.Create;
for i := $4e00 to $9fa5 do
begin
s := #36 + IntToHex(i,4); {#36 是 $ 字符}
w := WideChar(i);
List.Add(s + '='
end;

List.SaveToFile('c:\temp\Unicode-Hz.txt');
List.Free;
end;

汉字与 Unicode 转换 
{感谢 robin(xuebin418@163.com)提供}

//转换

functionstring): String; 
var 
i,len: Integer;
cur: Integer;
t: String;
ws: WideString;
begin
Result := '';
ws := text;
len := Length(ws);
i := 1
while i <= len do
begin
cur := Ord(ws[i]);
FmtStr(t,'%4.4X',[cur]);
Result := Result + t;
Inc(i);
end;

end;

 

//恢复
Unicode_str(text: string):string;
var
i,len: Integer;
ws: WideString;
begin
ws := '';
i := 1;
len := Length(text);
while i < len do
begin
ws := ws + Widechar(StrToInt('$' + Copy(text,i,4)));
i := i+4;
end;
Result := ws;
end;

 

//测试
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Str_Gb2UniCode('万一')); //4E074E00
ShowMessage(Unicode_str('4E074E00')); //万一
end;

Windows API 中的字符串对应这 Delphi 的 PChar(PAnsiChar); 在 API 中使用 Delphi 的字符串还是比较灵活的.
定长字符串不是 #0 结束的, 和 API 不好兼容, 一般不用于 API 中. 
//赋值方法1: 给直接量

begin
SetWindowText(Handle, '新标题');
end;

--------------------------------------------------------------------------------

 

//赋值方法2: 定义它要的类型
var
p: PChar;
begin
p := '新标题';
SetWindowText(Handle, p);
end;

--------------------------------------------------------------------------------

 

//赋值方法3: 转换成它要的类型
var
str: string;
begin
str := '新标题';
SetWindowText(Handle, PChar(str));
end;

//赋值方法4: 用字符数组
var
arr: array[0..255] of Char;
begin
arr := '新标题';
SetWindowText(Handle, arr);
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料