关于UTF-8B编码请问高手

[yangxuelong]

我把delphi7编写的一些程序移植到CB5是碰到一个这样的问题
在DELPHI7的的函数 Utf8encode， 就是把一个 WideString 变成UTF-8字符串。
但在CB5中没有这样的函数！不知道怎么办，请问高手。

[yangxuelong]

原来代码是这样：
function TPduPush.StrToUTF8(str: WideString): string;
var
s: pchar;
i: integer;
tmp: string;
begin
tmp := '';
result := '';
s := pchar(Utf8encode(str));
for i := 0 to length(s) - 1 do begin
tmp := tmp + format('%2.2x', [ord(s[i])]);
end;
result := tmp;
end;

[samchoy]

可能是BCB6才有这个函数吧

[yangxuelong]

那怎么办？

[我来看看CB]

这是BCB6中的帮助文件！
BCB5也应该有吧，实在没有，你就用BCB6



Converts a WideString value to a UTF8 string.

Unit

System

Category

character set conversions

extern PACKAGE UTF8String __fastcall UTF8Encode(const WideString WS);

Description

Call Utf8Encode to convert a Unicode string to UTF-8. WS is the Unicode string to convert. Utf8Encode returns the corresponding UTF-8 string.

[yangxuelong]

谢谢提醒，但我在CB5中找不到UTF8Encode这个函数。编译联接时找不到这个函数，头文件里包含了
#include <System.hpp>，
所以还得请进一步明示！

[samchoy]

Converts a WideString value to a UTF8 string.

Unit

System

Category

character set conversions

extern PACKAGE UTF8String __fastcall UTF8Encode(const WideString WS);

Description

Call Utf8Encode to convert a Unicode string to UTF-8. WS is the Unicode string to convert. Utf8Encode returns the corresponding UTF-8 string.

[samchoy]

UTF8String type
-----------------------------------------------------------------------
UTF8String represents a string in the UTF-8 character set.

Unit

System

typedef AnsiString UTF8String;

Description

UTF8String is the type for strings encoded using UTF-8. UTF-8 is an efficient encoding of Unicode character-strings that recognizes the fact that the majority of text-based communications are in ASCII, and optimizes the encoding of these characters.