COM

		typedef <br />
		[uuid(394143BC-4672-4E14-85DB-A96EBCA5A417),<br />
		 version(1.0),<br />
		 helpstring("RGB Representation of a single point")]<br />
		struct RGBValue_struct {<br />
			unsigned char B;     //The blue value of the color.<br />
			unsigned char G;     //The green value of the color.<br />
			unsigned char R;     //The red value of the color.<br />
			unsigned char alpha; //The alpha value of the color, which represents extra information about a color image, such as gamma correction.<br />
		} RGBValue;<br />
<br />
<br />
	typedef<br />
//		{7F7037D8-C4D5-4b75-9C68-A9627EDE914B}<br />
		[uuid(7F7037D8-C4D5-4b75-9C68-A9627EDE914B),<br />
		version(1.0),<br />
		helpstring("IVA_Data COM Wrapper")]<br />
		struct COM_IVA_Data<br />
		{<br />
			SAFEARRAY(PointFloat)	saPoints;<br />
			int			numPoints;<br />
			int			pointIndex;<br />
		}COM_IVA_Data;

HRESULT Image2Variant (IVA_Image Source, COM_IVA_Image *Dest)<br />
{<br />
<br />
	HRESULT hr = 0;<br />
	// Initializing dimension descriptor for our SafeArray<br />
	SAFEARRAYBOUND sabRGB[2];<br />
<br />
	sabRGB[0].lLbound = 0;<br />
	sabRGB[0].cElements = Source.columns * Source.rows;<br />
<br />
	hr = SafeArrayDestroy(Dest->saPoints);<br />
	if (hr != 0)<br />
	{<br />
		sprintf(logMessage, "CAugVisionEngine - Image2Variant - SafeArrayDestroy Failed (%ld)",hr);<br />
		WriteLogFile(logMessage);<br />
	}<br />
	Dest->saPoints = NULL;<br />
	IRecordInfo *pUDTRecordInfo = NULL;<br />
	hr = ::GetRecordInfoFromGuids(LIBID_AugSvrLib, 1,0,0,RGBValue_IID, &pUDTRecordInfo);<br />
	if (FAILED(hr))<br />
	{<br />
		sprintf(logMessage,"GetRecordInfoFromGuids failed (0x%X). Invalid Argument.",hr);<br />
		WriteLogFile(logMessage);<br />
		return(-1);<br />
	}<br />
<br />
	Dest->saPoints = SafeArrayCreateEx(/*Dest->vt*/VT_RECORD, 1, sabRGB,pUDTRecordInfo);<br />
	if (Dest->saPoints == NULL)<br />
	{	<br />
		WriteLogFile("Image2Variant - Array Cannot be Created");<br />
		return (-1);<br />
	}<br />
	// First of all, we'll put columns & rows, that are not arrays<br />
<br />
	Dest->columns = Source.columns;<br />
	Dest->rows = Source.rows;<br />
<br />
	// Now, start (looooooooong) loop and put all values in array.<br />
	for (int i = 0; i < Source.columns*Source.rows; i++)<br />
	{<br />
<br />
		RGBValue TempValue = Source.array[i];<br />
		hr = SafeArrayPutElement(Dest->saPoints, (long *)&i/*lDimension*/, &TempValue);<br />
		if (hr != 0)<br />
		{<br />
		<br />
			WriteLogFile("SafeArrayPutElement failed!");<br />
			return (NULL);<br />
		<br />
		}<br />
	}<br />
	<br />
/*	Dest->saPoints = SafeArrayCreateEx(VT_RECORD, 1, sabRGB, pUDTRecordInfo);<br />
	hr = SafeArrayCopy(saRGB, &Dest->saPoints);<br />
<br />
		if (hr != 0)<br />
		{<br />
			switch(hr)<br />
			{<br />
			case E_INVALIDARG:<br />
				WriteLogFile("Invalid Destination SafeArray");<br />
				break;<br />
			case E_OUTOFMEMORY:<br />
				WriteLogFile("Out Of Memory");<br />
				break;<br />
			default:<br />
				WriteLogFile("Unknown Error");<br />
			}<br />
			return (NULL);<br />
		<br />
		}<br />
	WriteLogFile ("Returning OK");<br />
*/	return (S_OK);<br />
}

Sub Find(ByVal ClientID As String, ByVal ContactNumber As Integer, ByVal List As Integer)<br />
' --------------------------------------------------------<br />
' Function:         Main<br />
' Description:      Examples use of SearchByClientId Method<br />
'<br />
' Arguments:        sClientId: Local variable which receives<br />
'                            getfieldvalue return value.<br />
' Returns:          n/a<br />
'<br />
' Comments:         Maximizer should be active while<br />
'                   running this code.<br />
' --------------------------------------------------------<br />
<br />
Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance    ' Define CurrentInstance object of running Maximizer<br />
Dim objMaxCur As MaximizerTLB.CurrentRecord  ' Define Current Record Object variable<br />
<br />
Set objMaxCur = objMaxAttach.GetCurrentRecordObject   ' Set objMaxCur to Current Record<br />
<br />
' -------------------------------------------------------------<br />
' Use the GetFieldValue method to obtain the current record Id<br />
' then search for all matching records<br />
' -------------------------------------------------------------<br />
'sClientId = objMaxCur.GetFieldValue("IDentification")<br />
<br />
' ------------------------------------<br />
' Create new list whose IDentification<br />
' matches that of the current record.<br />
' ------------------------------------<br />
'Call objMaxCur.SearchByClientId(sClientId, 0, 2)<br />
<br />
<br />
<br />
<br />
'***************** this line does not execute in VB.NET ****************<br />
Call objMaxCur.SearchByClientID(ClientID, ContactNumber, List)<br />
'***************** this line does not execute in VB.NET ****************<br />
<br />
<br />
<br />
Set objMaxCur = Nothing ' Release object<br />
Set objMaxAttach = Nothing   ' Release Object<br />
<br />
End Sub

Public Sub AddIndividualNote(ByVal ClientID As String, ByVal ContactNumber As String, ByVal Message As String, ByVal BatchID As String)<br />
        Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance<br />
        Dim objMaxCurrentRecord As MaximizerTLB.CurrentRecord<br />
<br />
        Try<br />
            objMaxAttach.GetApplicationObject.ActivateWindow("Client")<br />
            objMaxCurrentRecord = objMaxAttach.GetCurrentRecordObject<br />
<br />
<br />
<br />
'***************** this line does not execute in VB.NET ****************<br />
            'search for the person<br />
            objMaxCurrentRecord.SearchByClientID(ClientID, ContactNumber, 2)<br />
'***************** this line does not execute in VB.NET ****************<br />
<br />
<br />
<br />
            objMaxCurrentRecord.UndoSearch()<br />
        Catch ex As Exception<br />
            Throw ex<br />
        Finally<br />
            objMaxCurrentRecord = Nothing               'release object<br />
            objMaxAttach = Nothing                      'Release Object<br />
            GC.Collect()<br />
        End Try<br />
    End Sub