关于Delphi对二进制文件(.bin文件)的读写操作

Question

最近需要写个U盘升级程序,从而开始接触Delphi7.
   请问下,Delphi对二进制文件的读写是怎么样的一个过程,能写个有注释的代码吗?
具体的要求是这样的:
  firmware.bin 文件里有个结构体
     typedef struct S_FIRMWARE_BIN_TAG{
U32 iBinFileLen; //the length of the binary
U8 xMd5Checksum[256]; // (128k(max firmware size)/8k(md5 input size) )*16bytes 
//(md5 output size)
U8 iVersion_main; //number
U8 iVersion_major; // number
U8 iVersion_minor; // number
U8 cVersion_fix; //character like a, b ,c .etc
U8 cProductId[16]; //string
U8 cVendorId[16]; //string
U8 cCustomer[16]; //string
U8 cDescription[200]; //string
         } FIRMWARE_BIN_TAG现在,在一个事件中需要对这个.bin文件进行读写操作,并将字符串数组cproductID,cvendorID,( iVersion_main.iVersion_major.cVersion_minor)赋值给char a,b and c(都是char哈!).
   希望大家不要闲分少哈，本人菜鸟一个~~~

Answer 1

type
FIRMWARE_BIN_TAG = record
iBinFileLen:integer;
xMd5Checksum:array[0..255]of byte;
iVersion_main:byte;
iVersion_major:byte;
iVersion_minor:byte;
cProductId:array[0..15]of byte;
cVendorId:array[0..15]of byte;
cCustomer:array[0..15]of byte;
cDescription:array[0..199]of byte;
end;
var
x:FIRMWARE_BIN_TAG;
h:Integer;
  str:string;
begin h := FileOpen( 'test' , fmOpenRead  );
  FileRead( h , x , SizeOf(x) );
  str := Pchar(@x.cProductId);
  writeln(str);
end.

Answer 2

如果支持C的话，那就是
char *tmp;
tmp=malloc(sizeof(FIRMWARE_BIN_TAG ))；//申请内存空间。FILE *pfile=fopen("文件名","rb");//打开文件
fread(tmp,sizeof(FIRMWARE_BIN_TAG ),1,pfile);//读文件char *offset;
offset=tmp+sizeof(u32)+sizeof(u8)*256+sizeof(u8)*4;//cproductID偏移字节数 char a[17]//我是按u8=1个byte算的。17=sizeof(u8)*16+1
for(int i=0;i<16;i++)//赋值给char a[]
a[i]=*offset;
a[16]='\0';offset=offset+16;//偏移到cvendorIDchar b[17];
for(int i=0;i<16;i++)//赋值给char b[]
b[i]=*offset
b[16]='\0';

Answer 3

代码如下：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;type S_FIRMWARE_BIN_TAG=packed record
iBinFileLen: int64 ;
xMd5Checksum:array [0..256-1] of byte;
iVersion_main:Byte ;
iVersion_major:Byte ;
iVersion_minor:Byte ;
cVersion_fix:Byte;
cProductId:array [0..16-1] of char ;
cVendorId:array [0..16-1] of char ;
cCustomer:array [0..16-1] of char ;
cDescription:array [0..200-1] of char ;
end;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var Fhandle:THandle;
var buff:S_FIRMWARE_BIN_TAG;
var readcount:Cardinal ;
var a,b,c:string;
begin  Fhandle:=CreateFile(pchar('firmware.bin'), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);  ReadFile(Fhandle,buff,SizeOf (S_FIRMWARE_BIN_TAG),readcount,nil)  ;  a:=buff.cProductId;
  b:=buff.cvendorID;
  c:= inttostr(buff.iVersion_main)+'.'+inttostr(buff.iVersion_major)+'.'+inttostr(buff.iVersion_minor) ;
end;end.

Answer 4

抱歉 ，iBinFileLen: int64 ; 应为 iBinFileLen: integer ;

Answer 5

itmes 同学给的东西很好，不过我看是看不懂,运行了一下,也不是很理想.但不管怎么样,还是要谢谢了!

Answer 6

指教?不敢当.楼主是想问如何读写呢,还是想要源代码?如果是的话那就发到http://prj.csdn.net

Answer 7

更新下,结构体为:type S_FIRMWARE_BIN_TAG=packed record
iVersion_main:byte;
iVersion_major:byte;
iVersion_minor:byte;
cVersion_fix:byte;
  cUsrPasswd:array[0..16] of char;
  cBT_nickname:array[0..40] of char;
iUpgradeStatus:char;
end;现在在Delphi界面的相应位置想显示出version information和nickname ,格式分别为:
 version information:  byte(main).byte(major).byte(minor)byte(fix) 
如version information:1.2.3a
 nickname: str()  如 nickname:abcddd
另上面几为朋友给出的代码或多或少出现了问题,我在上面说个.但还是非常感谢他们的帮助.

Answer 8

type
  S_FIRMWARE_BIN_TAG = record 
    iBinFileLen:LongWord; //the length of the binary 
    xMd5Checksum: array[0..256-1] of Byte; // (128k(max firmware size)/8k(md5 input size) )*16bytes 
//(md5 output size) 
    iVersion_main: Byte; //number 
    iVersion_major: Byte; // number 
    iVersion_minor: Byte; // number 
    cVersion_fix: Char; //character like a, b ,c .etc 
    cProductId: String[16]; //string 
    cVendorId: String[16]; //string 
    cCustomer: String[16]; //string 
    cDescription: String[200]; //string 
end;
FIRMWARE_BIN_TAG = S_FIRMWARE_BIN_TAG