ITmedia エンタープライズ

//============================================================= (1)
// DLL内関数へのポインタ型
typedef const char* (*TDLLGetNameProc)();
typedef void (*TDLLApplyProc)(Graphics::TBitmap*, TRect);
//============================================================= (2)
// フィルタプラグインを呼び出すためのメニュー項目
class TFilterPluginMenuItem : TMenuItem {
private:
    // DLLハンドルと、関数ポインタ
    HINSTANCE DLL;
    TDLLGetNameProc GetNameProc;
    TDLLApplyProc ApplyProc;
public:
    // コンストラクタ
    TFilterPluginMenuItem(TComponent* Owner, HINSTANCE dll)
    : TMenuItem(Owner) {
        //===================================================== (3)
        // 関数ポインタの取得
        DLL=dll;
        GetNameProc=(TDLLGetNameProc)GetProcAddress(dll, "_GetName");
        ApplyProc=(TDLLApplyProc)GetProcAddress(dll, "_Apply");
        //===================================================== (4)
        // イベントとキャプションの設定
        OnClick=ProcessOnClick;
        if (GetNameProc!=NULL) Caption=(*GetNameProc)();
            else Caption="フィルタ名不明";
        Enabled=(ApplyProc!=NULL);
    }
    // デストラクタ
    virtual __fastcall ~TFilterPluginMenuItem() {
        FreeLibrary(DLL);
    }
    // OnClickイベントに対する応答
    // フィルタを実行
    void __fastcall ProcessOnClick(TObject *Sender) {
        //===================================================== (5)
        // プラグインのApply関数を実行し、画面を再描画する
        (*ApplyProc)(
            GEditorForm-> GetBitmap(), 
            GEditorForm-> GetSelectedRect());
        GEditorForm-> RepaintSelectedRect();
    }
};
//============================================================= (6)
// フィルタプラグインをロードする
void TGEditorForm::LoadFilterPlugins() {
    HINSTANCE dll;
    TSearchRec file;
    // プログラムフォルダの"Filter_*.dll"を全てロードし、
    // 「フィルタ」メニューに項目を登録する
    AnsiString path=
        ExtractFilePath(Application-> ExeName)+"Filter_*.dll";
    if (FindFirst(path, faAnyFile, file)==0) {
        do {
            //================================================= (7)
            // DLLのロード
            dll=LoadLibrary(file.Name.c_str());
            if (dll!=NULL) {
                MFilter-> Add((TMenuItem*)
                    (new TFilterPluginMenuItem(MFilter, dll)));
            }
        } while (FindNext(file)==0);
    }
}

//============================================================= (1)
// フィルタの名称を返す関数
extern "C" __declspec(dllexport) const char* GetName();
const char* GetName() {
    return "色の反転(&N)";
};
//============================================================= (2)
// フィルタの本体
extern "C" __declspec(dllexport) 
    void Apply(Graphics::TBitmap *bitmap, TRect rect);
void Apply(Graphics::TBitmap *bitmap, TRect rect) {
    int *pixel;
    int x,y;
    //========================================================= (3)
    // ビットマップの形式を32ビットカラーに設定する
    bitmap-> PixelFormat=pf32bit;
    for (y=rect.top; y< rect.bottom; y++) {
        //===================================================== (4)
        // 画像の１行分のピクセルにアクセスする
        pixel=(int*)bitmap-> ScanLine[y];
        for (x=rect.left; x< rect.right; x++) {
            pixel[x]=~pixel[x];
        }
    }
    //========================================================= (5)
    /* Canvasを使ったバージョン（遅い）
    TCanvas *c=bitmap-> Canvas;
    TColor color;
    int x,y;
    for (y=rect.top; y< rect.bottom; y++) {
        for (x=rect.left; x< rect.right; x++) {
            color=canvas-> Pixels[x][y];
            color=(~color)&0xffffff;
            canvas-> Pixels[x][y]=color;
        }
    }
    */
}

#include < vcl.h> 
#include < windows.h> 
#pragma hdrstop
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    return 1;
}

#include < vcl.h> 
#include < windows.h> 
#pragma hdrstop
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    return 1;
}