注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

love3400wind的blog

like

 
 
 

日志

 
 
 
 

delphi 读取二进制文件,并将二进制转化为字符串  

2012-10-31 15:53:21|  分类: IT |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

不说话,直接上源代码:
procedure TForm1.btn3Click(Sender: TObject);
var
iFileHandle, iFileLength, iBytesRead : Integer;
byteBuff : array of Byte;

i : Integer;
str, stra, strb : string;
begin
iFileHandle := FileOpen('C://myFile1.txt', fmOpenRead);
iFileLength := FileSeek(iFileHandle, 0, 2);
ShowMessage('iFileLength = ' + IntToStr(iFileLength));

FileSeek(iFileHandle, 0, 0);

SetLength(byteBuff, iFileLength);

iBytesRead := FileRead(iFileHandle, byteBuff[0], iFileLength);

FileClose(iFileHandle);

stra := StrPas( PChar(@byteBuff[1]));
ShowMessage('stra=' + stra);

strb := StrPas(@byteBuff[0]);
ShowMessage('strb=' + strb);

SetLength(str, 5);
Move(byteBuff[0], str[1], 5);
ShowMessage('str=' + str);

str := '';
for i:=0 to iBytesRead do
begin
str := str + chr(byteBuff[i]);
end;

ShowMessage(str);
byteBuff := nil;
end;


myFile1.txt  内容:
[true我是中国人]c


对应的二进制内容为:
delphi 读取二进制文件,并将二进制转化为字符串 - love3400wind - love3400wind的博客
 
弹出结果顺序:
delphi 读取二进制文件,并将二进制转化为字符串 - love3400wind - love3400wind的博客
 
delphi 读取二进制文件,并将二进制转化为字符串 - love3400wind - love3400wind的博客
 
delphi 读取二进制文件,并将二进制转化为字符串 - love3400wind - love3400wind的博客
 
delphi 读取二进制文件,并将二进制转化为字符串 - love3400wind - love3400wind的博客
 
delphi 读取二进制文件,并将二进制转化为字符串 - love3400wind - love3400wind的博客
 
注意: 
byteBuff  下标
  评论这张
 
阅读(1841)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017