I’ve written quite a bit about Visual FoxPro interoperating with .
NET in the past both for
ASP.
NET interacting with Visual FoxPro COM objects as well as Visual FoxPro calling into .
NET code via COM Interop. COM Interop with Visual FoxPro has a number of problems but one of them at least got a lot easier with the introduction of
dynamic type support in .
NET. One of the biggest problems with COM interop has been that it’s been really difficult to pass
dynamic objects from FoxPro to .
NET and get them properly typed. The only way that any strong typing can occur in .
NET for FoxPro components is via COM type library exports of Visual FoxPro components. Due to limitations in Visual FoxPro’s type library support as well as the
dynamic nature of the Visual FoxPro language where few things are or can be described in the form of a COM type library, a lot of useful interaction between FoxPro and .
NET required the use of messy Reflection code in .
NET. Reflection is .NET’s base interface to runtime type discovery and
dynamic execution of code without requiring strong typing. In FoxPro terms it’s similar to EVALUATE() functionality albeit with a much more complex API and corresponiding syntax. The Reflection APIs are fairly powerful, but they are rather awkward to use and require a lot of code. Even with the creation of wrapper utility classes for common EVAL() style Reflection functionality dynamically access COM objects passed to .
NET often is pretty tedious and ugly. Let’s look at a simple example. In the following code I use some FoxPro code to dynamically create an object in code and then pass this object to .
NET. An alternative to this might also be to create a new object on the fly by using SCATTER NAME on a database record. How the object is created is inconsequential, other than the fact that it’s not defined as a COM object – it’s a pure FoxPro object that is passed to .
NET. Here’s the code: *** Create .
NET COM InstanceloNet = CREATEOBJECT('DotNetCom.DotNetComPublisher')
*** Create a Customer Object Instance (factory method)
loCustomer = GetCustomer()
loCustomer.Name = "Rick Strahl"
loCustomer.Company = "West Wind Technologies"
loCustomer.creditLimit = 9999999999.99
loCustomer.Address.StreetAddress = "32 Kaiea Place"
loCustomer.Address.Phone = "808 579-8342"
loCustomer.Address.Email = "
[email protected]"
*** Pass Fox Object and echo back values
? loNet.PassRecordObject(loObject)
RETURN
FUNCTION GetCustomer
LOCAL loCustomer, loAddress
loCustomer = CREATEOBJECT("EMPTY")
ADDPROPERTY(loCustomer,"Name","")
ADDPROPERTY(loCustomer,"Company","")
ADDPROPERTY(loCUstomer,"CreditLimit",0.00)
ADDPROPERTY(loCustomer,"Entered",DATETIME())
loAddress = CREATEOBJECT("Empty")
ADDPROPERTY(loAddress,"StreetAddress","")
ADDPROPERTY(loAddress,"Phone","")
ADDPROPERTY(loAddress,"Email","")
ADDPROPERTY(loCustomer,"Address",loAddress)
RETURN loCustomer
ENDFUNC
Now prior to .
NET 4.0 you’d have to access this object passed to .
NET via Reflection and the method code to do this would looks something like this in the .
NET component:
public string PassRecordObject(object FoxObject)
{
// *** using raw Reflection
string Company = (string) FoxObject.GetType().InvokeMember(
"Company",
BindingFlags.GetProperty,null,
FoxObject,null);
// using the easier ComUtils wrappers
string Name = (string) ComUtils.GetProperty(FoxObject,"Name");
// Getting Address object – then getting child properties object Address = ComUtils.GetProperty(FoxObject,"Address"); string Street = (string) ComUtils.GetProperty(FoxObject,"StreetAddress");
// using ComUtils 'Ex' functions you can use . Syntax string StreetAddress = (string) ComUtils.GetPropertyEx(FoxObject,"AddressStreetAddress");
return Name + Environment.NewLine +
Company + Environment.NewLine +
StreetAddress + Environment.NewLine + " FOX";
}
Note that the FoxObject is passed in as type object which has no specific type. Since the object doesn’t exist in .
NET as a type signature the object is passed without any specific type information as plain non-descript object. To retrieve a property the Reflection APIs like Type.InvokeMember or Type.GetProperty().GetValue() etc. need to be used. I made this code a little simpler by using the Reflection Wrappers I mentioned earlier but even with those ComUtils calls the code is pretty ugly requiring passing the objects for each call and casting each element.
Using .
NET 4.0
Dynamic Typing makes this Code a lot cleaner
Enter .
NET 4.0 and the
dynamic type. Replacing the input parameter to the .
NET method from type object to
dynamic makes the code to access the FoxPro component inside of .
NET much more natural:
public string PassRecordObjectDynamic(dynamic FoxObject)
{
// *** using raw Reflection
string Company = FoxObject.Company;
// *** using the easier ComUtils class
string Name = FoxObject.Name;
// *** using ComUtils 'ex' functions to use . Syntax
string Address = FoxObject.Address.StreetAddress;
return Name + Environment.NewLine +
Company + Environment.NewLine +
Address + Environment.NewLine + " FOX";
}
As you can see the parameter is of type
dynamic which as the name implies performs Reflection lookups and evaluation on the fly so all the Reflection code in the last example goes away. The code can use regular object ‘.’ syntax to reference each of the members of the object. You can access properties and call methods this way using natural object language. Also note that all the type casts that were required in the Reflection code go away –
dynamic types like var can infer the type to cast to based on the target assignment. As long as the type can be inferred by the compiler at compile time (ie. the left side of the expression is strongly typed) no explicit casts are required.
Note that although you get to use plain object syntax in the code above you don’t get Intellisense in Visual Studio because the type is
dynamic and thus has no hard type definition in .
NET .
The above example calls a .
NET Component from VFP, but it also works the other way around. Another frequent scenario is an .
NET code calling into a FoxPro COM object that returns a
dynamic result.
Assume you have a FoxPro COM object returns a FoxPro Cursor Record as an object:
DEFINE CLASS FoxData AS SESSION OlePublic
cAppStartPath = ""
FUNCTION INIT
THIS.cAppStartPath = ADDBS( JustPath(Application.ServerName) )
SET PATH TO ( THIS.cAppStartpath )
ENDFUNC
FUNCTION GetRecord(lnPk)
LOCAL loCustomer
SELECT * FROM tt_Cust WHERE pk = lnPk ;
INTO CURSOR TCustomer
IF _TALLY < 1
RETURN NULL
ENDIF
SCATTER NAME loCustomer MEMO
RETURN loCustomer
ENDFUNC
ENDDEFINE
If you call this from a .
NET application you can now retrieve this data via COM Interop and cast the result as
dynamic to simplify the data access of the
dynamic FoxPro type that was created on the fly:
int pk = 0;
int.TryParse(Request.QueryString["id"],out pk);
// Create Fox COM Object with Com Callable Wrapper
FoxData foxData = new FoxData();
dynamic foxRecord = foxData.GetRecord(pk);
string company = foxRecord.Company;
DateTime entered = foxRecord.Entered;
This code looks simple and natural as it should be – heck you could write code like this in days long gone by in scripting languages like
ASP classic for example. Compared to the Reflection code that previously was necessary to run similar code this is much easier to write, understand and maintain.
For COM interop and Visual FoxPro operation
dynamic type support in .
NET 4.0 is a huge improvement and certainly makes it much easier to deal with FoxPro code that calls into .
NET. Regardless of whether you’re using COM for calling Visual FoxPro objects from .
NET (ASP.
NET calling a COM component and getting a
dynamic result returned) or whether FoxPro code is calling into a .
NET COM component from a FoxPro desktop application. At one point or another FoxPro likely ends up passing complex
dynamic data to .
NET and for this the
dynamic typing makes coding much cleaner and more readable without having to create custom Reflection wrappers. As a bonus the
dynamic runtime that underlies the
dynamic type is fairly efficient in terms of making Reflection calls especially if members are repeatedly accessed. © Rick Strahl, West Wind Technologies, 2005-2010Posted in COM FoxPro .NET CSharp
