Changeset 75 for trunk/Packages/Common/XML.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Packages/Common/XML.pas (moved) (moved from trunk/Packages/Common/UXMLUtils.pas ) (8 diffs)

trunk/Packages/Common/XML.pas

@@ -1 @@
-unit UXMLUtils;
-
-{$mode delphi}
+unit XML;
 
 interface
@@ -7 +5 @@
 uses
   {$IFDEF WINDOWS}Windows,{$ENDIF}
-  Classes, SysUtils, DateUtils;
+  Classes, SysUtils, DateUtils, DOM, xmlread;
 
 function XMLTimeToDateTime(XMLDateTime: string): TDateTime;
-function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
+function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
+procedure WriteInteger(Node: TDOMNode; Name: string; Value: Integer);
+procedure WriteInt64(Node: TDOMNode; Name: string; Value: Int64);
+procedure WriteBoolean(Node: TDOMNode; Name: string; Value: Boolean);
+procedure WriteString(Node: TDOMNode; Name: string; Value: string);
+procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime);
+procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
+function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
+function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
+function ReadBoolean(Node: TDOMNode; Name: string; DefaultValue: Boolean): Boolean;
+function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string;
+function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime): TDateTime;
+function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
+procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
 
 
 implementation
+
+function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToFloat(string(NewNode.TextContent));
+end;
+
+procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
+var
+  Parser: TDOMParser;
+  Src: TXMLInputSource;
+  InFile: TFileStream;
+begin
+  try
+    InFile := TFileStream.Create(FileName, fmOpenRead);
+    Src := TXMLInputSource.Create(InFile);
+    Parser := TDOMParser.Create;
+    Parser.Options.PreserveWhitespace := True;
+    Parser.Parse(Src, Doc);
+  finally
+    Src.Free;
+    Parser.Free;
+    InFile.Free;
+  end;
+end;
 
 function GetTimeZoneBias: Integer;
@@ -20 +60 @@
   TimeZoneInfo: TTimeZoneInformation;
 begin
+  {$push}{$warn 5057 off}
   case GetTimeZoneInformation(TimeZoneInfo) of
-  TIME_ZONE_ID_STANDARD: Result := TimeZoneInfo.Bias + TimeZoneInfo.StandardBias;
-  TIME_ZONE_ID_DAYLIGHT: Result := TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias;
+    TIME_ZONE_ID_STANDARD: Result := TimeZoneInfo.Bias + TimeZoneInfo.StandardBias;
+    TIME_ZONE_ID_DAYLIGHT: Result := TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias;
   else
     Result := 0;
   end;
+  {$pop}
 end;
 {$ELSE}
@@ -35 +77 @@
 function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
 var
-  I, J: Integer;
+  I: Integer;
   Matched: Boolean;
 begin
@@ -66 +108 @@
   Minute: Integer;
   Second: Integer;
+  SecondFraction: Double;
   Millisecond: Integer;
 begin
@@ -88 +131 @@
       if Pos('Z', XMLDateTime) > 0 then
         LeftCutString(XMLDateTime, Part, 'Z');
-      Millisecond := StrToInt(Part);
+      SecondFraction := StrToFloat('0' + DefaultFormatSettings.DecimalSeparator + Part);
+      Millisecond := Trunc(SecondFraction * 1000);
     end else begin
       if Pos('+', XMLDateTime) > 0 then
@@ -106 +150 @@
 end;
 
-function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
+function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
 const
   Neg: array[Boolean] of string =  ('+', '-');
@@ -123 +167 @@
 end;
 
+procedure WriteInteger(Node: TDOMNode; Name: string; Value: Integer);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(IntToStr(Value));
+  Node.AppendChild(NewNode);
+end;
+
+procedure WriteInt64(Node: TDOMNode; Name: string; Value: Int64);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(IntToStr(Value));
+  Node.AppendChild(NewNode);
+end;
+
+procedure WriteBoolean(Node: TDOMNode; Name: string; Value: Boolean);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(BoolToStr(Value));
+  Node.AppendChild(NewNode);
+end;
+
+procedure WriteString(Node: TDOMNode; Name: string; Value: string);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(Value);
+  Node.AppendChild(NewNode);
+end;
+
+procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(DateTimeToXMLTime(Value));
+  Node.AppendChild(NewNode);
+end;
+
+procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(FloatToStr(Value));
+  Node.AppendChild(NewNode);
+end;
+
+function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToInt(string(NewNode.TextContent));
+end;
+
+function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToInt64(string(NewNode.TextContent));
+end;
+
+function ReadBoolean(Node: TDOMNode; Name: string; DefaultValue: Boolean): Boolean;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToBool(string(NewNode.TextContent));
+end;
+
+function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := string(NewNode.TextContent);
+end;
+
+function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime
+  ): TDateTime;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := XMLTimeToDateTime(string(NewNode.TextContent));
+end;
+
 end.
-