【搞定】X3下导入Dll运行时错误[请求][请求]

xxb

昨天试了下，感觉出入有好些出入。不太好弄，今天来一点一点请教

alang

X3中不能调用Delphi中的class方法，所以，你需要在X3中调用CreateOleObject来创建接口

alang

40楼给的方法就是说在Delphi中的
class function CoLayer.Create: CMapXLayer;
begin
  Result := CreateComObject(CLASS_Layer) as CMapXLayer;
end;
在平台上无法调用，所以你把这个函数的内容（Result := CreateComObject(CLASS_Layer) as CMapXLayer;）写到X3中
由于CreateComObject不能用，你用CreateOleObject来代替
直接在X3平台上写
Result := Business.System.ComObj.CreateOleObject('xxxx') as CMapXLayer;
这样就在X3平台上创建CMapXLayer接口了

xxb

//视图改变事件
procedure TMainForm.YnMapMapViewChanged(Sender: TObject);
var
    rect: CMapXRectangle;
    newPoint : CMapXpoint;
    newPoints : CMapXpoints;
    pSDEFac     : CMapXpoint;
    pSDEFacs     :CMapXpoints ;         //IWorkspaceFactory
begin
   pSDEFac:=Business.System.ComObj.CreateOleObject('CMapXPoint') as  CMapXpoint;
   pSDEFacs:=Business.System.ComObj.CreateOleObject('CMapXPoints')  as CMapXpoints;
到pSDEFac:=Business.编译通不过。无效的类别字符串类型：EOleSysError.

xxb

注册表：
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Interface\{968303A6-8F18-11D0-8796-00AA00B7EF73}]
@="CMapXPoint"

[HKEY_CLASSES_ROOT\Interface\{968303A6-8F18-11D0-8796-00AA00B7EF73}\ProxyStubClsid]
@="{00020420-0000-0000-C000-000000000046}"

[HKEY_CLASSES_ROOT\Interface\{968303A6-8F18-11D0-8796-00AA00B7EF73}\ProxyStubClsid32]
@="{00020420-0000-0000-C000-000000000046}"

[HKEY_CLASSES_ROOT\Interface\{968303A6-8F18-11D0-8796-00AA00B7EF73}\TypeLib]
@="{E760686B-BC9E-4802-9ECF-175FDF4062CE}"
"Version"="5.0"

xxb

注册表：
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Interface\{968303A2-8F18-11D0-8796-00AA00B7EF73}]
@="CMapXPoints"

[HKEY_CLASSES_ROOT\Interface\{968303A2-8F18-11D0-8796-00AA00B7EF73}\ProxyStubClsid]
@="{00020420-0000-0000-C000-000000000046}"

[HKEY_CLASSES_ROOT\Interface\{968303A2-8F18-11D0-8796-00AA00B7EF73}\ProxyStubClsid32]
@="{00020420-0000-0000-C000-000000000046}"

[HKEY_CLASSES_ROOT\Interface\{968303A2-8F18-11D0-8796-00AA00B7EF73}\TypeLib]
@="{E760686B-BC9E-4802-9ECF-175FDF4062CE}"
"Version"="5.0"

xxb

上面的有什么地方要改啊，怎么连编译都过不了

xxb

我的资料都发给你们了，问题在里面，请认真解决，解决不了给个意见，我以好对老大有个
交待，本来这样的问题我早就该叫老大出面直接联系你们了，搞我们这行的大家都应该多体
量。我是进退两难，我没有多的时间了

xxb

static function  TMainForm.CP(): CMapXpoint;
begin
  Result := Business.System.ComObj.CreateOleObject('CMapXPoint') as  CMapXpoint;
end;
这样不行的

xxb