ソフトウェアサポート

回答

内容

パソコン決裁６ ExtensionKitでは、以下のモジュールが提供されます。

捺印ツール Extension	OLEオートメーションを利用してクリップボードに電子印鑑オブジェクトを転送するモジュール
電子印鑑 Extension	パソコン決裁で取り扱われるグループ、ユーザ、電子印鑑に関する情報を設定・取得するCOMモジュール
電子印鑑 XML Extension	パソコン決裁で取り扱われるグループ、ユーザに関する情報をXML形式で取得するCOMモジュール
電子印鑑 コントロール	電子印鑑 Extensionから出力された専用形式ファイル内の印鑑イメージやプロパティ情報を表示するActiveXコントロール

ほとんどのモジュールはCOMコンポーネントとして提供されますので、COMオブジェクトが作成できる開発環境であれば、開発を行っていただくことができます。

例

捺印ツール Extensionモジュールを利用したコード例（VBScriptの例）

'---------------------------------------------------------------- 'ユーザ名とパスワードを引数としてログインするサンプル '---------------------------------------------------------------- Dim objDstmp32 '捺印ツール Extension オブジェクト作成 Set objDstmp32 = CreateObject("Dstmp.StampObject.6") '参照する捺印用印鑑データファイルの指定 objDstmp32.DefaultFilePath = "参照を行う捺印用印鑑データファイルの場所" 'ユーザの取得 if objDstmp32.GetUser("ユーザ名", "パスワード") = True then 　　'電子印鑑をOLEオブジェクトとしてクリップボードへコピー 　　if objDstmp32.Copy(True) = True then 　　　　'クリップボードにコピーされた電子印影オブジェクトの処理 　　end if end if Set objDstmp32 = Nothing

例

電子印鑑 Extensionモジュールを利用したコード例（VBScriptの例）

'---------------------------------------------------------------- 'PNG形式で印鑑データのイメージを出力するサンプル '---------------------------------------------------------------- Dim objDstmpLib '電子印鑑 Extension オブジェクト作成 Set objDstmpLib = CreateObject("DstmpLib.Extension") '参照する捺印用印鑑データファイルの指定 objDstmpLib.DsmFile = "参照を行う捺印用印鑑データファイルの場所" 'ユーザの取得 if objDstmpLib.Login("ユーザ名", "パスワード") = 1 then 　　'画像ファイルの出力 　　if objDstmpLib.SavePng("保存するファイルの場所") = 1 then 　　　　'PNG形式での出力成功 　　end if end if Set objDstmpLib = Nothing

'---------------------------------------------------------------- '捺印用印鑑データファイルに追加されているユーザの一覧を出力するサンプル '---------------------------------------------------------------- Dim objDstmpLib '電子印鑑 Extension オブジェクト作成 Set objDstmpLib = CreateObject("DstmpLib.StmpDat") '参照する捺印用印鑑データファイルを開く if objDstmpLib.SF_DsmOpen("参照を行う捺印用印鑑データファイルの場所", "開くパスワード") == 1 then 　　do while objDstmpLib.SF_IsEOF() = False 　　　　'ユーザ名を取得 　　　　msgbox objDstmpLib.SF_GetCurrentUserName() 　　　　'次のユーザへ移動 　　　　objDstmpLib.SF_MoveNext(0) 　　loop 　　'捺印用印鑑データファイルを閉じる 　　objDstmpLib.SF_DsmClose() end if Set objDstmpLib = Nothing