Changeset 31 for trunk/UAcronym.pas

Timestamp:

Jul 13, 2016, 10:34:13 AM (8 years ago)

Author:

chronos

Message:

• Added: Import format for MS Access database.
• Added: Show text hints on toolbar buttons.

File:

• trunk/UAcronym.pas (modified) (10 diffs)

trunk/UAcronym.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Contnrs, XMLConf, XMLRead, XMLWrite, DOM, UXMLUtils,
-  SpecializedList, fphttpclient, Dialogs;
+  SpecializedList, fphttpclient, Dialogs, odbcconn, sqldb;
 
 type
@@ -132 +132 @@
   end;
 
+  TImportFormatKind = (ifkParse, ifkMSAccess);
+
   { TImportFormat }
 
@@ -137 +139 @@
     Id: Integer;
     Name: string;
+    Kind: TImportFormatKind;
     Block: TImportPattern;
     ItemPatterns: TImportPatterns;
@@ -172 +175 @@
     function DownloadHTTP(URL: string; Stream: TStream): Boolean;
     procedure Process;
+    procedure ProcessTextParse;
+    procedure ProcessMSAccess;
     procedure Assign(Source: TImportSource);
     procedure SaveToNode(Node: TDOMNode);
@@ -230 +235 @@
 end;
 
+{ TImportSourceMSAccess }
+
+procedure TImportSource.ProcessMSAccess;
+var
+  ODBCConnection1: TODBCConnection;
+  SQLTransaction1: TSQLTransaction;
+  SQLQuery1: TSQLQuery;
+  NewAcronym: TAcronymEntry;
+begin
+  ItemCount := 0;
+  ODBCConnection1 := TODBCCOnnection.Create(nil);
+  SQLQuery1 := TSQLQuery.Create(nil);
+  SQLTransaction1 := TSQLTransaction.Create(nil);
+  try
+    ODBCConnection1.Driver := 'Microsoft Access Driver (*.mdb, *.accdb)';
+    ODBCConnection1.Params.Add('DBQ=' + URL);
+    ODBCConnection1.Params.Add('Locale Identifier=1031');
+    ODBCConnection1.Params.Add('ExtendedAnsiSQL=1');
+    ODBCConnection1.Params.Add('CHARSET=ansi');
+    ODBCConnection1.Connected := True;
+    ODBCConnection1.KeepConnection := True;
+
+    SQLTransaction1.DataBase := ODBCConnection1;
+    SQLTransaction1.Action := caCommit;
+    SQLTransaction1.Active := True;
+
+    SQLQuery1.DataBase := ODBCConnection1;
+    SQLQuery1.UsePrimaryKeyAsKey := False;
+    SQLQuery1.SQL.Text := 'SELECT Acronym,Meaning FROM data1';
+    SQLQuery1.Open;
+
+    NewAcronym := TAcronymEntry.Create;
+    while not SQLQuery1.EOF do begin
+      NewAcronym.Name := SQLQuery1.FieldByName('Acronym').AsString;
+      NewAcronym.Meaning := SQLQuery1.FieldByName('Meaning').AsString;
+      Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning);
+      SQLQuery1.Next;
+      Inc(ItemCount);
+    end;
+    NewAcronym.Free;
+  finally
+    SQLQuery1.Free;
+    SQLTransaction1.Free;
+    ODBCConnection1.Free;
+  end;
+end;
+
 { TImportPatterns }
 
@@ -321 +373 @@
 end;
 
+procedure TImportSource.Process;
+begin
+  case Format.Kind of
+    ifkParse: ProcessTextParse;
+    ifkMSAccess: ProcessMSAccess;
+    else raise Exception.Create('Unsupported import format');
+  end;
+end;
+
 function StripHTML(S: string): string;
 var
@@ -346 +407 @@
   I: Integer;
 begin
+  Kind := Source.Kind;
   Name := Source.Name;
   Block.StartString := Source.Block.StartString;
@@ -364 +426 @@
   WriteInteger(Node, 'Id', Id);
   WriteString(Node, 'Name', Name);
+  WriteInteger(Node, 'Kind', Integer(Kind));
   WriteString(Node, 'BlockStartString', Block.StartString);
   WriteString(Node, 'BlockEndString', Block.EndString);
@@ -378 +441 @@
   Id := ReadInteger(Node, 'Id', 0);
   Name := ReadString(Node, 'Name', '');
+  Kind := TImportFormatKind(ReadInteger(Node, 'Kind', 0));
   Block.StartString := ReadString(Node, 'BlockStartString', '');
   Block.EndString := ReadString(Node, 'BlockEndString', '');
@@ -513 +577 @@
 { TImportSource }
 
-procedure TImportSource.Process;
+procedure TImportSource.ProcessTextParse;
 var
   Stream: TMemoryStream;