个为大哥急用，成功就接贴。帮帮忙

Question

将以下两个函数用DELPHI表达出来下面的函数是我用C#写的
public string PDUEncoded(string srvContent)
{
Encoding encodingUTF=System.Text.Encoding.BigEndianUnicode;
string s=null;
byte [] encodedBytes=encodingUTF.GetBytes(srvContent);
for (int i=0;i<encodedBytes.Length;i++)
{
     s += BitConverter.ToString(encodedBytes,i,1);
}
return s;
}public string DecodingUCS2(string s)
{
string RtnStr = "";
string svrPDUContent = s;
int nLen = svrPDUContent.Length;
byte[] Bytes = new byte[nLen/2];
for(int i=0;i<Bytes.Length;i++)
{
Bytes[i] = byte.Parse(svrPDUContent.Substringi*2,2),System.Globalization.NumberStyles.AllowHexSpecifier);
}
RtnStr=System.Text.Encoding.BigEndianUnicode.GetString(Bytes);

return RtnStr;
}

Answer 1

Utf8ToAnsi 和 function AnsiToUtf8(const S: string): UTF8String; 
是和你功能一样吗.C#的函数不很熟,如果不是,请把要求说出

Answer 2

我就是要在DELPHI里面做两个函数
一个是将有中文的字符串转换正编码
然后将编码转换成中文就OK了

Answer 3

var   
        strOrigin,strDest: String;   
        wcName:array[0..3] of WideChar;   
        cName:array[0..7] of Char;   
  begin   
        FillChar(wcName,SizeOf(wcName),0);   
        FillChar(cName,SizeOf(cName),0);   
        StringToWideChar(strOrigin,wcName,8);   
        UnicodeToUtf8(cName,wcName,10);   
    
        Utf8ToUnicode(wcName,cName,4);   
        strDest:=WideCharLenToString(wcName,4);   
  end;   

Answer 4

请问yintao你写的是什么意思啊
怎么看不明白可不可以说明白点啊