看流星社区 › 其它编程技术 › delphi 写的一个读内存函数，大家来看下错在哪里！

CARRIE 发表于 2011-3-29 09:07:27

delphi 写的一个读内存函数，大家来看下错在哪里！

function ReadWideStr(add: Integer; size: Integer): string;
var
i: Integer;
begin
i := 0;
Result := '';
add := PInt(add)^;
while i < size do
begin
    Result := Result + pWideChar(add + i)^;
    inc(i, 2);
end;
end;

前提：DLL以成功注入游戏，数据类型都可以读出，现在读中文的数据，报错，请大家指正，为谢！

蓝色的忧郁 发表于 2011-3-29 09:07:37

add := PInt(add)^;
这句不需要吧

你的参数应该是地址了吧！

蓝色的忧郁 发表于 2011-3-29 09:07:43

另外，你取的是WideChar，但是函数定义的是string

Result := Result + pWideChar(add + i)^;

CARRIE 发表于 2011-3-29 09:08:16

string 不是char的组合吗？可以看成 string=一个char数组，反回因该没有错

scjazf 发表于 2011-3-29 09:08:42

function ReadWideStr(add: Integer; size: Integer): Widestring; //这里要改为宽字符
var
i: Integer;
begin
i := 0;
Result := '';
add := PInt(add)^;
while i < size do
begin
    Result := Result + pWideChar(add + i)^;
    inc(i, 2);
end;
end;

CARRIE 发表于 2011-3-29 09:08:51

谢谢收到问题以解决

查看完整版本: delphi 写的一个读内存函数，大家来看下错在哪里！