Lotus C API 实现 Lotus Notes Client 端直接修改数据库文件名字

Lotus Notes Client 端直接修改数据库文件名字

Lotus Notes Client可以创建删除数据库，但是无法修改数据库文件名字。本文用Lotus Notes C API实现。

一，演示，假定服务器上有数据库a.nsf要改名为b.nsf。

1， 选择Rename File菜单，Rename File菜单为Lotus Notes C API添加的Add-In Menu .
 

2， 弹出对话框
 

3，选择OK，发送命令Load Rename a.nsf b.nsf到Domino Server Console
 
3， 服务器端有如下显示
 

5,服务器端程序Rename.exe完成改名任务
二，实现
Lotus Notes Client端Add-In Menu .
1,新建Win32 Application工程
 
2,修改工程设置
 
 
 

3,添加如下对话框资源
 
4,添加如下代码
// test1.cpp : Defines the entry point for the DLL application.
//
/* Standard library include files */
#include "stdafx.h"
#include
#include
/* Domino and Notes include files */
#include
#include
#include
#include
#include
#include "resource.h"
HANDLE hRetInfo;
STATUS nError;

char str1[50];
char str2[50];
char str3[50];
HINSTANCE hinst = NULL;
HWND hwndDLG = NULL;
BOOL CALLBACK DlgProc(HWND hDlg, UINT message,WPARAM wParam, LPARAM lParam);
BOOL APIENTRY DllMain( HANDLE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
      )
{
    switch(ul_reason_for_call)

  {

  case DLL_PROCESS_ATTACH:

     hinst = (HINSTANCE)hModule;

  case DLL_PROCESS_DETACH:

     break;

  }
    return TRUE;
}

BOOL CALLBACK DlgProc(HWND hDlg, UINT message,

WPARAM wParam, LPARAM lParam)

{

  switch(message)

  {

    case WM_INITDIALOG:
       return TRUE;

     case WM_SHOWWINDOW:
    return TRUE;

    case WM_COMMAND:

       if(LOWORD(wParam)==IDOK)
    { 
     GetWindowText(GetDlgItem(hDlg,IDC_EDIT1),str1,50);
   GetWindowText(GetDlgItem(hDlg,IDC_EDIT2),str2,50);
   GetWindowText(GetDlgItem(hDlg,IDC_EDIT3),str3,50);
   char str[200]="";
   strcat(str,"Load Rename ");
   strcat(str,str2);
   strcat(str," ");
   strcat(str,str3);
   
   nError = NSFRemoteConsole (str1, "dbcache flush", &hRetInfo);
   if (nError != NOERROR)
   return (ERR(nError));
   nError = NSFRemoteConsole (str1, str, &hRetInfo);
   if (nError != NOERROR)
   return (ERR(nError));
   OSMemFree (hRetInfo);

   MessageBox(NULL,"Successful!","window",MB_OK);
    }
    if(LOWORD(wParam)==IDCANCEL)
    {
   SendMessage(hDlg,WM_CLOSE,wParam,lParam);
    }

       return TRUE;    

    case WM_CLOSE:

       DestroyWindow(hDlg);

       hwndDLG = NULL;

       return TRUE;

  }

  return FALSE;

}

extern "C" NAMRESULT LNCALLBACK AddinMenuProc (WORD wMsg, LONG lParam)
{
   switch (wMsg)
   {
      case NAMM_INIT:
      {
         NAM_INIT_INFO *pInitInfo;

         /* lParam is a pointer to the NAM_INIT_INFO structure */
         pInitInfo = (NAM_INIT_INFO *)lParam;

         /* Add the menu item to the Notes Actions menu */
         /* Assign this menu item an id and a name */
         pInitInfo->wMenuID = 0;

         strcpy (pInitInfo->MenuItemName, "&Rename File");

         /* tell Notes that there are no more menu items to add */
         return (NAM_INIT_STOP);
      }

      case NAMM_COMMAND:
      {
//MessageBox(NULL,"Hello World","window",MB_OK);

    hwndDLG = CreateDialog(hinst,MAKEINTRESOURCE(IDD_DIALOG1),

NULL,(DLGPROC)DlgProc);

    ShowWindow(hwndDLG, SW_SHOW);

return (NOERROR);

      }

      default:          /* default processing for all other messages */
         return (NAM_NOERROR);
   }
}

5,添加.def文件 test1.def
LIBRARY    TEST1

DESCRIPTION 'TEST1 - Sample menu add-in'
 
HEAPSIZE    0

EXPORTS
        AddinMenuProc      @1   ;

6,把编译好的test1.dll拷到Lotus Notes Client的程序目录
7，修改Lotus Notes Client的Notes.ini文件，添加如下：
addinmenus=test1.dll
服务器端编写一个Win32 Console Application
1,新建Win32 Console Application 工程
 
 

2，添加如下代码
//Rename.CPP
#include "StdAfx.h"
#include "iostream.h"
int main(int argc, char *argv[])
{
 // Check the command line.
 char dir[100];
 char str1[100],str2[100];
 if (argc != 3)
 {
  cout << "\nUsage:\n\t" << argv[0] << " \n" << endl;
  return (1);
 }
 int i=0,j=0;
 char *p=argv[0];
 char *pos=argv[0];

 while(*p)
 {i++;
  if(*p=='\\')
  {
   while(i>0){
    str1[j]=str2[j]=dir[j]=*pos;
    pos++;i--;j++;
   }
  
  i=0;
 }
 p++;
 }
dir[j]='\0';
str1[j]='\0';
str2[j]='\0';
strcat(str1,"data\\");
strcat(str1,argv[1]);
strcat(str2,"data\\");
strcat(str2,argv[2]);
MoveFile(str1,str2);

return (0);
}
3，把编译好的Rename.exe拷贝到Domino的程序目录

 

文件:	Lotus Notes Client 端直接修数据库改文件名字.rar
大小:	204KB
下载:	下载