◢█◤★◢█◤★◢█◤★◢█◤★◢█◤★◢█◤★◢█◤★◢█◤◢███【★】███【关于把文件内容以字节方式读出?】███【★】

Question

===============================================================
TBuf=array[0..255] of Byte;
constBuf256_0:TBuf=(
$4D,$5A,$50,$00,$02,$00,$00,$00,
$04,$00,$0F,$00,$FF,$FF,$00,$00,
......(省略)
Buf256_1:TBuf=(
$50,$45,$00,$00,$4C,$01,$03,$00,
$19,$5E,$42,$2A,$00,$00,$00,$00,
.....(省略)
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);
procedure SaveEXEToStream(SaveStream:TMemoryStream);
implementationprocedure SaveEXEToStream(SaveStream:TMemoryStream);
begin
try
SaveStream.Write(Buf256_0,256);
SaveStream.Write(Buf256_1,256);
SaveStream.Write(Buf256_2,256);
SaveStream.Write(Buf256_3,256);
........(省略)
SaveStream.Write(Buf256_214,256);
SaveStream.Write(Buf256_215,256);
except
end;
end;
end.
=============================================================
这部分是输出部分!
但他是怎么把文件内容以字节方式写进去的?就是这部分
=============================================================
Buf256_0:TBuf=(
$4D,$5A,$50,$00,$02,$00,$00,$00,
$04,$00,$0F,$00,$FF,$FF,$00,$00,
......(省略)
Buf256_1:TBuf=(
$50,$45,$00,$00,$4C,$01,$03,$00,
$19,$5E,$42,$2A,$00,$00,$00,$00,
.....(省略)
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);
=================================================================
实在是没分了,以后大家需要什么我尽力帮大家google吧.呵呵.
我在这里泡了好几天了。问的问题都是关于这个~~~~~~````
一直没解决.希望今天能有结果.希望有人能发布份关于这个的代码!
小弟感激不尽!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

Answer 1

5555555555555有没高手帮解决一下?

Answer 2

恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜
恭喜恭喜恭喜
恭喜恭喜
恭喜接分！
接分！接分！
接分！接分！接分！
接分！接分！接分！接分！
接分！接分！接分！接分！接分！
接分！接分！接分！接分！接分！接分！
恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜恭喜
恭喜恭喜恭喜恭喜
恭喜恭喜恭喜
恭喜恭喜
恭喜接分！
接分！接分！
接分！接分！接分！
接分！接分！接分！接分！
接分！接分！接分！接分！接分！
接分！接分！接分！接分！接分！接分！