delphi中的编码转换
来源:互联网 发布:穆雅斓的淘宝店叫什么 编辑:程序博客网 时间:2024/05/02 00:54
function UnicodeEncode(Str:string;CodePage:integer):WideString;
var
Len:integer;
begin
Len:=Length(Str)+1;
SetLength(Result,Len);
Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len);
SetLength(Result,Len-1); //end is #0
ShowMessage(Result);
end;
function UnicodeDecode(Str:WideString;CodePage:integer):string;
var
Len:integer;
begin
Len:=Length(Str)*2+1; //one for #0
SetLength(Result,Len);
Len:=WideCharToMultiByte(CodePage,0,PWideChar(Str),-1,PChar(Result),Len,nil,nil);
SetLength(Result,Len-1);
end;
function Gb2Big5(Str:string):string;
begin
SetLength(Result,Length(Str));
LCMapString(GetUserDefaultLCID,LCMAP_TRADITIONAL_CHINESE,
PChar(Str),Length(Str),
PChar(Result),Length(Result));
Result:=UnicodeDecode(UnicodeEncode(Result,936),950);
end;
function Big52Gb(Str:string):string;
begin
Str:=UnicodeDecode(UnicodeEncode(Str,950),936);
SetLength(Result,Length(Str));
LCMapString(GetUserDefaultLCID,LCMAP_SIMPLIFIED_CHINESE,
PChar(Str),Length(Str),
PChar(Result),Length(Result));
end;
//关键使用了UnicodeToUtf8这个函数
function Utf8Encode(const WS: WideString): UTF8String;
var
L: Integer;
Temp: UTF8String;
begin
Result := '';
if WS = '' then Exit;
SetLength(Temp, Length(WS) * 3); // SetLength includes space for null terminator
L := UnicodeToUtf8(PChar(Temp), Length(Temp)+1, PWideChar(WS), Length(WS));
if L > 0 then
SetLength(Temp, L-1)
else
Temp := '';
Result := Temp;
end;
procedure TForm1.Button1Click(Sender: TObject);
var y:wideString;
x:String;
begin
y:='I am 钱波';
x:=Format('%d',[Length(y)]);
ShowMessage(x);
y:=UniCodeEncode(Edit1.Text,CP_ACP);
ShowMessage(y);
end;
- delphi中的编码转换
- delphi中的编码转换
- delphi编码转换
- python中的编码转换
- delphi 编码转换 unicode gbk big5
- Delphi 编码转换 Unicode gbk big5
- delphi 编码转换 unicode gbk big5
- Delphi中的进制转换
- C#中的String编码转换
- javascript中的字符串编码转换
- C# 中的编码转换实现
- java中的字符串编码转换
- c++与Delphi中的类型转换
- 关于delphi中的强制类型转换
- Delphi REST 服务器返回UTF16编码转换成正常string
- 纪念经典的 D7(Delphi 7编码转换程序)
- Delphi REST 服务器返回UTF16编码转换成正常string
- delphi编码
- NET学习文章链接
- JDBC2.0扩展API(3)
- 我的节日
- JDBC2.0扩展API(4)
- Tomcat5配置Mysql JDBC数据库连接池
- delphi中的编码转换
- 在Tomcat中安装JSTL
- 绝世经典短信笑话
- 关于javaspider
- tomcat+mysql篇--win2000下的mysql安装
- Java Servlet API说明文档
- 网上看到的jsp操作excel和日期提醒的一些东西
- 气愤
- 高质量C++编程点滴