/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3075 by torben, Wed Jul 27 15:25:24 2016 UTC revision 3076 by torben, Thu Jul 28 20:03:18 2016 UTC
# Line 26  uses Line 26  uses
26    LabelPrint,    LabelPrint,
27    Configuration,    Configuration,
28    Vcl.Imaging.pngimage,    Vcl.Imaging.pngimage,
29    Generics.Collections    Generics.Collections,
30      TimingHelper
31    
32    ;    ;
33    
# Line 559  begin Line 560  begin
560    
561  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
562    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
563    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
564    
565    Config := TConfiguration.Create();    Config := TConfiguration.Create();
566    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
# Line 4183  var Line 4184  var
4184    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4185    tmpAntal : Integer;    tmpAntal : Integer;
4186    
4187     time, timeSamlet : TTimingHelper;
4188    
4189    
4190    antlin : Integer;    antlin : Integer;
# Line 4242  var Line 4244  var
4244       end;       end;
4245  // 20150310: slut  // 20150310: slut
4246    
4247        time := TTimingHelper.create();        //DEBUG
4248        timeSamlet := TTimingHelper.create();        //DEBUG
4249    
4250      try      try
4251      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4252  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4264  var Line 4269  var
4269        end;        end;
4270      end;      end;
4271      try      try
4272          time.stop('HTTP Load');     //DEBUG
4273    
4274        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4275    
4276          time.stop('XML Load');     //DEBUG
4277    
4278    
4279    
4280    
4281    
4282    
4283        antlin := 0;        antlin := 0;
4284        antlinIdag := 0;        antlinIdag := 0;
# Line 4308  var Line 4321  var
4321        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4322        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4323    
4324          time.stop('Antal Linier');//DEBUG
4325    
4326        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4327    
# Line 4393  var Line 4407  var
4407        end;        end;
4408    
4409    
4410          time.stop('Fyld Listbox2');//DEBUG
4411    
4412    
4413        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4414    
4415    
# Line 4512  var Line 4529  var
4529        end;        end;
4530      end;      end;
4531    
4532        time.stop('Done');//DEBUG
4533        timeSamlet.stop('SamletTid');//DEBUG
4534    
4535    
4536  end;  end;
4537    
4538  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
Legend:
Removed from v.3075  
changed lines
  Added in v.3076
  ViewVC Help
Powered by ViewVC 1.1.20