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

xxb

好的，你们上班很早的，关于88楼的问题可能是还没有创建'NavLayer'的图层
m_Layer := EyeMap.Layers.CreateLayer('NavLayer',nil,nil,nil,nil);

xxb

procedure Register;
begin
  RegisterComponents('ActiveX',[TMap]);
  RegisterComponents(dtlServerPage, [TDataSets, TLayers, TLayerInfo, TLayer,
    TField, TDataset, TThemes, TTheme, TLegend,
    TAnnotations, TThemeProperties, TSelection, TFeature, TRangeCategory,
    TFields, TStyle, TIndividualValueCategory, TMultiVarCategory, TSourceRows,
    TSourceRow, TAnnotation, TGraphic, TLegendText, TLegendTexts,
    TTitle, TLabelProperties, TBindLayer, TRangeCategories, TIndividualValueCategories,
    TMultivarCategories, TBitmapSymbols, TRectangle, TBoundsConstraint, TFeaturesConstraint,
    TAllFeaturesConstraint, TFind, TFindFeature, TFindResult, TFindMatch,
    TFindMatches, TParts, TPoints, TPoint, TGeosets,
    TGeoSet, TFeatures, TDatum, TAffineTransform, TCoordSys,
    TBitmapSymbol, TFeatureFactory, TResolveObjects, TResolveObject, TRowValues,
    TRowValue, TVariables, TVariable, TLabels, TLabel]);
end;
改成了：
procedure Register;
begin
  RegisterComponents('ActiveX',[TMap]);
end;

alang

我跟踪了，执行到
procedure TMainForm.BizFormCreate(Sender: TObject);
var
  ExeFilePath:String;
begin
  ExeFilePath := SysUtils.ExtractFilePath(Business.Forms.Forms.Application.ExeName);

  ExeFilePath := 'c:\';
  YnMap.GeoSet      :=ExeFilePath+'map\yunnan.gst';
  YnMap.Title.Visible:=false;

  EyeMap.GeoSet      :=ExeFilePath+'map\yunnan_eye.gst'; //YnMap
  EyeMap.Title.Visible:=false;

  {
  YnMap.GeoSet      := SysUtils.ExtractFilePath(Application.ExeName)+'map\yunnan.gst';
  YnMap.Title.Visible:=false;

  EyeMap.GeoSet      :=SysUtils.ExtractFilePath(Application.ExeName)+'map\yunnan_eye.gst';
  EyeMap.Title.Visible:=false;

  }
  //在EyeMap创建图层
  m_Layer := EyeMap.Layers.CreateLayer('NavLayer',nil,nil,nil,nil);
//  YnMap.OnMapViewChanged := YnMapMapViewChanged;
end;
就出错了，根本执行不到CreateLayer

alang

我新加一个按钮，在窗体显示出来以后，点这个按钮，也没有触发这个YnMapMapViewChanged事件
procedure TMainForm.Button1Click(Sender: TObject);
begin
  YnMap.GeoSet      := 'c:\map\yunnan_eye.gst';
  YnMap.GeoSet      := 'c:\map\yunnan.gst';
end;

xxb

换一下map的位置，如：D盘

ExeFilePath := 'D:\';
  YnMap.GeoSet      :=ExeFilePath+'map\yunnan.gst';
  YnMap.Title.Visible:=false;

  //在EyeMap创建图层
   m_Layer := YnMap.Layers.CreateLayer('NavLayer',nil,nil,nil,nil);//

xxb

我这里有出错的图片：

alang

你用我发给你的导入包看看有什么问题吧

xxb

就是这个有问题了 m_Layer := YnMap.Layers.CreateLayer('NavLayer',nil,nil,nil,nil);
你用的开发版本是？
我的是2617

xxb

平台是不是不支持多态函数

xxb

你的导入不了