给定内存的地址和数据块大小，如何读出这块数据？

[Michaelyfj]

给定内存的地址和数据块大小，如何读出这块数据？

[redhaifeng]

试试这个方法：
var Buf:Array of Byte;
count:integer;
begin
count := xxx;
setleng(buf,count);
move(buf,Addr,count);

end;

[Eastunfail]

楼上几位答的好像不是他要的吧.........


用CopyMemory。
function ReadMemoryBlock(dwAddress:DWORD;dwSize:DWORD):PByte;
begin
GetMem(Result,dwSize);
CopyMemory(Result,Pointer(dwAddress),dwSize);
end;

[firetoucher]

哈哈，不要意思，才看到，理解错了，把我的删了吧，看楼上。

[Michaelyfj]

to Eastunfail(恶鱼杀手) :

我要如何进行调用？这块数据是一个JPEG图象的数据，要如何通过TImage来显示这个图象？

[firetoucher]

var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
pic.Memory:=Buffer;
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;

[Eastunfail]

ok~~偶删了～～～～～～ :)

[Michaelyfj]

pic.Memory的Memory是只度的，不能赋值

[Eastunfail]

修改classes,658行为：
property Memory: Pointer read FMemory write FMemory;

[Michaelyfj]

其中pic.Memory:=Buffer;
的Buffer是哪里来的？