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

alang

在Delphi下，执行代码
var
  i: CMapXLayers;
begin
  i := CreateComObject(CLASS_Layers) as CMapXLayers;

出现错误提示

xxb

你用的环境Xp?

xxb

你的mapx安装了，可能要破解，在文件夹下有，把它放到你安装的文件夹下，运行选择5.0的就
好，先试一下，没有下面这行字

alang

81楼搞错了，在Delphi中执行
var
  i: CMapXPoints;
begin
  i := CreateOleObject('MapX.Points') as CMapXPoints;
也是出错

写成
var
  i: CMapXPoints;
begin
  i := CreateOleObject('MapX.Points.5') as CMapXPoints;
就好了，应该是这个控件自己不好，必须带版本号才行

alang

在平台上写
  o := Business.System.ComObj.CreateOleObject('MapX.Point.5') as IUnknown;
可以，但是写成
  o := Business.System.ComObj.CreateOleObject('MapX.Point.5') as CMapXpoints;
就会出错，因此需要在Delphi中把这个调用包装成一个函数，然后在平台上调用

alang

例如：在
function CoPointsCreate: CMapXPoints;
begin
  Result := CreateComObject(CLASS_Points) as CMapXPoints;
end;

在平台上就可以这样调用了
var
  i: CMapXpoints;
begin
  i := JustepExt.MapXLib_TLB.CoPointsCreate;
  Dialogs.Showmessage(SysUtils.IntToStr(i.Count));

alang

附件是我包装好的dll bpl 还有X3中做的例子

alang

例子中的代码，执行出现如下错误
所以第二个问题无法验证了
{问题231： newPoint.Set_(rect.XMin , rect.YMin );  时出错
   前面的
     newPoint := CMapXpoint(CoPoint.Create) ;
     newPoints := CMapXpoints(CoPoints.Create) ;
    在delphi中是
     newPoint := CoPoint.Create ;
     newPoints := CoPoints.Create ;
    平台下不用类型转换会出错
    }

xxb

我就感觉有点怪怪的，我先试一试！真是感激不尽，对了，你就是阿狼吧。

alang

我是阿朗，不是阿狼