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