[阅读: 704] 2007-08-14 03:29:45
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;