Changeset 370 for ISPProgrammer/PRESTO/UPresto.pas

Timestamp:

May 31, 2012, 6:29:12 AM (12 years ago)

Author:

chronos

Message:

• Modified: ISPProgrammer now use updated component oriented TJobProgressView from Common package.

File:

• ISPProgrammer/PRESTO/UPresto.pas (modified) (9 diffs)

ISPProgrammer/PRESTO/UPresto.pas

@@ -8 +8 @@
 
 uses
-  Classes, SysUtils, UISPProgrammer, URegistry, UPrestoDLL,
-  UStreamHelper, Globals, Processors, Delays, UCPUType, Registry;
+  Classes, SysUtils, UISPProgrammer, UPrestoDLL,
+  UStreamHelper, Globals, Processors, Delays, UCPUType, Registry,
+  UJobProgressView;
 
 type
@@ -33 +34 @@
     procedure SaveToRegistry(Root: HKEY; Key: string); override;
     function ReadIdentification: string; override;
-    procedure Write; override;
-    procedure Verify; override;
+    procedure Write(Job: TJob); override;
+    procedure Verify(Job: TJob); override;
     procedure Erase; override;
     procedure Reset; override;
@@ -46 +47 @@
 
 {$IFDEF Windows}
-
-uses
-  UJobProgressView;
-
-const
-  TempHexFile = 'Dump.hex';
 
 resourcestring
@@ -279 +274 @@
 end;
 
-procedure TPrestoProgrammer.Write;
+procedure TPrestoProgrammer.Write(Job: TJob);
 var
   Address, I, PageSize, MinAdr, MaxAdr: Integer;
@@ -312 +307 @@
     // AT89S8253, AT89S2051/4051, AT89S51/52, AVRs with page programming
     PageSize := Signatures[devicenr].fpagesize;
-    JobProgressView.CurrentJob.Progress.Max := MaxAdr;
+    Job.Progress.Max := MaxAdr;
     WritePage.Size := PageSize;
     ReadPage.Size := PageSize;
@@ -361 +356 @@
         Inc(Address);
       end;
-      JobProgressView.CurrentJob.Progress.Value := Address;
-      if JobProgressView.CurrentJob.Terminate then Break;
+      Job.Progress.Value := Address;
+      if Job.Terminate then Break;
     end;
     Log(SProgramOK);
@@ -372 +367 @@
 end;
 
-procedure TPrestoProgrammer.Verify;
-begin
-  inherited Verify;
+procedure TPrestoProgrammer.Verify(Job: TJob);
+begin
+  inherited;
 end;
 
@@ -446 +441 @@
 procedure TPrestoProgrammer.ISPWriteFlashPage(Address: Integer; Buffer: TStream);
 var
-  pagesize, pagemask, raddr: integer;
+  pagesize, pagemask: integer;
   Data: TStreamHelper;
-  ptr: ^byte;
 begin
   try
@@ -536 +530 @@
 
 procedure TPrestoProgrammer.SetActive(AValue: Boolean);
-var
-  Answer: Integer;
 begin
   if Active = AValue then Exit;