1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

     
      CurrentAddItem.CommandText := 'SELECT * FROM ResultURLTable WHERE URL = "' + tempurlstring + '";';
      CurrentAddItem.Open;
      if not CurrentAddItem.IsEmpty then
      begin
       // item found
       CurrentAddItem.First;

       TempParentSitesString := TField(CurrentAddItem.FieldByName('PARENTSITESLIST')).AsString + CurrentURL + sLinkSeperator;
       TempCurrentReferingLinks := TField(CurrentAddItem.FieldByName('REFERINGLINKS')).AsInteger + 1;
       CurrentAddItem.Edit;

       TField(CurrentAddItem.FieldByName('REFERINGLINKS')).AsInteger := TempCurrentReferingLinks;
       TField(CurrentAddItem.FieldByName('PARENTSITESLIST')).AsString := TempParentSitesString;
       CurrentAddItem.Post;

       CurrentAddItem.Close;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

      CurrentAddItem.CommandText := 'SELECT * FROM ResultURLTable WHERE URL = "' + tempurlstring + '";';
      CurrentAddItem.Open;
      if not CurrentAddItem.IsEmpty then
      begin
       // item found
       CurrentAddItem.First;
       TempParentSitesString := TField(CurrentAddItem.FieldByName('PARENTSITESLIST')).AsString + CurrentURL + sLinkSeperator;
       TempCurrentReferingLinks := TField(CurrentAddItem.FieldByName('REFERINGLINKS')).AsInteger + 1;
       CurrentAddItem.Close;
       CurrentAddItem.CommandText := '';
       // item not found
       SQLQuery.Params.Clear;
       SQLQuery.Sql.Text := 'UPDATE ResultURLTable SET REFERINGLINKS = :REFERINGLINKS, PARENTSITESLIST = :PARENTSITESLIST WHERE URL = :URL;';
       SQLQuery.ParamByName('URL').AsString := tempurlstring;
       SQLQuery.ParamByName('REFERINGLINKS').AsInteger := TempCurrentReferingLinks;
       SQLQuery.ParamByName('PARENTSITESLIST').AsString := TempParentSitesString;
       SQLQuery.ExecSql;
       // add link to linklist
       TempLinkList.Add(tempurlstring + sLinkSeperator);}
      end                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

  // now add the item
  TMonitor.Enter(MultiThreadedWebAnalyser.AnalyserResultDataBase);
  try
  .
  Codeblock mit DB Zugriff
  .
  finally
    TMonitor.Exit(MultiThreadedWebAnalyser.AnalyserResultDataBase);
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

 // set database path + filename
 DataBaseFileName := CombinePaths(CurrentTempFolder,'ResultDataBase.db');
 // create threadmanager
 ThreadManager := TFDManager.Create(nil);
 // add connection definition
 ConDefStringList := TStringList.Create;
 ConDefStringList.Add('Database=' + DataBaseFileName);
 ConDefStringList.Add('SharedCache=false');
 ConDefStringList.Add('LockingMode=normal');
 ConDefStringList.Add('Synchronous=normal');
 ConDefStringList.Add('LockingMode=normal');
 ConDefStringList.Add('CacheSize=60000');
 ConDefStringList.Add('BusyTimeOut=30000');
 ConDefStringList.Add('Pooled=true');
 // add connection definition to threadmanager
 ThreadManager.AddConnectionDef('SQLite-Connection','SQLite',ConDefStringList);
 ConDefStringList.Free;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

 // create connection
 ResultDataBaseConnecton := TFDConnection.Create(nil);
 ResultDataBaseConnecton.LoginPrompt := false;
 ResultDataBaseConnecton.TxOptions.Isolation := xiSerializible;
 ResultDataBaseConnecton.UpdateOptions.LockWait := true;
 ResultDataBaseConnecton.ConnectionDefName := 'SQLite-Connection';
 try
  ResultDataBaseConnecton.Connected := true;
  // create queries
  CurrentAnalyseItem := TFDQuery.Create(nil);
  CurrentAnalyseItem.Connection := ResultDataBaseConnecton;
  CurrentAddItem := TFDQuery.Create(nil);
  CurrentAddItem.Connection := ResultDataBaseConnecton;