盒子论坛 v2.1

if OpenDialog1.Execute then
begin
   iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
   FileSeek(iFileHandle,512,0); //定位在512偏移处
   Step := AllocMem(Sizeof(SmallInt)); //分配内存
   Buffer := AllocMem(Sizeof(SmallInt));
   BufferTemp := AllocMem(Sizeof(Integer)); //三个数smallint或者integer，这里可以是字节或者字符

   FileRead(iFileHandle, Buffer^, Sizeof(SmallInt)); //读入buffer中

   while Buffer^ <> 68 do   //这里Buffer^就是一个整数了
   begin
     M := M + 1;
     FileRead(iFileHandle, Step^, Sizeof(SmallInt));
     StepTemp := Step^ - 4;
     FileSeek(iFileHandle,18, 1);
     StepTemp := StepTemp - 18;
     FileRead(iFileHandle, Buffer^, Sizeof(SmallInt));
     StepTemp := StepTemp - 2;
     if (Buffer^ = -32768) then
     begin
       FileRead(iFileHandle, BufferTemp^, Sizeof(Integer));
       StepTemp := StepTemp - 4;
     end;

     if M = 1 then
     begin
       while StepTemp <> 0 do
       begin
         FileRead(iFileHandle, Buffer^, Sizeof(SmallInt));
         StepTemp := StepTemp - 2;
         if (Buffer^ = -32768) then
         begin
          FileRead(iFileHandle, BufferTemp^, Sizeof(Integer));
          StepTemp := StepTemp - 4;
         end;

         N := N + 1;
       end;
     end
     else
       FileSeek(iFileHandle,StepTemp, 1);

     FileRead(iFileHandle, Buffer^, Sizeof(SmallInt));
   end;
----------------------------------------------
Delphi Android移动开发讨论论坛老大富翁论坛历史数据搜索引擎

作者：

delphiysh (子扬)	▲▲▲▲△	-
	普通会员

2014/4/2 16:24:24

2楼：

感谢朋友回复我不明白的是 fileseek(句柄，偏移地址，x)

后面的x 取值是怎么取值的看的代码 x=0，x=1,x=2的都有想知道这个x值怎么取的我自学有点笨

----------------------------------------------
-

信息

登陆以后才能回复