obj_Image->matchTemplate(obj_templ, mE_IEVTMM, stru_IEV_RECT);

#include <vcl.h>
#pragma hdrstop

#include "Main_Form.h"
// ----------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "hyiedefs"
#pragma link "hyieutils"
#pragma link "iemview"
#pragma link "iesettings"
#pragma link "ievect"
#pragma link "ieview"
#pragma link "iexBitmaps"
#pragma link "iexLayers"
#pragma link "iexRulers"
#pragma link "imageenview"
#pragma resource "*.dfm"
TMainForm *MainForm;
// ----------------------------------------------------------------------------

__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)
{
    this->CUmus_IEVisionDLLPath = TMainForm::CUF_FindIEVisionDLLPath();

    TMainForm::CUF_INIT_IEVision();
    // ------------------------------------------------------------
    // (1) Init.
    TMainForm::CVF_InitComponent();
    // ------------------------------------------------------------
}

// ============================================================================
//                                P R I V A T E
// ============================================================================
void TMainForm::CVF_InitComponent(void)
{
}

UnicodeString TMainForm::CUF_FindIEVisionDLLPath(void)
{
    UnicodeString mus_sExePath,
                  musa_Result[5],
                  mus_Result;
    int           mi_c;

    mus_sExePath = ::IncludeTrailingBackslash(ExtractFilePath(Application->ExeName));
    // ------------------------------------------------------------
    mus_Result   = "";
    // ------------------------------------------------------------
    // In same folder as EXE?
    musa_Result[0] = mus_sExePath+ IEVISION_32BIT_DLL_FILENAME1;
    // In Registered version folder?
    musa_Result[1] = mus_sExePath+ "..\\..\\..\\Trial\\" + IEVISION_32BIT_DLL_FILENAME1;
    // In trial version folder?
    musa_Result[2] = mus_sExePath+ "..\\..\\..\\Registered\\" + IEVISION_32BIT_DLL_FILENAME1;
    // In parent folder of EXE?
    musa_Result[3] = mus_sExePath+ "..\\" + IEVISION_32BIT_DLL_FILENAME1;
    // Or its parent?
    musa_Result[4] = mus_sExePath+ "..\\..\\" + IEVISION_32BIT_DLL_FILENAME1;
    // ------------------------------------------------------------
    for(mi_c = 0; mi_c < 5; mi_c++)
    {
        // --------------------------------------------
        if(::FileExists(musa_Result[mi_c]))
        {
            mus_Result = musa_Result[mi_c];
            // --------------------------------------------
            break;
        }
    }
    // ------------------------------------------------------------
    return(mus_Result);
}

bool TMainForm::CUF_INIT_IEVision(void)
{
    bool mB_RetVal;

    mB_RetVal = false;
    // ------------------------------------------------------------
    if(!this->CUmus_IEVisionDLLPath.IsEmpty())
    {
        // Initialize DLL in custom location
	    ::IEInitialize_ievision(WideString(this->CUmus_IEVisionDLLPath), false);
        // --------------------------------------------
        mB_RetVal = ::IEVisionAvailable();
    }
    // ------------------------------------------------------------
    return(mB_RetVal);
}

void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    UnicodeString mus_ExePath;

    ImageEnMView1->SoftShadow->Enabled = true;
    // ------------------------------------------------------------
    mus_ExePath = ::IncludeTrailingBackslash(ExtractFilePath(Application->ExeName));
    // ------------------------------------------------------------
    ImageEnVect1->IO->LoadFromFile(mus_ExePath + "\\coins.jpg");
    // ------------------------------------------------------------
    ImageEnMView1->MIO->LoadFromFile(mus_ExePath + "\\1.png");
    ImageEnMView1->MIO->LoadFromFile(mus_ExePath + "\\2.png");
    ImageEnMView1->MIO->LoadFromFile(mus_ExePath + "\\3.png");
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
  ImageEnVect1->IO->LoadFromFile(ImageEnVect1->IO->ExecuteOpenDialog());
  ImageEnVect1->RemoveAllObjects();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Button3Click(TObject *Sender)
{
  ImageEnMView1->MIO->LoadFromFile(ImageEnMView1->MIO->ExecuteOpenDialog());
  ImageEnVect1->RemoveAllObjects();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Button4Click(TObject *Sender)
{
  ImageEnVect1->ClearAll();
  ImageEnMView1->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Button5Click(TObject *Sender)
{
    TIEVisionImage               *obj_Image,
                                 *obj_templ;
    TIEVisionRect                stru_IEV_RECT;
    TIEVisionTemplateMatchMethod mE_IEVTMM;
    int                          mi_c;

    ImageEnVect1->RemoveAllObjects();
    // ------------------------------------------------------------
    // for each image in TImageEnMView (template images)
    for(mi_c = 0; mi_c < ImageEnMView1->ImageCount; mi_c++)
    {
        // get image where to search in
        obj_Image = ImageEnVect1->IEBitmap->GetIEVisionImage();
        // --------------------------------------------
        // get the template image to search
        obj_templ = ImageEnMView1->GetTIEBitmap(mi_c)->GetIEVisionImage();
        // --------------------------------------------
        mE_IEVTMM = (TIEVisionTemplateMatchMethod)ComboBox1->ItemIndex;
        // --------------------------------------------
        // perform template searching
        obj_Image->matchTemplate(obj_templ, mE_IEVTMM, stru_IEV_RECT);
        // --------------------------------------------
        // draw a red box around the found rectangle
        ImageEnVect1->ObjPenWidth[-1] = 3;
        ImageEnVect1->AddNewObject(iekBOX,
                                   IEVisionRectToTRect(stru_IEV_RECT), clRed);
        // --------------------------------------------
        ImageEnMView1->ReleaseBitmap(mi_c);
    }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::ComboBox1Change(TObject *Sender)
{
    TMainForm::Button5Click(Sender);
}
//---------------------------------------------------------------------------