创建自定意义图层出错!请教

<P>var
   param, ds: variant;
   unusedParam: OleVariant;
   fields: CMapXFields;
begin</P>
<P>TVarData(unusedParam).vType := varError;
     TVarData(unusedParam).vError := LONGWORD(DISP_E_PARAMNOTFOUND);
      param := CreateOleObject('MapX.ODBCQueryInfo.4');
     param.SqlQuery := 'select * from USA';
     param.DataSource := 'MapStatsV4';
     param.ConnectString := 'ODBC;';</P>
<P>     fields := CoFields.Create;
     fields.Add('GEOABBR','GEOABBR', miAggregationAuto,miTypeString);
     fields.Add('GEONAME','GEONAME', miAggregationAuto,miTypeString);
     fields.Add('TOTPOP','TOTPOP', miAggregationAuto,miTypeNumeric);</P>
<P>       ds := Map1.Datasets.Add(miDataSetODBC, param, unusedParam, unusedParam, unusedParam, 'USA', fields, unusedParam);
      ds.Themes.Add(miThemeRanged, 'TOTPOP', 'HomesByState');</P>
<P>end;</P>
<P>程序执行到最后一句代码时出错:</P>
<P>operation not allowed due to license restrictions</P>
<P>偶的环境是:</P>
<P>Delphi6+mapx4</P>
<P>请教高手!</P>

谢谢版主

<P>解密的mapx5.0不会报这样的错误！</P>

<P>程序出错的原因是，你的MAPX4.0是解密的，</P><P>解密后MAPX4.0，如果是绑定数据源是数据库，就会报这样的错误！</P>