[html] ​​view plain​​ ​​copy​​

 


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