Could someone create an array of thread(fifo)

///
This is in my Main_Form unit, that calls [identifying function] from unit [uUtil]
///
uses uUtil, ...
procedure TForm1.BUTTON_iDENtifyClick(Sender: TObject);
var
  ret, score: Integer;
  Ticks : Cardinal;
begin
  score := 0;
  ticks := GetTickCount();

  ret :=  Identifying (score);

  if ret > 0 then
  begin
    ShowMessage(' BlobField Identified_with_ID is  '+ IntToStr(ret) + '  and the Score of the context is  ' + IntToStr(score) );
  end
  else if ret = 0 then
     ShowMessage('not_iDentified')
  else
    ShowMessage('Error');

    ticks := GetTickCount - ticks;
    ShowMessage('Number of Seconds found:' + IntToStr(ticks) );
end;




///
This is the code of unit uDBClass that it to be called by [Main_Form] unit and unit [uUtil]
///
unit uDBClass;

interface

uses ....

  TDBClass = class
  private
    // the connection object
    mycon: TSQLite3Connection;
    // SQL Transaction
    transact: TSQLTransaction;
  public
    // a data set to maintain all records of database
    ds0: TSQLQuery;

    function openDB(): boolean;
    procedure closeDB();
  end;

implementation
...
...
// Open connection
function TDBClass.openDB(): boolean;
var i,i2,size:integer;
tmp:string;
begin
   try
        ds0 := TSQLQuery.Create(nil);

        mycon := TSQLite3Connection.Create(nil);
        transact := TSQLTransaction.Create(nil);

        mycon.Directory := '';
        mycon.DatabaseName := 'dbsqlite.db';

        transact.DataBase := mycon;
        transact.Action := caCommit;
        transact.Active := True;

        mycon.Transaction := transact;
        mycon.Open;

        ds0.DataBase := mycon;
        ds0.DisableControls;

        ds0.SQL.Text := 'select id, template from table1';
        ds0.CreateDataSet;
        ds0.Prepare;
        ds0.Open;
        ds0.ActiveBuffer;

        openDB := true;
  except
        openDB := false;
  end;
end;

// Close conection
procedure TDBClass.closeDB();
begin
  mycon.Close;
  mycon.Free;
  mycon := nil;
  transact.Free;
  transact := nil;
end;

end.





///
This code is unit [uUtil] that calls database unit [uDBClass]
///
unit uUtil;


interface

uses udBclass,...

Var
  // Database class.
  dB: TDBClass;

implementation

function first_called_from_main_form_during_load_for_opening_db
begin
...
// Opening database
dB := TDBClass.Create();
if not dB.openDB() then
 begin
...
    Exit;
  end;
...
end;

//NEED to apply FIFO (first in first out) like ciuly did in his file search multithreading
function identified(var dsRec: TSQLQuery; out score:integer): integer;
  var ret:integer;
  FIeld: TField;
begin
  Field := dsRec.FieldByName('template');
  dsRec.DisableControls;
dsRec.First;
while not dsRec.EOF do
begin
ret := called_from_dll_IDENTIFY( PChar(Field.AsString), score, 0);
if (ret = 1) then
 begin
 Identified := dsRec.FieldByName('id').AsInteger;
 exit;
 end
 else if (ret < 0) then
 begin
 Identified := ret;
 exit;
 end;
dsRec.Next;
end;
 if (ret = 0) then
 begin
 Identified := 0;
 end;
end;

//This is called in unit Main_Form [uMain]
function Identifying (var score: Integer): Integer;
Begin
Identifying := identified(db.ds0,  score);
end;

end.

Select allOpen in new window