Encoding

[MNosouhi]

با سلام
من کد زیر را در دلفی XE3 استفاده کرده ام :


var
msg: WideString;
request: TStringStream;
XMLStr:string;
begin
msg := 'تست';

XMLStr:='<?xml version="1.0" encoding="UTF-8"?>'+
//....
'<text>'+msg+'</text>' { + ...} ;

request := TStringStream.Create(XMLStr,TEncoding.UTF8,false);

همانطور که در کد می بینید ، متد create پارامتری دارد که می توان نوع coding (در اینجا TEncoding.UTF8) را مشخص کرد .
سوال من این است که معادل کد بالا در دلفی 7 چیست ؟
من کد زیر را استفاده کردم ، اما جواب نگرفتم :

var
msg: WideString;
request: TStringStream;
XMLStr:string;
begin
msg := 'تست';

XMLStr:='<?xml version="1.0" encoding="UTF-8"?>'+
//....
'<text>'+msg+'</text>' { + ...} ;

request := TStringStream.Create(UTF8Encode(XMLStr));
هممانطوری که می بینید در دلفی 7 از UTF8Encode استفاده کردم تا coding را انجام بدهم ، اما جواب نگرفتم . گویا کد های مذکور معادل هم نبستند .