mainform.dfm

delphi Adsi Memo delphi Adsi Memo delphi Adsi Memo

object Form1: TForm1
  Left = 192
  Top = 110
  Width = 598
  Height = 337
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 577
    Height = 265
    ActivePage = TabSheet3
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'ADSI Search with ADO'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 569
        Height = 237
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'SN'
            Width = 46
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CN'
            Width = 134
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AdsPath'
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Internet'
      ImageIndex = 1
      object lvResult: TListView
        Left = 0
        Top = 0
        Width = 569
        Height = 237
        Hint = 
          'This searches for the string "shenoy" on an Internet based LDAP ' +
          'service and shows the results in the grid'
        Align = alClient
        Columns = <
          item
            Caption = 'Name'
          end
          item
            Caption = 'Email'
            Width = 200
          end
          item
            Caption = 'HomePhone'
            Width = 150
          end>
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Schema'
      ImageIndex = 2
      object Label1: TLabel
        Left = 8
        Top = 32
        Width = 53
        Height = 13
        Caption = 'Mandatory:'
      end
      object Label2: TLabel
        Left = 272
        Top = 32
        Width = 42
        Height = 13
        Caption = 'Optional:'
      end
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 59
        Height = 13
        Caption = 'Object Path:'
      end
      object lstMand: TListBox
        Left = 8
        Top = 48
        Width = 257
        Height = 177
        Hint = 'Shows a list of mandatory properties of the Object'
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object lstOptional: TListBox
        Left = 272
        Top = 48
        Width = 289
        Height = 177
        Hint = 'Shows a list of optional properties of the Object'
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object edtObjectPath: TEdit
        Left = 71
        Top = 5
        Width = 297
        Height = 21
        TabOrder = 2
        Text = 'LDAP://DC=AGNISOFT,DC=com'
      end
      object Button3: TButton
        Left = 376
        Top = 4
        Width = 75
        Height = 25
        Caption = 'Get Schema'
        TabOrder = 3
        OnClick = Button3Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'IDirectorySearch'
      ImageIndex = 3
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 59
        Height = 13
        Caption = 'Object Path:'
      end
      object Label5: TLabel
        Left = 376
        Top = 40
        Width = 185
        Height = 185
        AutoSize = False
        Caption = 
          'This tab shows searching using the IDirectorySearch interface. A' +
          'fter typing in the path to a domain, click the Search button to ' +
          'get a list of groups within that domain.'
        WordWrap = True
      end
      object edtDSPath: TEdit
        Left = 71
        Top = 5
        Width = 297
        Height = 21
        TabOrder = 0
        Text = 'LDAP://DC=AGNISOFT,DC=com'
      end
      object lbDSSearch: TListBox
        Left = 8
        Top = 32
        Width = 361
        Height = 201
        ItemHeight = 13
        TabOrder = 1
      end
      object Button2: TButton
        Left = 376
        Top = 4
        Width = 76
        Height = 25
        Caption = 'Search'
        TabOrder = 2
        OnClick = Button4Click
      end
    end
  end
  object ISrchBtn: TButton
    Left = 96
    Top = 280
    Width = 89
    Height = 25
    Caption = 'Internet Search'
    Enabled = False
    TabOrder = 1
    OnClick = ISrchBtnClick
  end
  object Button1: TButton
    Left = 8
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Search LDAP'
    TabOrder = 2
    OnClick = Button1Click
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=ADsDSOObject;Encrypt Password=False;Mode=Read;Bind Flag' +
      's=0;ADSI Flag=-2147483648'
    LoginPrompt = False
    Provider = 'ADsDSOObject'
    Left = 440
    Top = 256
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 216
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT AdsPath, CN, SN FROM '#39'LDAP://DC=AGNISOFT,DC=COM'#39' '
      'WHERE '
      'objectClass='#39'user'#39' '
      'ORDER BY sn')
    Left = 296
    Top = 192
  end
  object DataSource2: TDataSource
    Left = 520
    Top = 256
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CommandText = 
      '<LDAP://DC=AGNISOFT,DC=DOM>;(|(|(cn=shenoy*))(sn=*));cn,mail,sn,' +
      'st,homePhone;subtree'#13#10
    ParamCheck = False
    Parameters = <>
    Left = 356
    Top = 256
  end
  object ADOConnection2: TADOConnection
    Left = 412
    Top = 48
  end
end