FaceAPI/ufmMain.dfm

object fmMain: TfmMain
  Left = 0
  Top = 0
  Caption = 
    '(C) 2017, 2018, 2019 by ZAM@1CLICK.LV. Delphi DX10. Microsoft Co' +
    'gnitive Services Face Api 1.0'
  ClientHeight = 552
  ClientWidth = 1170
  Color = clBtnFace
  Constraints.MinHeight = 480
  Constraints.MinWidth = 890
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    1170
    552)
  PixelsPerInch = 96
  TextHeight = 13
  object lblAccessKey: TLabel
    Left = 833
    Top = 227
    Width = 63
    Height = 13
    Caption = 'Access key'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblPersonName: TLabel
    Left = 834
    Top = 83
    Width = 62
    Height = 13
    Caption = 'Person name'
  end
  object lblPersonUserData: TLabel
    Left = 814
    Top = 109
    Width = 82
    Height = 13
    Caption = 'Person user data'
  end
  object lblPersonGroupId: TLabel
    Left = 817
    Top = 11
    Width = 79
    Height = 13
    Caption = 'Person Group ID'
  end
  object lblPersonGroupUserData: TLabel
    Left = 782
    Top = 59
    Width = 114
    Height = 13
    Caption = 'Person Group user data'
  end
  object lblFaceTempId1: TLabel
    Left = 821
    Top = 155
    Width = 75
    Height = 13
    Caption = 'Face Temp ID 1'
  end
  object lblFaceTempId2: TLabel
    Left = 821
    Top = 179
    Width = 75
    Height = 13
    Caption = 'Face Temp ID 2'
  end
  object lblPersonId: TLabel
    Left = 849
    Top = 131
    Width = 47
    Height = 13
    Caption = 'Person ID'
  end
  object lblPersonGroupName: TLabel
    Left = 801
    Top = 35
    Width = 95
    Height = 13
    Caption = 'Person Group Name'
  end
  object lblUrl: TLabel
    Left = 877
    Top = 203
    Width = 19
    Height = 13
    Caption = 'URL'
  end
  object Label14: TLabel
    Left = 825
    Top = 251
    Width = 71
    Height = 13
    Caption = 'Face Temp IDs'
  end
  object Label15: TLabel
    Left = 840
    Top = 322
    Width = 56
    Height = 13
    Caption = 'Face List ID'
  end
  object Label18: TLabel
    Left = 810
    Top = 347
    Width = 86
    Height = 13
    Caption = '[OPTIONAL] Start'
  end
  object Label19: TLabel
    Left = 793
    Top = 371
    Width = 103
    Height = 13
    Caption = '[OPTIONAL] Top (int)'
  end
  object memLog: TMemo
    Left = 9
    Top = 392
    Width = 1151
    Height = 153
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clInfoBk
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Fixedsys'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    WantTabs = True
  end
  object edtPersonGroupID: TEdit
    Left = 902
    Top = 8
    Width = 202
    Height = 21
    TabOrder = 1
    Text = 'edtPersonGroupID'
  end
  object edtAccessKey: TEdit
    Left = 902
    Top = 224
    Width = 202
    Height = 21
    TabOrder = 2
  end
  object btnClearLog: TButton
    Left = 8
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Clear log'
    TabOrder = 3
    OnClick = btnClearLogClick
  end
  object edtPersonName: TEdit
    Left = 902
    Top = 80
    Width = 202
    Height = 21
    TabOrder = 4
    Text = 'edtPersonName'
  end
  object edtPersonUserData: TEdit
    Left = 902
    Top = 104
    Width = 202
    Height = 21
    Hint = '(16 KByte text)'
    TabOrder = 5
    Text = 'edtPersonUserData'
  end
  object edtPersonGroupUserData: TEdit
    Left = 902
    Top = 56
    Width = 202
    Height = 21
    Hint = '(16 KByte text)'
    TabOrder = 6
    Text = 'edtPersonGroupUserData'
  end
  object edtFaceTempID1: TEdit
    Left = 902
    Top = 152
    Width = 202
    Height = 21
    TabOrder = 7
    Text = 'edtFaceTempID1'
  end
  object edtFaceTempID2: TEdit
    Left = 902
    Top = 176
    Width = 202
    Height = 21
    TabOrder = 8
    Text = 'edtFaceTempID2'
  end
  object edtPersonID: TEdit
    Left = 902
    Top = 128
    Width = 202
    Height = 21
    TabOrder = 9
    Text = 'edtPersonID'
  end
  object edtPersonGroupName: TEdit
    Left = 902
    Top = 32
    Width = 202
    Height = 21
    TabOrder = 10
    Text = 'edtPersonGroupName'
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 768
    Height = 313
    ActivePage = TabSheet5
    TabOrder = 11
    object TabSheet1: TTabSheet
      Caption = 'Person Group'
      object Label4: TLabel
        Left = 444
        Top = 3
        Width = 250
        Height = 26
        Caption = 
          'Enter "Person Group ID", "Person Group Name" and '#13#10'optionally "P' +
          'erson Group User Data"'
      end
      object Label5: TLabel
        Left = 444
        Top = 39
        Width = 116
        Height = 13
        Caption = 'Enter "Person Group ID"'
      end
      object Label6: TLabel
        Left = 444
        Top = 72
        Width = 116
        Height = 13
        Caption = 'Enter "Person Group ID"'
      end
      object Label8: TLabel
        Left = 444
        Top = 103
        Width = 116
        Height = 13
        Caption = 'Enter "Person Group ID"'
      end
      object Label9: TLabel
        Left = 444
        Top = 165
        Width = 116
        Height = 13
        Caption = 'Enter "Person Group ID"'
      end
      object Label10: TLabel
        Left = 444
        Top = 191
        Width = 250
        Height = 26
        Caption = 
          'Enter "Person Group ID", "Person Group Name" and '#13#10'optionally "P' +
          'erson Group User Data"'
      end
      object btnListPersonGroups: TButton
        Left = 3
        Top = 129
        Width = 202
        Height = 25
        Caption = 'List Person Groups'
        TabOrder = 0
        OnClick = btnListPersonGroupsClick
      end
      object btnRunPersonGroupTraining: TButton
        Left = 3
        Top = 160
        Width = 202
        Height = 25
        Caption = 'Run Person Group training'
        TabOrder = 1
        OnClick = btnRunPersonGroupTrainingClick
      end
      object btnGetPersonGroupTrainingStatus: TButton
        Left = 3
        Top = 98
        Width = 202
        Height = 25
        Caption = 'Get Person Group training status'
        TabOrder = 2
        OnClick = btnGetPersonGroupTrainingStatusClick
      end
      object btnCreatePersonGroup: TButton
        Left = 3
        Top = 3
        Width = 202
        Height = 25
        Caption = 'Create Person Group'
        TabOrder = 3
        OnClick = btnCreatePersonGroupClick
      end
      object btnDeletePersonGroup: TButton
        Left = 3
        Top = 34
        Width = 202
        Height = 25
        Caption = 'Delete Person Group'
        TabOrder = 4
        OnClick = btnDeletePersonGroupClick
      end
      object btnUpdatePersonGroup: TButton
        Left = 3
        Top = 191
        Width = 202
        Height = 25
        Caption = 'Update Person Group'
        TabOrder = 5
        OnClick = btnUpdatePersonGroupClick
      end
      object btnGetPersonGroup: TButton
        Left = 3
        Top = 67
        Width = 202
        Height = 25
        Caption = 'Get Person Group'
        TabOrder = 6
        OnClick = btnGetPersonGroupClick
      end
      object btnListPersonGroupsAsync: TButton
        Left = 211
        Top = 129
        Width = 202
        Height = 25
        Caption = 'List Person Groups Async'
        TabOrder = 7
        OnClick = btnListPersonGroupsAsyncClick
      end
      object btnCreatePersonGroupAsync: TButton
        Left = 211
        Top = 3
        Width = 202
        Height = 25
        Caption = 'Create Person Group Async'
        TabOrder = 8
        OnClick = btnCreatePersonGroupAsyncClick
      end
      object btnDeletePersonGroupAsync: TButton
        Left = 211
        Top = 34
        Width = 202
        Height = 25
        Caption = 'Delete Person Group Async'
        TabOrder = 9
        OnClick = btnDeletePersonGroupAsyncClick
      end
      object btnGetPersonGroupAsync: TButton
        Left = 211
        Top = 67
        Width = 202
        Height = 25
        Caption = 'Get Person Group Async'
        TabOrder = 10
        OnClick = btnGetPersonGroupAsyncClick
      end
      object btnGetPersonGroupTrainingStatusAsync: TButton
        Left = 211
        Top = 98
        Width = 202
        Height = 25
        Caption = 'Get Person Group training status Async'
        TabOrder = 11
        OnClick = btnGetPersonGroupTrainingStatusAsyncClick
      end
      object btnRunPersonGroupTrainingAsync: TButton
        Left = 211
        Top = 160
        Width = 202
        Height = 25
        Caption = 'Run Person Group training Async'
        TabOrder = 12
        OnClick = btnRunPersonGroupTrainingAsyncClick
      end
      object btnUpdatePersonGroupAsync: TButton
        Left = 211
        Top = 191
        Width = 202
        Height = 25
        Caption = 'Update Person Group Async'
        TabOrder = 13
        OnClick = btnUpdatePersonGroupAsyncClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Face'
      ImageIndex = 1
      object Label7: TLabel
        Left = 435
        Top = 101
        Width = 219
        Height = 13
        Caption = 'Enter "Person Group ID" and "Face Temp IDs"'
      end
      object Label1: TLabel
        Left = 435
        Top = 39
        Width = 56
        Height = 13
        Caption = 'Enter "URL"'
      end
      object Label2: TLabel
        Left = 435
        Top = 132
        Width = 219
        Height = 13
        Caption = 'Enter "Face Temp ID 1" and "Face Temp ID 2"'
      end
      object Label3: TLabel
        Left = 435
        Top = 163
        Width = 285
        Height = 13
        Caption = 'Enter "Face Temp ID 1", "Person ID" and "Person Group ID"'
      end
      object Label11: TLabel
        Left = 435
        Top = 194
        Width = 108
        Height = 13
        Caption = 'Enter "Face Temp IDs"'
      end
      object Label12: TLabel
        Left = 435
        Top = 225
        Width = 200
        Height = 13
        Caption = 'Enter "Face Temp ID 1" and "Face List ID"'
      end
      object Label13: TLabel
        Left = 435
        Top = 256
        Width = 215
        Height = 13
        Caption = 'Enter "Face Temp ID 1" and "Face Temp IDs"'
      end
      object btnDetectInFile: TButton
        Left = 3
        Top = 3
        Width = 202
        Height = 25
        Caption = 'Detect in File'
        TabOrder = 0
        OnClick = btnDetectInFileClick
      end
      object btnDetectInUrl: TButton
        Left = 3
        Top = 34
        Width = 202
        Height = 25
        Caption = 'Detect in URL'
        TabOrder = 1
        OnClick = btnDetectInUrlClick
      end
      object btnDetectInStream: TButton
        Left = 3
        Top = 65
        Width = 202
        Height = 25
        Caption = 'Detect in Stream'
        TabOrder = 2
        OnClick = btnDetectInStreamClick
      end
      object btnIdentify: TButton
        Left = 3
        Top = 96
        Width = 202
        Height = 25
        Caption = 'Identify'
        TabOrder = 3
        OnClick = btnIdentifyClick
      end
      object btnVerifyTwoFacesWay1: TButton
        Left = 3
        Top = 127
        Width = 202
        Height = 25
        Caption = 'Verify two faces - Way 1'
        TabOrder = 4
        OnClick = btnVerifyTwoFacesWay1Click
      end
      object btnVerifyTwoFacesWay2: TButton
        Left = 3
        Top = 158
        Width = 202
        Height = 25
        Caption = 'Verify two faces - Way 2'
        TabOrder = 5
        OnClick = btnVerifyTwoFacesWay2Click
      end
      object btnGroup: TButton
        Left = 3
        Top = 189
        Width = 202
        Height = 25
        Caption = 'Group'
        TabOrder = 6
        OnClick = btnGroupClick
      end
      object btnFindSimilarWay1: TButton
        Left = 3
        Top = 220
        Width = 202
        Height = 25
        Caption = 'Find Similar - Way 1'
        TabOrder = 7
        OnClick = btnFindSimilarWay1Click
      end
      object btnFindSimilarWay2: TButton
        Left = 3
        Top = 251
        Width = 202
        Height = 25
        Caption = 'Find Similar - Way 2'
        TabOrder = 8
        OnClick = btnFindSimilarWay2Click
      end
      object btnDetectInFileAsync: TButton
        Left = 211
        Top = 3
        Width = 202
        Height = 25
        Caption = 'Detect in File Async'
        TabOrder = 9
        OnClick = btnDetectInFileAsyncClick
      end
      object btnDetectInUrlAsync: TButton
        Left = 211
        Top = 34
        Width = 202
        Height = 25
        Caption = 'Detect in URL Async'
        TabOrder = 10
        OnClick = btnDetectInUrlAsyncClick
      end
      object btnDetectInStreamAsync: TButton
        Left = 211
        Top = 65
        Width = 202
        Height = 25
        Caption = 'Detect in Stream Async'
        TabOrder = 11
        OnClick = btnDetectInStreamAsyncClick
      end
      object btnIdentifyAsync: TButton
        Left = 211
        Top = 96
        Width = 202
        Height = 25
        Caption = 'Identify Async'
        TabOrder = 12
        OnClick = btnIdentifyAsyncClick
      end
      object btnVerifyTwoFacesWayAsync1: TButton
        Left = 211
        Top = 127
        Width = 202
        Height = 25
        Caption = 'Verify two faces Async - Way 1'
        TabOrder = 13
        OnClick = btnVerifyTwoFacesWayAsync1Click
      end
      object btnVerifyTwoFacesWayAsync2: TButton
        Left = 211
        Top = 158
        Width = 202
        Height = 25
        Caption = 'Verify two faces Async - Way 2'
        TabOrder = 14
        OnClick = btnVerifyTwoFacesWayAsync2Click
      end
      object btnGroupAsync: TButton
        Left = 211
        Top = 189
        Width = 202
        Height = 25
        Caption = 'Group Async'
        TabOrder = 15
        OnClick = btnGroupAsyncClick
      end
      object btnFindSimilarWayAsync1: TButton
        Left = 211
        Top = 220
        Width = 202
        Height = 25
        Caption = 'Find Similar Async - Way 1'
        TabOrder = 16
        OnClick = btnFindSimilarWayAsync1Click
      end
      object btnFindSimilarWayAsync2: TButton
        Left = 211
        Top = 251
        Width = 202
        Height = 25
        Caption = 'Find Similar - Way 2'
        TabOrder = 17
        OnClick = btnFindSimilarWayAsync2Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Face List'
      ImageIndex = 2
    end
    object TabSheet4: TTabSheet
      Caption = 'Person Group Person'
      ImageIndex = 3
      object Label16: TLabel
        Left = 443
        Top = 8
        Width = 290
        Height = 13
        Caption = 'Enter "Person Group ID", "Person name", "Person user data"'
      end
      object Label17: TLabel
        Left = 443
        Top = 39
        Width = 188
        Height = 13
        Caption = 'Enter "Person Group ID", "Start", "Top"'
      end
      object btnCreatePerson: TButton
        Left = 3
        Top = 3
        Width = 202
        Height = 25
        Caption = 'Create'
        TabOrder = 0
        OnClick = btnCreatePersonClick
      end
      object btnListPersonsInPersonGroup: TButton
        Left = 3
        Top = 34
        Width = 202
        Height = 25
        Caption = 'List'
        TabOrder = 1
        OnClick = btnListPersonsInPersonGroupClick
      end
      object btnListPersonsInPersonGroupAsync: TButton
        Left = 211
        Top = 34
        Width = 202
        Height = 25
        Caption = 'List Async'
        TabOrder = 2
        OnClick = btnListPersonsInPersonGroupAsyncClick
      end
      object btnCreatePersonAsync: TButton
        Left = 211
        Top = 3
        Width = 202
        Height = 25
        Caption = 'Create Async'
        TabOrder = 3
        OnClick = btnCreatePersonAsyncClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Server'
      ImageIndex = 4
      object lstServers: TListBox
        Left = 3
        Top = 3
        Width = 345
        Height = 279
        ItemHeight = 13
        TabOrder = 0
      end
    end
  end
  object edtUrl: TEdit
    Left = 902
    Top = 200
    Width = 202
    Height = 21
    TabOrder = 12
    Text = 'http://1click.lv/FaceApi/sample1.jpg'
  end
  object memFaceTempIDs: TMemo
    Left = 902
    Top = 248
    Width = 259
    Height = 65
    ScrollBars = ssVertical
    TabOrder = 13
    WantTabs = True
  end
  object edtFaceListID: TEdit
    Left = 902
    Top = 319
    Width = 202
    Height = 21
    TabOrder = 14
    Text = 'edtFaceListID'
  end
  object edtStart: TEdit
    Left = 902
    Top = 344
    Width = 202
    Height = 21
    TabOrder = 15
  end
  object edtTop: TEdit
    Left = 902
    Top = 368
    Width = 202
    Height = 21
    TabOrder = 16
  end
  object OpenDialogImage: TOpenDialog
    Filter = 'JPEG Image|*.jpg;*.jpeg|All files|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 668
    Top = 64
  end
end