中国开发网: 论坛: 程序员情感CBD: 贴子 551652
ysb_ysb_ysb: 我只要把UTF-8 改GB2312就可以了,希望能够改这样:代码如下
var
s,temps: string;
i: Integer;
vStream: TStringStream;
begin
s := vSourceStream.DataString; //vSourceStream就是MQ中的数据,就是哪个文件的内容,但是他的DataString就有部分出现乱码了,所以我想变换乱码
s := UTF8Decode(s);//结果s = '' 了
本想改成功的,以下代码就没有用了
if pos('<MSG>',s) > 0 then// 含encoding
begin
i := Pos('<MSG>',s);
// s := '<?xml version="1.0" encoding="GB2312"?> ' + Copy(s,i,length(s));
s := trim(s);
vStream := TStringStream.Create('');
vStream.WriteString(s);

end;
vSourceStream := vStream;
end;

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录