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

  • Автор темы NeoSimvolist
  • Дата начала
N

NeoSimvolist

Гость
#1
Пишу на Delphi

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

yerke

Well-Known Member
28.08.2007
392
0
#3
<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">
Код:
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 из лотус нотус папки
к проджекту дельфи
 
N

NeoSimvolist

Гость
#4
Исчерпывающе. Тема закрыта. Благодарю!!!
 
H

hotCoffee

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