1. unit Unit1;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, StdCtrls, FileCtrl;
  6. type
  7. TForm1 = class(TForm)
  8. Button1: TButton;
  9. DriveComboBox1: TDriveComboBox;
  10. memosd: TMemo;
  11. procedure Button1Click(Sender: TObject);
  12. private
  13. { Private declarations }
  14. public
  15. { Public declarations }
  16. end;
  17. var
  18. Form1: TForm1;
  19. implementation
  20. {$R *.dfm}
  21. procedure TForm1.Button1Click(Sender: TObject);
  22. Var
  23. driver          : pchar;
  24. block_size      : Integer;
  25. start_num , total_num , num_tmp : Integer;
  26. hdevicehandle   : thandle;
  27. i , j , k       : Integer;
  28. C               : Char;
  29. fbuf            : pchar;
  30. hex_str , char_str , tmp_str : String;
  31. tem_id          : String;
  32. trans_no_tmp    : String;
  33. num             : String;
  34. bu_count , trans_count : Integer;
  35. Begin
  36. driver := pchar('\\.\' + DriveComboBox1.Drive + ':');
  37. block_size := 512;
  38. start_num := 0;
  39. total_num := 1;
  40. hdevicehandle := CreateFile(driver , GENERIC_ALL , FILE_SHARE_READ Or FILE_SHARE_WRITE , Nil , OPEN_EXISTING , 0 , 0);
  41. If (hdevicehandle <> INVALID_HANDLE_VALUE) Then
  42. Begin
  43. fbuf := allocmem(total_num * block_size);
  44. FileSeek(hdevicehandle , start_num * block_size , 0);
  45. If FileRead(hdevicehandle , fbuf[0] , total_num * block_size) <> total_num * block_size Then
  46. Raise exception.Create('读磁盘错误!');
  47. char_str := strpas(fbuf);
  48. memosd.Lines.Add('字符【' + char_str + '】');
  49. memosd.Lines.Add('读取包头结束!');
  50. freemem(fbuf);
  51. closehandle(hdevicehandle);
  52. End;
  53. tmp_str := copy(char_str , 1 , 10);
  54. If trystrtoint(tmp_str , bu_count) = false Then
  55. Begin
  56. memosd.Lines.Add('补货记录总条数不是合法的整数!');
  57. exit;
  58. End;
  59. tmp_str := '';
  60. tmp_str := copy(char_str , 11 , 10);
  61. If trystrtoint(tmp_str , trans_count) = false Then
  62. Begin
  63. memosd.Lines.Add('交易记录总条数不是合法的整数!');
  64. exit;
  65. End;
  66. tem_id := copy(char_str , 21 , 8);
  67. // del_bu_tmp(tem_id);
  68. //write_bu_con_tmp(tem_id , inttostr(bu_count) , '');
  69. start_num := 1;
  70. While start_num <= bu_count Do
  71. Begin
  72. hdevicehandle := CreateFile(driver , GENERIC_ALL , FILE_SHARE_READ Or FILE_SHARE_WRITE , Nil , OPEN_EXISTING , 0 , 0);
  73. If (hdevicehandle <> INVALID_HANDLE_VALUE) Then
  74. Begin
  75. fbuf := allocmem(block_size);
  76. FileSeek(hdevicehandle , start_num * block_size , 0);
  77. If FileRead(hdevicehandle , fbuf[0] , block_size) <> block_size Then
  78. Raise exception.Create('读磁盘错误!');
  79. char_str := strpas(fbuf);
  80. memosd.Lines.Add('字符【' + char_str + '】');
  81. memosd.Lines.Add('读取补货记录' + inttostr(start_num) + '结束!');
  82. freemem(fbuf);
  83. closehandle(hdevicehandle);
  84. End;
  85. //     do_sd(char_str , tmp_str);
  86. start_num := start_num + 1;
  87. End;
  88. // i := bi_bu_mixi_sd(tem_id);
  89. If i = 2 Then
  90. Begin
  91. //         write_bu_from_tmp(tem_id);
  92. End;
  93. char_str := '';
  94. tmp_str := '';
  95. start_num := 301;
  96. del_trans_tmp(tem_id);
  97. write_trans_con_tmp(tem_id , inttostr(trans_count) , '');
  98. While start_num <= (trans_count * 3 + 300) Do
  99. Begin
  100. hdevicehandle := CreateFile(driver , GENERIC_ALL , FILE_SHARE_READ Or FILE_SHARE_WRITE , Nil , OPEN_EXISTING , 0 , 0);
  101. If (hdevicehandle <> INVALID_HANDLE_VALUE) Then
  102. Begin
  103. fbuf := allocmem(3 * block_size);
  104. FileSeek(hdevicehandle , start_num * block_size , 0);
  105. If FileRead(hdevicehandle , fbuf[0] , 3 * block_size) <> 3 * block_size Then
  106. Raise exception.Create('读磁盘错误!');
  107. char_str := strpas(fbuf);
  108. memosd.Lines.Add('字符【' + char_str + '】');
  109. memosd.Lines.Add('读取交易记录' + inttostr(start_num) + '结束!');
  110. freemem(fbuf);
  111. closehandle(hdevicehandle);
  112. End;
  113. do_sd(char_str , tmp_str);
  114. start_num := start_num + 3;
  115. End;
  116. i := bi_trans_mixi_sd(tem_id);
  117. If i = 2 Then
  118. Begin
  119. write_trans_from_tmp(tem_id);
  120. End;
  121. frmdatamu.Message1.Text := '读取SD卡结束!';
  122. frmdatamu.Message1.ShowModal;
  123. End;
  124. end.

http://blog.csdn.net/cmdasm/article/details/16949585

CreateFile FileSeek FileRead 直接读取数据的更多相关文章

  1. Delphi判断文件是否正在被使用(CreateFile也可以只是为了读取数据,而不是创建)

    首先,我们先来认识下CreateFile函数,它的原型如下   HANDLE CreateFile( LPCTSTR lpFileName,    //指向文件名的指针 DWORD dwDesired ...

  2. struts2中从后台读取数据到<s:select>

    看到网上好多有struts2中从后台读取数据到<s:select>的,但都 不太详细,可能是我自己理解不了吧!所以我自己做了 一个,其中可能 有很多不好的地方,望广大网友指出 结果如图 p ...

  3. [MVC4]ASP.NET MVC4+EF5(Lambda/Linq)读取数据

    继续上一节初始ASP.NET MVC4,继续深入学习,感受了一下微软的MVC4+EF5(EntityFramework5)框架的强大,能够高效的开发出网站应用开发系统,下面就看一下如何用MVC4+EF ...

  4. ubuntu server 12.04U盘安装,提示无法挂载安装光盘或光盘读取数据出错

    今天用Ultraiso将Ubuntu server 12.04 刻入U盘中安装系统,中间提示错误:1.检测不到cdrom(即U盘没有挂载上):2.从光盘中读取数据出错.问题如下图所示: 上网搜了下解决 ...

  5. MySQL数据库中tinyint类型字段读取数据为true和false

    今天遇到这么一个问题,公司最近在做一个活动,然后数据库需要建表,其中有个字段是关于奖励发放的状态的字段,结果读取出来的值为true 一.解决读取数据为true/false的问题 场景: 字段:stat ...

  6. My Game --文件读取数据

    My Game --线段数据 中说到背景的绘制由贝赛尔曲线生成线段,用 DrawNode 画多边形,同时一张背景有两座山,一座山有两条以上贝赛尔曲线保存,用了嵌套的数据类:Bezier,LineLay ...

  7. Java—从文件中读取数据

    1.FileInputStream() // 构建字节输入流对象,参数为文件名 FileInputStream fin = new FileInputStream("message" ...

  8. 10天学会phpWeChat——第三天:从数据库读取数据到视图

    在第二天,我们创建了我们的第一个phpWeChat功能模块,但是比较简单.实际生产环境中,我们不可能有如此简单的需求.更多的情况是数据存储在MySql数据库中,我们开发功能模块的作用就是将这些数据从M ...

  9. 用EXCEL内嵌的Visual Basic for Application 编程,通过 UGSimple USB-GPIB 控制器来驱动仪器34401A,并从34401A读取数据

    现在市场上有很多中USB-GPIB 控制器,或叫 USB 转GPIB链接线. 每种GPIB控制器都有它的 函数库(dll库).各种GPIB 控制器的价钱插别很大.这里以一种价钱较便宜的USB-GPIB ...

随机推荐

  1. html自定义提示框

    自定义html提示框比较令人困惑的就是编写三角形的样式:以前的实现方式是在标签内使用span标签来实现.不过现在有了css提供的两个为类:before,:after之后,可以不用再内置span标签了: ...

  2. X265编译中C2220错误的解决办法

    x265编译过程中 C2220错误:根本原因是代码是英文代码页,而我们的操作系统中使用的是中文代码页: 解决办法1 逐个文件进行格式转换,我在ubuntu下用iconv命令试过,没成功: 解决办法2 ...

  3. android使用微软EWS发送邮件

    通常我们在android使用javamail发送邮件,可是很多时候我们需要连接Exchange服务(很多公司内部邮件服务器采用,并且未开通smtp服务)来发送邮件,这时候我们就要用到微软的 ews-j ...

  4. linux 网络状态工具ss命令

    ss命令用于显示socket状态. 他可以显示PACKET sockets, TCP sockets, UDP sockets, DCCP sockets, RAW sockets, Unix dom ...

  5. 2015 UESTC Winter Training #8【The 2011 Rocky Mountain Regional Contest】

    2015 UESTC Winter Training #8 The 2011 Rocky Mountain Regional Contest Regionals 2011 >> North ...

  6. nyoj 44

    //nyoj 44 //和上面一题一样,求子串和,但是代码非常简洁..... 时间复杂度为n #include <iostream> using namespace std; int ma ...

  7. Ecstore关于finder的默认的参数row的数据不见了的一些小问题?

    在finder中,我们经常对默认的参数row进行数据的编辑处理,然而,在实际处理中,会遇到这么一个问题,该处理的数据不见了,造成这一原因的重要原 因是因为在设置的时候,把某些字段屏蔽掉了,导致返回的r ...

  8. .net面试总结

    一. hr 为人处事 工作中遇到问题:沟通很重要 离职原因:公司倒闭 二. ISAPI Internet Server Application Program Interface 三. http状态码 ...

  9. Android Studio 将工程作为第三方类库的步骤

    一.将工程的module名称修改为自己要添加的类库名称 1.选中module文件夹右键到Rename项 2.选中Rename module项 3.修改为自己的名称,如VolleyLibary 二.修改 ...

  10. [译]一个灵活的 Trello 敏捷工作流

    [译]一个灵活的 Trello 敏捷工作流 翻译自 An Agile Trello Workflow That Keeps Tasks Flexible Getting things done 可不只 ...