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

xxb

已经发送请收取，请尽快回应。

atiger

已经收到，正在看，有结果马上跟贴高知

xxb

先试一下，不能用尽快发帖，不行的话，请给一个ftp，我把全部的资料放上去，
真是辛苦你了！

alang

function TLayers.CreateLayer(const Name: WideString): CMapXLayer;
begin
  Result := DefaultInterface.CreateLayer(Name, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TLayers.CreateLayer(const Name: WideString; FileSpec: OleVariant): CMapXLayer;
begin
  Result := DefaultInterface.CreateLayer(Name, FileSpec, EmptyParam, EmptyParam, EmptyParam);
end;

function TLayers.CreateLayer(const Name: WideString; FileSpec: OleVariant; Position: OleVariant): CMapXLayer;
begin
  Result := DefaultInterface.CreateLayer(Name, FileSpec, Position, EmptyParam, EmptyParam);
end;

function TLayers.CreateLayer(const Name: WideString; FileSpec: OleVariant; Position: OleVariant;
                             KeyLength: OleVariant): CMapXLayer;
begin
  Result := DefaultInterface.CreateLayer(Name, FileSpec, Position, KeyLength, EmptyParam);
end;

function TLayers.CreateLayer(const Name: WideString; FileSpec: OleVariant; Position: OleVariant;
                             KeyLength: OleVariant; CoordSys: OleVariant): CMapXLayer;
begin
  Result := DefaultInterface.CreateLayer(Name, FileSpec, Position, KeyLength, CoordSys);
end;

这是Delphi中生成的代码，你可以看到CreateLayer有多种实现，如果需要
     m_Layer := EyeMap.Layers.CreateLayer('NavLayer',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
改成这样的写法是一样的
     m_Layer := EyeMap.Layers.CreateLayer('NavLayer');

所以平台上也是写成
         m_Layer := EyeMap.Layers.CreateLayer('NavLayer');
就可以了

xxb

这个多态函数我试了不行的
[错误]Biz:\PRCDPZHYWGLJJCPJXXXT\ZHCX\DTCX.FUNC.DIR\MainForm.Form.pas(116, 34): Not enough actual parameters

xxb

我就感觉有点怪

xxb

这个东西我觉得有点非长常规的，我用了好些方法，与数据类型调试过了，不行，我想是不是导入的时候出了些什么运行时才能发现的问题啊

alang

tmap的layers的类型是CMapXLayers，不是TLayers
你可以自己在Tmap中包装一个方法，然后在这个方法中调用
Layers.CreateLayer(Name, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

在平台上直接调用这个方法就可以

  TMap = class(TOleControl)

    property Layers: CMapXLayers read Get_Layers;

xxb

你是说在源文件中写个方法，然后在导入到平台，然后调用这个方法
那别外的那个问题怎么解决呢？

alang

请参考
http://bbs.justep.com/forum.php? ... amp;highlight=class  16楼

class function CoSdeWorkspaceFactory.Create: IUnknown;
begin
  Result := CreateComObject(CLASS_SdeWorkspaceFactory) as IUnknown;
end;
平台上不支持class方法，只支持static的方法，所以请你把这个函数的语句直接写到平台上，不要调用这个函数