Subversion Repositories userdetect2

Rev

Rev 86 | Rev 88 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86 Rev 87
Line 285... Line 285...
285 
          SubItems.Add(ude.DynamicData)
 285 
          SubItems.Add(ude.DynamicData)
286 
        else
 286 
        else
287 
          SubItems.Add('');
 287 
          SubItems.Add('');
288 
        SubItems.Add(pl.IdentificationMethodName);
 288 
        SubItems.Add(pl.IdentificationMethodName);
289 
        SubItems.Add(ude.IdentificationString);
 289 
        SubItems.Add(ude.IdentificationString);
290 
        SubItems.Add(GUIDToString(pl.PluginGUID));
 290 
        SubItems.Add(pl.PluginGUIDString)
291 
      end;
 291 
      end;
292 
    end;
 292 
    end;
293 
  end;
 293 
  end;
294 
 
 294 
 
295 
  for i := 0 to IdentificationsListView.Columns.Count-1 do
 295 
  for i := 0 to IdentificationsListView.Columns.Count-1 do
Line 358... Line 358...
358 
      if pl.AcceptsDynamicRequests then
 358 
      if pl.AcceptsDynamicRequests then
359 
        SubItems.Add('Yes')
 359 
        SubItems.Add('Yes')
360 
      else
 360 
      else
361 
        SubItems.Add('No');
 361 
        SubItems.Add('No');
362 
      SubItems.Add(IntToStr(pl.DetectedIdentifications.Count));
 362 
      SubItems.Add(IntToStr(pl.DetectedIdentifications.Count));
363 
      SubItems.Add(Format(LNG_MS, [Max(1,pl.time)])); // at least show 1ms, otherwise it would look unloggical
 363 
      SubItems.Add(Format(LNG_MS, [Max(1,pl.LoadingTime)])); // at least show 1ms, otherwise it would look unloggical
364 
      SubItems.Add(pl.IdentificationProcedureStatusCodeDescribed);
 364 
      SubItems.Add(pl.IdentificationProcedureStatusCodeDescribed);
365 
      SubItems.Add(pl.PluginGUIDString);
 365 
      SubItems.Add(pl.PluginGUIDString);
366 
    end;
 366 
    end;
367 
  end;
 367 
  end;
368 
 
 368 
 
Line 590... Line 590...
590 
  p: TUD2Plugin;
 590 
  p: TUD2Plugin;
591 
  x: TArrayOfString;
 591 
  x: TArrayOfString;
592 
  newStuff: boolean;
 592 
  newStuff: boolean;
593 
resourcestring
 593 
resourcestring
594 
  LNG_DETECTED_DYNAMICS = 'The plugin returns following identification strings:';
 594 
  LNG_DETECTED_DYNAMICS = 'The plugin returns following identification strings:';
- 
 
 595 
  LNG_NOTHING_DETECTED = 'The plugin did not send any identification strings.';
595 
begin
 596 
begin
596 
  if DynamicTestPluginComboBox.ItemIndex = -1 then
 597 
  if DynamicTestPluginComboBox.ItemIndex = -1 then
597 
  begin
 598 
  begin
598 
    ShowMessage('Please select a plugin that is accepting dynamic requests.');
 599 
    ShowMessage('Please select a plugin that is accepting dynamic requests.');
599 
    exit;
 600 
    exit;
Line 601... Line 602...
601 
 
 602 
 
602 
  p := DynamicTestPluginComboBox.Items.Objects[DynamicTestPluginComboBox.ItemIndex] as TUD2Plugin;
 603 
  p := DynamicTestPluginComboBox.Items.Objects[DynamicTestPluginComboBox.ItemIndex] as TUD2Plugin;
603 
 
 604 
 
604 
  newStuff := p.InvokeDynamicCheck(DynamicTestDataEdit.Text, x);
 605 
  newStuff := p.InvokeDynamicCheck(DynamicTestDataEdit.Text, x);
605 
 
 606 
 
- 
 
 607 
  if Length(x) > 0 then
606 
  showmessage(LNG_DETECTED_DYNAMICS + #13#10#13#10 + MergeString(x, #13#10));
 608 
    ShowMessage(LNG_DETECTED_DYNAMICS + #13#10#13#10 + MergeString(x, #13#10))
- 
 
 609 
  else
- 
 
 610 
    ShowMessage(LNG_NOTHING_DETECTED);
607 
 
 611 
 
608 
  if newStuff then
 612 
  if newStuff then
609 
  begin
 613 
  begin
610 
    LoadDetectedIDs;
 614 
    LoadDetectedIDs;
611 
    LoadINITemplate;
 615 
    LoadINITemplate;
- 
 
 616 
    LoadLoadedPluginList; // To update the "Detected IDs" column
612 
  end;
 617 
  end;
613 
end;
 618 
end;
614 
 
 619 
 
615 
procedure TUD2MainForm.LoadDynamicPluginList;
 620 
procedure TUD2MainForm.LoadDynamicPluginList;
616 
var
 621 
var