1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

procedure TfrmMTWS.vstWebSpiderResultsGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
var
 Data: TUrlNodeTreeData;
 CurrentAnalyseItem: TSQLDataSet;
begin
 CurrentAnalyseItem := TSQLDataSet.Create(nil);
 CurrentAnalyseItem.SQLConnection := MultiThreadedWebAnalyser.AnalyserResultDataBaseConnecton;
 if (Node <> nil) then
 begin
  Data := Sender.Get<TUrlNodeTreeData>(Node);
  if (Data <> nil) and (Data is TUrlNodeTreeData) then
  begin
   try
    CurrentAnalyseItem.CommandText := 'SELECT * FROM ResultURLTable WHERE URL = "' + TUrlNodeTreeData(Data).URL + '";';
    CurrentAnalyseItem.Open;
    if not CurrentAnalyseItem.IsEmpty then
    begin
     // item found
     CurrentAnalyseItem.First;
     case Column of
      0: begin
       if CurrentAnalyseItem.FieldList.IndexOf('STATUS') <> - 1 then
       begin
        case TField(CurrentAnalyseItem.FieldByName('STATUS')).AsInteger of
         asNotAnalysed : CellText := sStatusNotAnalysed;
         asPending     : CellText := sStatusPending;
         asAnalysed    : CellText := sStatusAnalysed;
        end;
       end;
      end;
      1: begin
       if CurrentAnalyseItem.FieldList.IndexOf('URL') <> - 1 then
       begin
        Celltext := TField(CurrentAnalyseItem.FieldByName('URL')).AsString;
       end;
      end;


     end;
    end;
   except
    on E: Exception do
    begin
     // send progress event to actualize the site
     PostMessage(frmMTWS.Handle, WSM_MESSAGE_ERROR_LOG, 0, Integer('Exception raised with message: Get item data from DB for VST - ' + TUrlNodeTreeData(Data).URL + ' - ' + E.Message));
    end;
   end;
  end;
 end;
 CurrentAnalyseItem.Close;
 CurrentAnalyseItem.Free;