delphi对于Tbytes 和ansistring的转换

最近，在做微信支付的东东，英文没有问题了，但是中文还是有问题，于是自己便进行了测试。

在官方给到的c#代码中，经常有以下语句

            var bs = md5.ComputeHash(Encoding.UTF8.GetBytes(str));

 

这个意思是得到整列，因为我使用delphi实现的，我于是进行了测试，发现网络上的有些资料是有问题的

在delphi中，类似得到了TBytes结果的语句：

var buf:Tbytes;

buf:=TEncoding.UTF8.GetBytes(Edit4.Text);

 

但是我们经常用string处理怎么转换呢？我发现以下问题，都有问题：

bb:=TEncoding.ANSI.GetString(buf, Low(buf), High(buf) + 1);

bb:=stringof(buf);

有的是只转换了2个字节，由于此函数是外国人写的，他们操作系统不是中文，当然没有问题，但是对于我们就不行了，所以我们用最原始的办法：

其中move和copymemory 都可以使用。

function Tbytes2AnsiString(buf: TBytes): Ansistring;
var
ilen: integer;
begin
ilen := Length(buf);
if ilen = 0 then
Exit('');
SetLength(Result, ilen);
// FillChar(Result[1], ilen, 0);
// Move(PAnsiChar(DS.Memory)^, Result[1], DS.Size);
//另外一种
// CopyMemory(PAnsiChar(result), @buf[0],ilen);
Move(buf[0], Result[1], ilen);

//一般用两种情况一种 用 aStringStream:=TStringStream.Create(Edit4.Text,TEncoding.UTF8);
//buf:=TEncoding.UTF8.GetBytes(Edit4.Text);
end;

 

经过跟踪，发现数据ok了

 

转载于:https://www.cnblogs.com/yf142857/p/6433582.html