Как авторизоваться в Lotus через Com

Тема в разделе "Delphi - СОМ", создана пользователем NeoSimvolist, 28 дек 2009.

  1. NeoSimvolist

    NeoSimvolist Гость

    Пишу на Delphi

    FSession:=CreateOleObject('Notes.Notessession');
    Запускается Lotus Client. Без запроса на авторизацию.
    Как только начинаю обращаться к объекту то сразу выходит
    окошко об авторизации под последним User-ом.
    Как программно авторизоваться? В Lotus скрипте есть нечто такое?
    Может создавать не 'Notes.Notessession' а соединения какие то?
     
  2. turumbay

    Регистрация:
    13 мар 2009
    Сообщения:
    625
    Симпатии:
    2
  3. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    <div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Код</div></div><div class="sp-body"><div class="sp-content">
    Код (Text):
    uses Domino_TLB;

    var

    testdb:IDatabase;
    bdb:IDatabase;
    stdoc:IDocument;
    ses:ISession;
    const
    Server='DominoServer/ORG';
    TestBase='bases\base.nsf';
    ServerIP='192.168.216.10';

    __________
    try
    //get session
    ses:=CoNotesSession.Create;
    ses.Initialize('cneltyn');//пароль последнего авторизованного юзера в лотус клиента
    //get tester
    testdb:=ses.GetDatabase(Server, TestBase, false);
    pd:=testdb.GetProfileDocument('SETTINGS', '');
    //get student base
    itm1:=pd.GetFirstItem('Server');
    itm2:=pd.GetFirstItem('Student');
    //
    stdb:=ses.GetDatabase(itm1.Text, itm2.Text, false);
    //
    stview:=stdb.GetView('(FOR-PHP-IKS)');
    stview.AutoUpdate:=False;
    stview.Refresh;
    //get base
    itm1:=pd.GetFirstItem('Server');
    itm2:=pd.GetFirstItem('Base');
    //
    bdb:=ses.GetDatabase(itm1.Text, itm2.Text, false);
    bpd:=bdb.GetProfileDocument('SETTINGS', '');
    //
    tview:=bdb.GetView('(Check-Prof-Dis2)');
    tview.AutoUpdate:=False;
    tview.Refresh;
    except
    on Ex:Exception do
    begin
    MessageBox(Application.Handle,
    PAnsiChar('Невозможно подключиться к базе!'+
    Chr(13)+'('+Ex.Message+')'), 'Предупреждение', MB_OK+MB_ICONWARNING+MB_SYSTEMMODAL);
    SurName.SetFocus;
    Exit;
    end;
    end;

    Добавлено: для этого нужно
    подключить (импортнуть) файл domobj.tlb из лотус нотус папки
    к проджекту дельфи
     
  4. NeoSimvolist

    NeoSimvolist Гость

    Исчерпывающе. Тема закрыта. Благодарю!!!
     
  5. hotCoffee

    hotCoffee Гость

    всем привет!!! я только начал работать с лотусом, возникла необходимость экспортировать данные из базы *.nsf в *.mdb. подскажите пожалуйста, как получить доступ к лотусовской базе? какие компоненты нужны? пробовал использовать примерчики, которые нарыл в инете, но ничего не получается. объясните пожалуйста! заранее большое спасибо!!!
     
  6. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
Загрузка...

Поделиться этой страницей