unit8.~pas

电力系统集中抄表 采集器 上位机软件 可以经行集中抄表

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils, Menus;

type
  TForm8 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    receive: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
var
  WriteNumber, numRead: LongWord;
  wait, OpenYesNo: Boolean;
  zz, CBJzz, teststr, teststr2,dbfstr: string;
  ret, i, ii: integer;
  CompResult: integer;
  buf: array[1..255 * 800 + 1] of byte;
  FromF, ToF: file of byte;
  filelength:integer;
begin

  OpenDialog1.Title:='选择集中器库文件';
  OpenYesNo := OpenDialog1.Execute;
  if not OpenYesNo then exit;
  if OpenYesNo then { Display Open dialog box }  begin
    if OpenDialog1.filename = '' then exit;

    ii := 0;
    teststr := OpenDialog1.Files.CommaText;
    while Pos(',', teststr) > 0 do begin
      ii := ii + 1;
      teststr := copy(teststr, Pos(',', teststr) + 1, length(teststr) - Pos(',', teststr) - 1);
    end;

    for i := 0 to ii do begin
    //receive.Lines.Add(inttostr(i)+ '-------------------------------------------------');
   // receive.Lines.Add(OpenDialog1.Files.Strings[i]);
    //receive.Lines.Add(ExtractFileName(OpenDialog1.Files.Strings[i]));
    dbfstr:=ExtractFileName(OpenDialog1.Files.Strings[i]);
    if AnsiUpperCase(rightstr(dbfstr,3))='DBF' then
    begin

    //打开文件
    AssignFile(FromF, OpenDialog1.Files.Strings[i]); //Assign 分配, 指派到FromF文件
    Reset(FromF); { Record size = 1 }
    BlockRead(FromF, buf, FileSize(FromF), numRead);
     filelength:= FileSize(FromF);
    CloseFile(FromF);
    //读文件

    buf[1] := byte($03);

    AssignFile(ToF, OpenDialog1.Files.Strings[i]); { Open output file }
    Rewrite(ToF);
    BlockWrite(ToF, buf, filelength, filelength);

    CloseFile(ToF);
    receive.Lines.Add('改动文件----------'+OpenDialog1.Files.Strings[i]);
    end;




    end;




  end;

end;

end.