Changeset 12 for trunk/DbEngines/UEngineXML.pas

Timestamp:

Feb 16, 2015, 11:37:47 PM (10 years ago)

Author:

chronos

Message:

• Added: Connection to MySQL host and loading list of available tables.

File:

• trunk/DbEngines/UEngineXML.pas (modified) (2 diffs)

trunk/DbEngines/UEngineXML.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, DOM, XMLRead, XMLWrite, UDatabase, UXMLUtils, FileUtil;
+  Classes, SysUtils, DOM, XMLRead, XMLWrite, UDatabase, UXMLUtils, FileUtil,
+  UHtmlClasses;
 
 type
@@ -46 +47 @@
 
 function TDatabaseXML.GetFileName: string;
-begin
-  if Copy(Database.ConnectionString, 1, 8) = 'file:///' then
-    Result := Copy(Database.ConnectionString, 8, High(Integer))
-    else Result := '';
+var
+  URL: TURL;
+begin
+  URL := TURL.Create;
+  try
+    URL.AsString := Database.ConnectionString;
+    if URL.Scheme <> 'file' then
+      raise Exception.Create('Wrong connection string. Required file scheme.');
+
+    Result := URL.Path
+  finally
+    URL.Free;
+  end;
 end;