Cetin,

Thanks for your response. Since I don't know C it will take me while to figure it out. I have Visual Studio 6, though no longer installed.

Thanks again.

Alex



>>Hi,
>>
>>Does anybody here have, or know how to write, a small C or C++ program to receive a call from VFP and pass it to an ActiveX object's method and then provide a return, in order to get around the situation described in the following reference: http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q177575
>>
>>1) The ActiveX expects several parameters: some are values and some are variants passed by reference;
>>2) The code needed is a small routine to act as a go between that will pass things back and forth to get around the known issue in these cases.
>>3) It is OK to require a separate procedure to be a front end to each ActiveX routine.
>>
>>Thank you very much !
>>
>>Alex
>
>Alex,
>Check Message #555095 for FLL creating steps.
>If you use winApiMs.lib that comes with VFP7 you'd run into ATLS.Lib not found. It happened only once to me (reruns didn't show). If u have VC7 (.NET) atls.lib is in atl\lib folder.
>For your case it sounds it'd be good to work with an object. Below is a sample VFP+C code for object demo (Add_property, Get_Property are C routines):
>
>

>/*
>VFP sample code :
>o1 = createobject('Custom')
>o2 = createobject('Container')
>_screen.addobject('MyShape','Shape')
>? Add_Property(o1,"Test_Property1",12345)
>? Add_Property(o1,"Test_Property2","Hello")
>? Add_Property(o1,"Test_Property3",date())
>? Add_Property(_screen.myShape,"bgcolor",0xffff00)
>? Add_Property(o2,"objref",createobject('textbox'))
>o2.objref.Value = 'MyValue'
>luValue1 = Get_Property(o1,"Test_Property1")
>luValue2 = Get_Property(o1,"Test_Property2")
>luValue3 = Get_Property(o1,"Test_Property3")
>
>? type('luValue1'), luValue1
>? type('luValue2'), luValue2
>? type('luValue3'), luValue3
>with _screen.myShape
>	.Top = 100
>	.Left = 100
>	.BackColor = .bgcolor
>	.Visible = .t.
>endwith
>luObj = Get_Property(o2,"objref")
>? luObj.Name, luObj.Baseclass, luObj.Value
>set library to
>wait window 'Any key to continue...'
>_screen.myShape.Visible = .f.
>_screen.removeobject('myShape')
>
>*/
>#include <pro_ext.h>
>
>char FAR *NullTerminate(Value FAR *cVal)
>{
>	char *RetVal;
>	if (!_SetHandSize(cVal->ev_handle, cVal->ev_length + 1))
>	{
>		_Error(182); // "Insufficient memory"
>	}
>	
>	((char FAR *) _HandToPtr(cVal->ev_handle))[cVal->ev_length] = '\0';
>	RetVal = (char FAR *) _HandToPtr(cVal->ev_handle);
>	return RetVal;
>}
>
>void FAR PropGet(ParamBlk FAR *parm)
>{
>	#define obj (parm->p[0].val)
>	#define prpname (parm->p[1].val)
>
>	Value val;
>	ZeroMemory(&val, sizeof (Value));
>
>	char FAR *PropertyName = NullTerminate(&prpname);
>	int Success = _GetObjectProperty(&val, &obj, PropertyName) ;
>	if ( Success != 0)
>	{
>		_Error(Success*-1);
>	}
>	else
>	{
>		_RetVal(&val);
>	}
>}
>
>void FAR PropAdd(ParamBlk FAR *parm)
>{
>	#define obj (parm->p[0].val)
>	#define prpname (parm->p[1].val)
>	#define prpval (parm->p[2].val)
>
>
>	char FAR *PropertyName = NullTerminate(&prpname);
>
>	// success code - 0 success,
>        //negative error abs value foxpro error number
>        // 1 add if not exists
>	int Success = _SetObjectProperty(&obj, PropertyName, &prpval, 1) ;
>	if ( Success != 0)
>	{
>		_Error(Success*-1);
>	}
>	else
>	{
>		_RetLogical(1); // Return .T. to foxpro
>	}
>}
>
>FoxInfo myFoxInfo[] =
>{
>	{"Add_Property", (FPFI) PropAdd, 3, "OC?"},
>	{"Get_Property", (FPFI) PropGet, 2, "OC"},
>};
>
>
>extern "C" {
>FoxTable _FoxTable =
>{
>	(FoxTable *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
>};
>}
>

>Cetin