今天又遇到了问题解决不了，创建层!!!_cmapxlayer:=map.layers.add(cmapxlayerinfo,0); 异常-CSDN博客

本文链接：https://blog.csdn.net/delez/article/details/199724

下面的代码失败了，但同等的delphi和Vb是成功的。先放在这，以后解决
bcb代码如下：
   CMapXLayerInfoDisp layerInfo;
   CMapXFieldsDisp fields;

   layerInfo.Bind(StringToOleStr("MapX.LayerInfo.5"));
   if(!layerInfo.IsBound()){
       ShowMessage("绑定MapX.LayerInfo.5失败!!" );
       return;
   }
   fields.Bind(StringToOleStr("MapX.Fields.5"));
   if(!fields.IsBound()){
       ShowMessage("绑定MapX.Fields.5失败!!" );
       layerInfo.Unbind(true);
       return;
   }
   fields.AddStringField(Variant("ID"), Variant(12), EmptyParam);
   fields.AddStringField(Variant("Name"), Variant(50), EmptyParam);
   fields.AddNumericField(Variant("Deptch"), Variant(12), Variant(2), EmptyParam);
   fields.AddIntegerField(Variant("Length"), EmptyParam);
   layerInfo.Type = miLayerInfoTypeNewTable;
   layerInfo.AddParameter(WideString("FileSpec"), Variant(WideString("c://test.tab")));
   layerInfo.AddParameter(WideString("NAME"), Variant(WideString("sds")));
   layerInfo.AddParameter(WideString("Fields"), Variant((CMapXFields *)fields));
   CMapXLayer *newLayer = m_map->Layers->Add(Variant((CMapXLayerInfo *)layerInfo), EmptyParam);
   if(newLayer == NULL){
      ShowMessage("创建MapX.Layer失败!!");
      layerInfo.Unbind(true);
      fields.Unbind(true);
      return;
   }
Dephi代码如下(能正常运行)
Lyr:CMapXLayer;
LayerInfo:CMapXLayerInfo;
Flds:CMapXFields;
FileSpec: String;
begin
LayerInfo :=CoLayerInfo.Create();
Flds := CoFields.Create();
Flds.AddStringField('ID', 12, EmptyParam);
Flds.AddStringField( 'Name', 50, EmptyParam);
Flds.AddNumericField( 'Deptch', 12, 2, EmptyParam);
Flds.AddIntegerField( 'Length', EmptyParam);

LayerInfo.Type_ := miLayerInfoTypeNewTable;
LayerInfo.AddParameter( 'FileSpec', 'c:/test.tab');
LayerInfo.AddParameter( 'NAME', 'hello');
LayerInfo.AddParameter( 'Fields', Flds);

Lyr := Map1.Layers.Add(LayerInfo, EmptyParam);
if(Lyr = nil) then
begin
ShowMessage('错误');
end;