bin2xbi.pas

来自「Delphi Source for work with Siemens Mobi」· PAS 代码 · 共 66 行

unit Bin2xbi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, FileCtrl,

  SwpE, HWID_EGOLD;
type
  TFormBin2Swp = class(TForm)
    ButtonSaveXBI: TButton;
    ProgressBar: TProgressBar;
    GroupBox1: TGroupBox;
    CheckBoxBCORE: TCheckBox;
    CheckBoxSW: TCheckBox;
    CheckBoxLG: TCheckBox;
    CheckBoxEEL: TCheckBox;
    CheckBoxFFSA: TCheckBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    EditMobName: TEdit;
    Label3: TLabel;
    EditLGpack: TEdit;
    ButtonSWP: TButton;
    Button1: TButton;
    CheckBoxFFSB: TCheckBox;
    CheckBoxFFSC: TCheckBox;
    CheckBoxEEF: TCheckBox;
    GroupBox3: TGroupBox;
    EditDataBaseName: TEdit;
    CheckBoxKeys: TCheckBox;
    CheckBoxClrFFA: TCheckBox;
    CheckBoxClrFFB: TCheckBox;
    procedure ButtonSaveXBIClick(Sender: TObject);
    procedure ButtonSWPClick(Sender: TObject);
    procedure CheckBoxEnKeysClick(Sender: TObject);
    procedure CheckBoxFFSAClick(Sender: TObject);
    procedure CheckBoxFFSBClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function GetSaveMask : byte;
  public
    { Public declarations }
    XBIMemoryStream : TMemoryStream;
    SWPMemoryStream : TMemoryStream;
    function SaveSwpBuf : boolean;
    function CreateXBIHead(MobileName,DatabaseName,lgstr : string; startaddr, endaddr : dword ) : boolean;
    function CreateBIN2XBI(flgXor : boolean; xfilename: string; MobileName,DatabaseName,lgstr : string): boolean;
//    function CreateFileSWP(xfilename: string; MobileName,DatabaseName,lgstr : string): boolean;
    function SaveSWPblk(baseaddr : dword; sizebuf : integer;  var buf : array of byte) : boolean;
    function CreateXBIData(baseaddr: dword; sizebuf : integer; var buf: array of byte) : boolean;
    function OpenUserBinFile(sbinfilename : string) : boolean;
    procedure CloseUserBinFile;
    function OpenSwpFile(NameSwp: string; var xBkey : array of byte) : boolean;
    function ReadSwpExe(hxFile, iSizexData : integer; sNamexFile : string) : boolean;
    function ReadXBZdata(hxFile, iSizexData, iSizeMemAdd : integer; sNamexFile : string) : boolean;
    function OpenSwpExe(wsefilename : string) : boolean;
    procedure SaveXBZfile(xfilename : string);
    function SaveSwpFile(flgmodes : integer; sBaseName : string) : boolean;
end;

var
    FormBin2Swp : TFormBin2Swp;
    sSwp_Err : string; // 项耠邃