我需要Pascal（ Delphi 或Free Pascal）函数将UTF-8文本（例如字符串）转换为Shift-JIS（也例如字符串）。
对于Shift-JIS =〉UTF-8，我找到了代码which is here。现在我需要向后转换器。
我想把这段代码添加到Lazarus库LConvEncoding中，所以它必须不使用'iconv'或Win32 API，它必须是纯Pascal。它可能是另一种语言的代码，如果它很容易用Pascal重写的话。
我需要Pascal（ Delphi 或Free Pascal）函数将UTF-8文本（例如字符串）转换为Shift-JIS（也例如字符串）。
对于Shift-JIS =〉UTF-8，我找到了代码which is here。现在我需要向后转换器。
我想把这段代码添加到Lazarus库LConvEncoding中，所以它必须不使用'iconv'或Win32 API，它必须是纯Pascal。它可能是另一种语言的代码，如果它很容易用Pascal重写的话。
1条答案
按热度按时间gt0wga4j1#
我找到了答案，这个代码可以从Unicode官方数据中得到：ftp://ftp.unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/SHIFTJIS.TXT。
这个文件告诉我们如何获得UTF-16代码，接下来我必须使用
UTF8Encode()将UTF-16转换为UTF-8。