delphi的UTF8Encode使用没有问题可 Utf8Decode在解码的时候遇到它认为不正确的字符就返回空串了,还是用winapi靠谱
uses windows;
function DecodeUtf8Str(const S:UTF8String): WideString;
var lenSrc,lenDst
begin
end;
从数据库读取Unicode的中文编码,解码:
DecodeUtf8Str(UTF8String(Trim(dm.qPo.FieldByName('title').AsString)));
效果比Utf8Decode好,BDS2006+Win764位下通过