Man_Without_Face
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SysUtils.DecimalSeparator := '.';
if param = 0 then //0- OX отчеты, 1-Kx отчеты
begin
if OpenDialog1.Execute then
begin
SaveCursor := Screen.Cursor;
Screen.Cursor := crHourglass;
try
sXTR := OpenDialog1.Filename;
sXML := ExtractFile(sXTR); //Функция распаковки файла
except
showmessage('Ошибка при разархивировании файла!');
end;
XML := TXMLDocument.Create(nil);
XML.LoadFromXML(sXML);
XML.Active := true;
XML.Encoding := 'Windows-1251'; //Выставляю кодировку
XML.SaveToFile('C:\zx.xml');
//Настраиваю соединение с xml файлом
cdsHeaderOX.Close;
XMLTransform1.SourceXmlFile := 'C:\zx.xml';
XMLTransform1.TransformationFile := 'OXtrans.xtr'; //Файл трансформации в датасет
cdsHeaderOX.XMLData := XMLTransform1.data;
try
cdsHeaderOX.Open;
//cdsHeader - Древовидная структура (датасет в датасете, поле fields)
cdsOX.Close;
cdsOX.Open;
except
showmessage('Ошибка при открытии файла!');
Screen.Cursor := SaveCursor;
end;
|
