CreateFile FileSeek FileRead 直接读取数据

时间:2023-03-09 03:19:27
CreateFile FileSeek FileRead 直接读取数据
  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