Added the ability to run chip-related scripts from the main program window

Author: nofeletru

software/findchip.pas

@@ -35,7 +35,7 @@   TChipSearchForm = class(TForm)
 
 implementation
 
-uses main;
+uses main, scriptsfunc;
 
 {$R *.lfm}
 
@@ -181,9 +181,16 @@ procedure SelectChip(XMLfile: TXMLDocument; chipname: string);
                  Main.CurrentICParam.Size := 0;
 
                if ChipNode.Attributes.GetNamedItem('script') <> nil then
-                 Main.CurrentICParam.Script:= UTF16ToUTF8(ChipNode.Attributes.GetNamedItem('script').NodeValue)
+               begin
+                 Main.CurrentICParam.Script:= UTF16ToUTF8(ChipNode.Attributes.GetNamedItem('script').NodeValue);
+                 MainForm.ComboBox_chip_scriptrun.Items := scriptsfunc.GetScriptSectionsFromFile(Main.CurrentICParam.Script);
+                 MainForm.ComboBox_chip_scriptrun.ItemIndex := 0;
+               end
                else
+               begin
                  Main.CurrentICParam.Script := '';
+                 MainForm.ComboBox_chip_scriptrun.Items.Clear;
+               end;
 
 
                 MainForm.LabelChipName.Caption := CurrentICParam.Name;

software/main.lfm

@@ -221,9 +221,9 @@ object MainForm: TMainForm
       Text = 'Chip size'
     end
     object Label2: TLabel
-      Left = 8
+      Left = 24
       Height = 16
-      Top = 40
+      Top = 32
       Width = 100
       Alignment = taCenter
       AutoSize = False
@@ -494,6 +494,36 @@ object MainForm: TMainForm
         TabOrder = 7
       end
     end
+    object ComboBox_chip_scriptrun: TComboBox
+      Left = 15
+      Height = 23
+      Top = 248
+      Width = 100
+      ItemHeight = 15
+      Style = csDropDownList
+      TabOrder = 6
+    end
+    object SpeedButton1: TSpeedButton
+      Left = 124
+      Height = 22
+      Hint = 'Выполнить скрипт'
+      Top = 248
+      Width = 23
+      Caption = '->'
+      OnClick = SpeedButton1Click
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object Label_chip_scripts: TLabel
+      Left = 15
+      Height = 15
+      Top = 233
+      Width = 97
+      Alignment = taCenter
+      AutoSize = False
+      Caption = 'Скрипты'
+      ParentColor = False
+    end
   end
   object MPHexEditorEx: TMPHexEditorEx
     Cursor = crIBeam

software/main.pas

@@ -30,6 +30,7 @@   TMainForm = class(TForm)
     CheckBox_I2C_DevA4: TToggleBox;
     CheckBox_I2C_A2: TToggleBox;
     ComboAddrType: TComboBox;
+    ComboBox_chip_scriptrun: TComboBox;
     ComboSPICMD: TComboBox;
     ComboChipSize: TComboBox;
     ComboMWBitLen: TComboBox;
@@ -41,6 +42,7 @@   TMainForm = class(TForm)
     Label3: TLabel;
     Label4: TLabel;
     Label5: TLabel;
+    Label_chip_scripts: TLabel;
     Label_I2C_DevAddr: TLabel;
     LabelSPICMD: TLabel;
     LabelChipName: TLabel;
@@ -114,6 +116,7 @@   TMainForm = class(TForm)
     RadioMw: TRadioButton;
     RadioSPI: TRadioButton;
     SaveDialog: TSaveDialog;
+    SpeedButton1: TSpeedButton;
     Splitter1: TSplitter;
     StatusBar: TStatusBar;
     CheckBox_I2C_DevA7: TToggleBox;
@@ -171,6 +174,7 @@   TMainForm = class(TForm)
     procedure ButtonCancelClick(Sender: TObject);
     procedure I2C_DevAddrChange(Sender: TObject);
     procedure ScriptsMenuItemClick(Sender: TObject);
+    procedure SpeedButton1Click(Sender: TObject);
     procedure VerifyFlash(BlankCheck: boolean = false);
   private
     { private declarations }
@@ -2632,6 +2636,13 @@ procedure TMainForm.ScriptsMenuItemClick(Sender: TObject);
   ScriptEditForm.Show;
 end;
 
+procedure TMainForm.SpeedButton1Click(Sender: TObject);
+begin
+  if ComboBox_chip_scriptrun.Items.Capacity < 1 then Exit;;
+  if not OpenDevice() then exit;
+  if RunScriptFromFile(CurrentICParam.Script, ComboBox_chip_scriptrun.Text) then Exit;
+end;
+
 procedure LoadChipList(XMLfile: TXMLDocument);
 var
   Node: TDOMNode;
@@ -2690,7 +2701,7 @@ procedure TMainForm.FormCreate(Sender: TObject);
   ScriptsFunc.SetScriptFunctions(ScriptEngine);
 
   MPHexEditorEx.NoSizeChange := true;
-  MPHexEditorEx.InsertMode:= false;
+  MPHexEditorEx.InsertMode := false;
   LoadOptions(SettingsFile);
   LoadLangList();
 end;

software/scriptsfunc.pas

@@ -12,6 +12,7 @@ procedure SetScriptVars();
 procedure RunScript(ScriptText: TStrings);
 function RunScriptFromFile(ScriptFile: string; Section: string): boolean;
 function ParseScriptText(Script: TStrings; SectionName: string; var ScriptText: TStrings ): Boolean;
+function GetScriptSectionsFromFile(ScriptFile: string): TStrings;
 
 implementation
 
@@ -20,6 +21,34 @@ implementation
 const _SPI_SPEED_MAX = 255;
 
 
+function GetScriptSectionsFromFile(ScriptFile: string): TStrings;
+var
+  st, SectionName: string;
+  i: integer;
+  ScriptText: TStrings;
+begin
+  if not FileExists(ScriptsPath+ScriptFile) then Exit;
+
+  Result:= TStringList.Create;
+  ScriptText:= TStringList.Create;
+
+  ScriptText.LoadFromFile(ScriptsPath+ScriptFile);
+
+  for i:= 0 to ScriptText.Count-1 do
+  begin
+    st := Trim(Upcase(ScriptText.Strings[i]));
+    if Copy(st, 1, 2) = '{$' then
+    begin
+      SectionName := Trim(Copy(st, 3, pos('}', st)-3));
+      if SectionName <> '' then
+      begin
+        Result.Add(SectionName);
+      end;
+    end;
+  end;
+
+end;
+
 {Возвращает текст выбранной секции
  Если секция не найдена возвращает false}
 function ParseScriptText(Script: TStrings; SectionName: string; var ScriptText: TStrings ): Boolean;