function MemoryToWideString(Memroy: TMemoryStream): WideString; begin Result := ''; if Memory.Size = 0 then Exit; SetLength(Result, Memory.Size); Move(Memory.Memory^, Result[1], Memory.Size); end;如果不成功,试试将最后一句改成: Move(Memory.Memory^, Result[1], Memory.Size * 2);
W: WideString;
begin
W := PChar(MemoryStream.Memory);
...
end;别问我为什么,我也说不清...
MemoryStream我也不知道是什么类型,MemoryStream.LoadFromFile(一个压缩的文件);W := PChar(MemoryStream.Memory);压缩的文件有100多k,但是Length(W)=2 ~~~晕~~~
老大一声令下,要我把做的函数返回类型由TmemoryStream变为WideString
只好改之~~~~~~~做小弟难啊~
begin
Result := '';
if Memory.Size = 0 then Exit;
SetLength(Result, Memory.Size);
Move(Memory.Memory^, Result[1], Memory.Size);
end;如果不成功,试试将最后一句改成:
Move(Memory.Memory^, Result[1], Memory.Size * 2);