NDAAlohaPC1.LoggingController クラス


[スレッディングモデル] Both


■ プロパティ一覧
プロパティ名 内容
Enabled ロギング有効/無効の設定
LogFileName ログ出力ファイル名

■ メソッド一覧
メソッド名 内容
AddLog ログデータの出力




■ オブジェクトの作成方法

VB の場合)

Set logCtrl = New NDAAlohaPC1.LoggingController

VBScript の場合)

Set logCtrl = Server.CreateObject("NDAAlohaPC1.LoggingController")

Delphi の場合

varLogCtrl: Variant;
LogCtrl := CreateOleObject('NDAAlohaPC1.LoggingController');
または
varLogCtrl: ILoggingController;
LogCtrl := CreateOleObject('NDAAlohaPC1.LoggingController') as ILoggingController;


■ プロパティ

Enabled [アクセス] Read and Write
[データ型] IDL: VARIANT_BOOL VB: Boolean Delphi: WordBool
[初期値] False

[解説]
ログを採るかどうかを設定します。
ログデータ形式は本ソフトウェア独自のものです。通常はログを採る必要はないので無効(ログを採らない)にしてあります。
この目的は、お客様から動作しない等の不具合報告を受けたときに、こちらでのログ内容の調査目的のためにお客様にログを採るようにお願いするような使い方を想定しています。 もちろんそれとは関係なくログを採るように設定してもらっても構いませんが、内容は独自のものなのでほとんど意味がないと思います。

VB のコード例)
-------------------------------------------
Dim logCtrl As NDAAlohaPC1.LoggingController
Set logCtrl = New NDAAlohaPC1.LoggingController

' ログを採るように設定する
logCtrl.Enabled = True
-------------------------------------------

VBScript のコード例)
-------------------------------------------
Set logCtrl = Server.CreateObject("NDAAlohaPC1.LoggingController")

' ログを採るように設定する
logCtrl.Enabled = True
-------------------------------------------

Delphi のコード例)
-------------------------------------------
var
 LogCtrl: ILoggingController;
begin
 LogCtrl := CreateOleObject('NDAAlohaPC1.LoggingController') as ILoggingController;

 // ログを採るように設定する
 LogCtrl.Enabled := True;
end;
-------------------------------------------
LogFileName [アクセス] Read and Write
[データ型] IDL: BSTR* VB: String Delphi: WideString
[初期値] "C:\ndaaloha.log"

[解説]
ログデータの出力先ファイル名を設定します。
デフォルト以外のファイル名にしたい場合に設定します。


■ メソッド

AddLog


IDL HRESULT _stdcall AddLog([in] BSTR Msg );
VB Sub AddLog(Msg As String)
Delphi procedure AddLog(const Msg: WideString); safecall;

[解説]
ログファイルにログデータを出力します。Msg には出力したいメッセージを指定します。
初期状態ではログは無効なので有効にしないとファイルに書き出しません。

[備考]
本ソフトウェア内部で出力するログと、このメソッドで出力するログはともに同じファイルに出力しています。
通常、このメソッドは使う意味はありません。

VB のコード例)
-------------------------------------------
Dim logCtrl As NDAAlohaPC1.LoggingController
Set logCtrl = New NDAAlohaPC1.LoggingController

' ログを採るように設定する
logCtrl.Enabled = True

' ログデータの出力
logCtrl.AddLog "メッセージ"
-------------------------------------------

VBScript のコード例)
-------------------------------------------
Set logCtrl = Server.CreateObject("NDAAlohaPC1.LoggingController")

' ログを採るように設定する
logCtrl.Enabled = True

' ログデータの出力
logCtrl.AddLog "メッセージ"
-------------------------------------------

Delphi のコード例)
-------------------------------------------
var
 LogCtrl: ILoggingController;
begin
 LogCtrl := CreateOleObject('NDAAlohaPC1.LoggingController') as ILoggingController;

 // ログを採るように設定する
 LogCtrl.Enabled := True;

 // ログデータ出力
 LogCtrl.AddLog('メッセージ');
end;
-------------------------------------------



↑ページトップへ

Copyright© 2002 Hitwareland Corporation.