这是我的FoxPro类:
DEFINE CLASS clscem AS custom
Height = 102
Width = 212
publicproperty = "this is my initial value"
pubprop = ""
Name = "clscem"
ENDDEFINE
这是我的form1.scx代码:
objSinif = CREATEOBJECT("SinifDeneme.Class")
donenObjSinif = objSinif.f_Metot(thisform.CLSCEM1)
thisform.command1.Caption = donenObjSinif.M_SitringProp
我从.NETPro调用.NET dll作为COM对象。这是我的DLL类DLL:
using System;
using System.IO;
using System.Reflection;
using System.Runtime.InteropServices;
namespace ClsLib
{
[ClassInterface(ClassInterfaceType.AutoDual)]
[ProgId("SinifDeneme.Class")]
[ComVisible(true)]
public class Sinif
{
public string SitringField;
public string M_SitringProp { get; set; }
public Sinif f_Metot(object oj)
{
StreamWriter sw = File.CreateText(Path.GetDirectoryName(Assembly.GetAssembly(typeof(Sinif)).Location )+ "\\obje.txt");
Type myObjectType = oj.GetType();
//Get public properties
PropertyInfo[] propertyInfo = myObjectType.GetProperties();
sw.WriteLine("------------- PROPERTY --------------");
foreach (PropertyInfo info in propertyInfo)
{
sw.WriteLine("Name:"+info.Name);
sw.WriteLine("PropertyType:"+info.PropertyType);
sw.WriteLine("GetValue():" + info.GetValue(oj,null));
sw.WriteLine("-------------");
}
FieldInfo[] fieldInfo = myObjectType.GetFields();
sw.WriteLine("------------- FIELDS --------------");
foreach (FieldInfo info in fieldInfo)
{
sw.WriteLine("Name:" + info.Name);
sw.WriteLine("AssemblyQualifiedName:" + info.FieldType.AssemblyQualifiedName);
sw.WriteLine("GetValue():" + info.GetValue(oj));
sw.WriteLine("-------------");
}
sw.Flush();
sw.Close();
sw.Dispose();
return new Sinif()
{
M_SitringProp="SitringProp propertisi",
SitringField="Sitring fieldı"
};
}
}
}
但我无法编写FoxPro对象的属性或字段。而我可以设置DLL的f_Metot返回的C#对象whicj的属性。获取来自FoxPro的对象属性的问题在哪里?
我不知道COM对象转换。你能解释一下吗?
提前致谢....
答案 0 :(得分:1)
Rick Strahl做了a three part article set on interop between VFP and .Net - 虽然它有点老了,但我希望你会在其中一个中找到答案,可能是the first。