Changeset 11 for trunk/UCore.pas

Timestamp:

Mar 14, 2013, 11:46:45 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: První instalační program pro Windows.
• Opraveno: Při ukládání se nepoužívala cílová cesta.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -164 +164 @@
     FioAPI.Token := Token;
     if FioAPI.DownloadLast(List) then begin
-      FileName := Format(SReport, [FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) +
+      FileName := TargetDirectory + DirectorySeparator + Format(SReport, [FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) +
         ExtensionSeparator + DataFormatURL[FioAPI.Format]]);
       List.SaveToFile(UTF8Decode(FileName));
@@ -187 +187 @@
     FioAPI.Token := Token;
     if FioAPI.DownloadMonthly(ReportYear, ReportId, List) then begin
-      FileName := Format(SReport, [IntToStr(ReportYear) +
+      FileName := TargetDirectory + DirectorySeparator + Format(SReport, [IntToStr(ReportYear) +
         '-' + IntToStr(ReportId) +
         ExtensionSeparator + DataFormatURL[FioAPI.Format]]);
@@ -211 +211 @@
     FioAPI.Token := Token;
     if FioAPI.DownloadInterval(ReportTimeFrom, ReportTimeTo, List) then begin
-      FileName := Format(SReport, [FormatDateTime('yyyy-mm-dd', ReportTimeFrom) +
+      FileName := TargetDirectory + DirectorySeparator + Format(SReport, [FormatDateTime('yyyy-mm-dd', ReportTimeFrom) +
         ' ' + FormatDateTime('yyyy-mm-dd', ReportTimeTo) +
         ExtensionSeparator + DataFormatURL[FioAPI.Format]]);