Changeset 10 for trunk/UCore.pas
- Timestamp:
- Mar 14, 2013, 11:35:29 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r9 r10 50 50 RegistryContext: TRegistryContext; 51 51 Token: string; 52 Format: TFioDataFormat;52 DataFormat: TFioDataFormat; 53 53 TargetDirectory: string; 54 54 ReportYear: Integer; … … 72 72 resourcestring 73 73 SDownloadNotSuccess = 'Download failed'; 74 SReport = 'Dump %s'; 75 SSavedToFile = 'Dump saved to file %s'; 74 76 75 77 { TCore } … … 105 107 OpenKey(Context.Key, True); 106 108 WriteString('TargetDir', TargetDirectory); 107 WriteInteger('DataFormat', Integer( Format));109 WriteInteger('DataFormat', Integer(DataFormat)); 108 110 WriteString('Token', Token); 109 111 WriteDate('ReportTimeFrom', ReportTimeFrom); … … 124 126 OpenKey(Context.Key, True); 125 127 TargetDirectory := ReadStringWithDefault('TargetDir', ExtractFileDir(Application.ExeName)); 126 Format := TFioDataFormat(ReadIntegerWithDefault('DataFormat', Integer(dfXML)));128 DataFormat := TFioDataFormat(ReadIntegerWithDefault('DataFormat', Integer(dfXML))); 127 129 Token := ReadStringWithDefault('Token', ''); 128 130 ReportTimeFrom := ReadDateTimeWithDefault('ReportTimeFrom', Now); … … 154 156 FioAPI: TFioAPI; 155 157 List: TStringList; 158 FileName: string; 156 159 begin 157 160 FioAPI := TFioAPI.Create; 158 161 List := TStringList.Create; 159 162 try 160 FioAPI.Format := Format;163 FioAPI.Format := DataFormat; 161 164 FioAPI.Token := Token; 162 165 if FioAPI.DownloadLast(List) then begin 163 List.SaveToFile('VÃœpis ' + FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) + 164 ExtensionSeparator + DataFormatURL[FioAPI.Format]); 166 FileName := Format(SReport, [FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) + 167 ExtensionSeparator + DataFormatURL[FioAPI.Format]]); 168 List.SaveToFile(UTF8Decode(FileName)); 169 ShowMessage(Format(SSavedToFile, [FileName])); 165 170 end else ShowMessage(SDownloadNotSuccess); 166 171 finally … … 174 179 FioAPI: TFioAPI; 175 180 List: TStringList; 181 FileName: string; 176 182 begin 177 183 FioAPI := TFioAPI.Create; 178 184 List := TStringList.Create; 179 185 try 180 FioAPI.Format := Format;186 FioAPI.Format := DataFormat; 181 187 FioAPI.Token := Token; 182 188 if FioAPI.DownloadMonthly(ReportYear, ReportId, List) then begin 183 List.SaveToFile('VÃœpis mÄsÃÄnà ' +IntToStr(ReportYear) +189 FileName := Format(SReport, [IntToStr(ReportYear) + 184 190 '-' + IntToStr(ReportId) + 185 ExtensionSeparator + DataFormatURL[FioAPI.Format]); 191 ExtensionSeparator + DataFormatURL[FioAPI.Format]]); 192 List.SaveToFile(UTF8Decode(FileName)); 193 ShowMessage(Format(SSavedToFile, [FileName])); 186 194 end else ShowMessage(SDownloadNotSuccess); 187 195 finally … … 195 203 FioAPI: TFioAPI; 196 204 List: TStringList; 205 FileName: string; 197 206 begin 198 207 FioAPI := TFioAPI.Create; 199 208 List := TStringList.Create; 200 209 try 201 FioAPI.Format := Format;210 FioAPI.Format := DataFormat; 202 211 FioAPI.Token := Token; 203 212 if FioAPI.DownloadInterval(ReportTimeFrom, ReportTimeTo, List) then begin 204 List.SaveToFile('VÃœpis ' +FormatDateTime('yyyy-mm-dd', ReportTimeFrom) +213 FileName := Format(SReport, [FormatDateTime('yyyy-mm-dd', ReportTimeFrom) + 205 214 ' ' + FormatDateTime('yyyy-mm-dd', ReportTimeTo) + 206 ExtensionSeparator + DataFormatURL[FioAPI.Format]); 215 ExtensionSeparator + DataFormatURL[FioAPI.Format]]); 216 List.SaveToFile(UTF8Decode(FileName)); 217 ShowMessage(Format(SSavedToFile, [FileName])); 207 218 end else ShowMessage(SDownloadNotSuccess); 208 219 finally
Note:
See TracChangeset
for help on using the changeset viewer.