Changeset 370 for ISPProgrammer/Dallas/UDallasProgrammer.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/Dallas/UDallasProgrammer.pas (modified) (8 diffs)

ISPProgrammer/Dallas/UDallasProgrammer.pas

@@ -44 +44 @@
     procedure LoadFromRegistry(Root: HKEY; Key: string); override;
     procedure SaveToRegistry(Root: HKEY; Key: string); override;
-    procedure Read; override;
-    procedure Write; override;
+    procedure Read(Job: TJob); override;
+    procedure Write(Job: TJob); override;
     procedure Erase; override;
-    procedure Verify; override;
+    procedure Verify(Job: TJob); override;
     procedure Reset; override;
     function ReadIdentification: string; override;
@@ -212 +212 @@
 end;
 
-procedure TDallasProgrammer.Read;
+procedure TDallasProgrammer.Read(Job: TJob);
 var
   Value: string;
@@ -236 +236 @@
 
   //HexFile.SaveToStringList(HexData);
-  JobProgressView.CurrentJob.Progress.Max := 65535 div 32;
+  Job.Progress.Max := 65535 div 32;
   //Request.Size := 0;
   //ResponseClear;
@@ -266 +266 @@
       ResponseLock.Release;
     end;
-    JobProgressView.CurrentJob.Progress.Value := I;
-    if JobProgressView.CurrentJob.Terminate then Break;
+    Job.Progress.Value := I;
+    if Job.Terminate then Break;
   until False;
   //for I := 0 to HexData.Count - 1 do
   //  Log(HexData[I]);
-  if not JobProgressView.CurrentJob.Terminate then
+  if not Job.Terminate then
     HexFile.LoadFromStringList(HexData);
 end;
 
-procedure TDallasProgrammer.Verify;
+procedure TDallasProgrammer.Verify(Job: TJob);
 var
   Value: string;
@@ -292 +292 @@
   end;
   HexFile.SaveToStringList(HexData);
-  JobProgressView.CurrentJob.Progress.Max := HexData.Count;
+  Job.Progress.Max := HexData.Count;
   for I := 0 to HexData.Count - 1 do begin
     Request.Size := 0;
@@ -311 +311 @@
     end;
     CheckErrorCode(Value);
-    JobProgressView.CurrentJob.Progress.Value := I;
-    if JobProgressView.CurrentJob.Terminate then Break;
-  end;
-end;
-
-procedure TDallasProgrammer.Write;
+    Job.Progress.Value := I;
+    if Job.Terminate then Break;
+  end;
+end;
+
+procedure TDallasProgrammer.Write(Job: TJob);
 var
   Value: string;
@@ -333 +333 @@
   end;
   HexFile.SaveToStringList(HexData);
-  JobProgressView.CurrentJob.Progress.Max := HexData.Count;
+  Job.Progress.Max := HexData.Count;
   for I := 0 to HexData.Count - 1 do begin
     Request.Size := 0;
@@ -352 +352 @@
     end;
     CheckErrorCode(Value);
-    JobProgressView.CurrentJob.Progress.Value := I;
-    if JobProgressView.CurrentJob.Terminate then Break;
+    Job.Progress.Value := I;
+    if Job.Terminate then Break;
   end;
 end;