首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 看雪峰会 看雪商城 证书查询
  1. 社区
  2. 付费问答
    3. 发新帖
[旧帖] [求助]DELPHI读取十六进制文件 0.00雪花
发表于: 2010-2-16 04:55 1282

[旧帖] [求助]DELPHI读取十六进制文件 0.00雪花

delphinet 活跃值
2010-2-16 04:55
1282
请问DELPHI程序怎么读取一个十六进制的文件并以文本的格式显示出来

[课程]Linux pwn 探索篇！

上传的附件：
收藏
免费 ・0
支持
分享
最新回复 (1)
nig
雪    币： 414
活跃值： (531)
能力值： ( LV9，RANK：170 )
在线值：
发帖
回帖
粉丝
私信
2 楼
var
  F: file of byte;
buf:array [0..100000] of byte;
i:integer;
begin
   assignfile(F,'文件名' );
  reset(F);
  blockread(F,buf,filesize(F));   //F大小要小于定义的缓冲区大小
closeFile(F);
  for i:=0 to filesize(F)-1 do label1.caption:=label1.caption + inttoHex(buf[i],2);

end;
2010-2-19 11:16
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//