CreateFile FileSeek FileRead 直接读取数据
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, FileCtrl;
- type
- TForm1 = class(TForm)
- Button1: TButton;
- DriveComboBox1: TDriveComboBox;
- memosd: TMemo;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.Button1Click(Sender: TObject);
- Var
- driver : pchar;
- block_size : Integer;
- start_num , total_num , num_tmp : Integer;
- hdevicehandle : thandle;
- i , j , k : Integer;
- C : Char;
- fbuf : pchar;
- hex_str , char_str , tmp_str : String;
- tem_id : String;
- trans_no_tmp : String;
- num : String;
- bu_count , trans_count : Integer;
- Begin
- driver := pchar('\\.\' + DriveComboBox1.Drive + ':');
- block_size := 512;
- start_num := 0;
- total_num := 1;
- hdevicehandle := CreateFile(driver , GENERIC_ALL , FILE_SHARE_READ Or FILE_SHARE_WRITE , Nil , OPEN_EXISTING , 0 , 0);
- If (hdevicehandle <> INVALID_HANDLE_VALUE) Then
- Begin
- fbuf := allocmem(total_num * block_size);
- FileSeek(hdevicehandle , start_num * block_size , 0);
- If FileRead(hdevicehandle , fbuf[0] , total_num * block_size) <> total_num * block_size Then
- Raise exception.Create('读磁盘错误!');
- char_str := strpas(fbuf);
- memosd.Lines.Add('字符【' + char_str + '】');
- memosd.Lines.Add('读取包头结束!');
- freemem(fbuf);
- closehandle(hdevicehandle);
- End;
- tmp_str := copy(char_str , 1 , 10);
- If trystrtoint(tmp_str , bu_count) = false Then
- Begin
- memosd.Lines.Add('补货记录总条数不是合法的整数!');
- exit;
- End;
- tmp_str := '';
- tmp_str := copy(char_str , 11 , 10);
- If trystrtoint(tmp_str , trans_count) = false Then
- Begin
- memosd.Lines.Add('交易记录总条数不是合法的整数!');
- exit;
- End;
- tem_id := copy(char_str , 21 , 8);
- // del_bu_tmp(tem_id);
- //write_bu_con_tmp(tem_id , inttostr(bu_count) , '');
- start_num := 1;
- While start_num <= bu_count Do
- Begin
- hdevicehandle := CreateFile(driver , GENERIC_ALL , FILE_SHARE_READ Or FILE_SHARE_WRITE , Nil , OPEN_EXISTING , 0 , 0);
- If (hdevicehandle <> INVALID_HANDLE_VALUE) Then
- Begin
- fbuf := allocmem(block_size);
- FileSeek(hdevicehandle , start_num * block_size , 0);
- If FileRead(hdevicehandle , fbuf[0] , block_size) <> block_size Then
- Raise exception.Create('读磁盘错误!');
- char_str := strpas(fbuf);
- memosd.Lines.Add('字符【' + char_str + '】');
- memosd.Lines.Add('读取补货记录' + inttostr(start_num) + '结束!');
- freemem(fbuf);
- closehandle(hdevicehandle);
- End;
- // do_sd(char_str , tmp_str);
- start_num := start_num + 1;
- End;
- // i := bi_bu_mixi_sd(tem_id);
- If i = 2 Then
- Begin
- // write_bu_from_tmp(tem_id);
- End;
- char_str := '';
- tmp_str := '';
- start_num := 301;
- del_trans_tmp(tem_id);
- write_trans_con_tmp(tem_id , inttostr(trans_count) , '');
- While start_num <= (trans_count * 3 + 300) Do
- Begin
- hdevicehandle := CreateFile(driver , GENERIC_ALL , FILE_SHARE_READ Or FILE_SHARE_WRITE , Nil , OPEN_EXISTING , 0 , 0);
- If (hdevicehandle <> INVALID_HANDLE_VALUE) Then
- Begin
- fbuf := allocmem(3 * block_size);
- FileSeek(hdevicehandle , start_num * block_size , 0);
- If FileRead(hdevicehandle , fbuf[0] , 3 * block_size) <> 3 * block_size Then
- Raise exception.Create('读磁盘错误!');
- char_str := strpas(fbuf);
- memosd.Lines.Add('字符【' + char_str + '】');
- memosd.Lines.Add('读取交易记录' + inttostr(start_num) + '结束!');
- freemem(fbuf);
- closehandle(hdevicehandle);
- End;
- do_sd(char_str , tmp_str);
- start_num := start_num + 3;
- End;
- i := bi_trans_mixi_sd(tem_id);
- If i = 2 Then
- Begin
- write_trans_from_tmp(tem_id);
- End;
- frmdatamu.Message1.Text := '读取SD卡结束!';
- frmdatamu.Message1.ShowModal;
- End;
- end.
http://blog.csdn.net/cmdasm/article/details/16949585
CreateFile FileSeek FileRead 直接读取数据的更多相关文章
- Delphi判断文件是否正在被使用(CreateFile也可以只是为了读取数据,而不是创建)
首先,我们先来认识下CreateFile函数,它的原型如下 HANDLE CreateFile( LPCTSTR lpFileName, //指向文件名的指针 DWORD dwDesired ...
- struts2中从后台读取数据到<s:select>
看到网上好多有struts2中从后台读取数据到<s:select>的,但都 不太详细,可能是我自己理解不了吧!所以我自己做了 一个,其中可能 有很多不好的地方,望广大网友指出 结果如图 p ...
- [MVC4]ASP.NET MVC4+EF5(Lambda/Linq)读取数据
继续上一节初始ASP.NET MVC4,继续深入学习,感受了一下微软的MVC4+EF5(EntityFramework5)框架的强大,能够高效的开发出网站应用开发系统,下面就看一下如何用MVC4+EF ...
- ubuntu server 12.04U盘安装,提示无法挂载安装光盘或光盘读取数据出错
今天用Ultraiso将Ubuntu server 12.04 刻入U盘中安装系统,中间提示错误:1.检测不到cdrom(即U盘没有挂载上):2.从光盘中读取数据出错.问题如下图所示: 上网搜了下解决 ...
- MySQL数据库中tinyint类型字段读取数据为true和false
今天遇到这么一个问题,公司最近在做一个活动,然后数据库需要建表,其中有个字段是关于奖励发放的状态的字段,结果读取出来的值为true 一.解决读取数据为true/false的问题 场景: 字段:stat ...
- My Game --文件读取数据
My Game --线段数据 中说到背景的绘制由贝赛尔曲线生成线段,用 DrawNode 画多边形,同时一张背景有两座山,一座山有两条以上贝赛尔曲线保存,用了嵌套的数据类:Bezier,LineLay ...
- Java—从文件中读取数据
1.FileInputStream() // 构建字节输入流对象,参数为文件名 FileInputStream fin = new FileInputStream("message" ...
- 10天学会phpWeChat——第三天:从数据库读取数据到视图
在第二天,我们创建了我们的第一个phpWeChat功能模块,但是比较简单.实际生产环境中,我们不可能有如此简单的需求.更多的情况是数据存储在MySql数据库中,我们开发功能模块的作用就是将这些数据从M ...
- 用EXCEL内嵌的Visual Basic for Application 编程,通过 UGSimple USB-GPIB 控制器来驱动仪器34401A,并从34401A读取数据
现在市场上有很多中USB-GPIB 控制器,或叫 USB 转GPIB链接线. 每种GPIB控制器都有它的 函数库(dll库).各种GPIB 控制器的价钱插别很大.这里以一种价钱较便宜的USB-GPIB ...
随机推荐
- html自定义提示框
自定义html提示框比较令人困惑的就是编写三角形的样式:以前的实现方式是在标签内使用span标签来实现.不过现在有了css提供的两个为类:before,:after之后,可以不用再内置span标签了: ...
- X265编译中C2220错误的解决办法
x265编译过程中 C2220错误:根本原因是代码是英文代码页,而我们的操作系统中使用的是中文代码页: 解决办法1 逐个文件进行格式转换,我在ubuntu下用iconv命令试过,没成功: 解决办法2 ...
- android使用微软EWS发送邮件
通常我们在android使用javamail发送邮件,可是很多时候我们需要连接Exchange服务(很多公司内部邮件服务器采用,并且未开通smtp服务)来发送邮件,这时候我们就要用到微软的 ews-j ...
- linux 网络状态工具ss命令
ss命令用于显示socket状态. 他可以显示PACKET sockets, TCP sockets, UDP sockets, DCCP sockets, RAW sockets, Unix dom ...
- 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 ...
- nyoj 44
//nyoj 44 //和上面一题一样,求子串和,但是代码非常简洁..... 时间复杂度为n #include <iostream> using namespace std; int ma ...
- Ecstore关于finder的默认的参数row的数据不见了的一些小问题?
在finder中,我们经常对默认的参数row进行数据的编辑处理,然而,在实际处理中,会遇到这么一个问题,该处理的数据不见了,造成这一原因的重要原 因是因为在设置的时候,把某些字段屏蔽掉了,导致返回的r ...
- .net面试总结
一. hr 为人处事 工作中遇到问题:沟通很重要 离职原因:公司倒闭 二. ISAPI Internet Server Application Program Interface 三. http状态码 ...
- Android Studio 将工程作为第三方类库的步骤
一.将工程的module名称修改为自己要添加的类库名称 1.选中module文件夹右键到Rename项 2.选中Rename module项 3.修改为自己的名称,如VolleyLibary 二.修改 ...
- [译]一个灵活的 Trello 敏捷工作流
[译]一个灵活的 Trello 敏捷工作流 翻译自 An Agile Trello Workflow That Keeps Tasks Flexible Getting things done 可不只 ...