Delphi 10.3编译MapWinGIS组件报错 寻求使用指导

以下是实际适配过程中验证过的可落地排查步骤：

1. 前置依赖校验 #

• 确认你使用的 MapWinGIS ocx 版本和项目目标位数完全匹配：32位项目对应32位MapWinGIS.ocx，64位项目对应64位版本，注册时注意路径区分：
  • 32位系统：将ocx放入C:\Windows\System32，执行regsvr32 MapWinGIS.ocx完成注册
  • 64位系统：32位ocx放入C:\Windows\SysWOW64，执行对应目录下的regsvr32命令注册

2. ActiveX 导入配置修正 #

大部分编译错误来源于类型库导入时的配置错误，按以下步骤重新导入：

• 打开Delphi 10.3 菜单栏 组件 -> 导入组件 -> 导入类型库
• 在列表中找到 MapWinGIS <对应版本号> 条目，点击下一步
• 勾选 生成组件包装器 选项，自定义单元输出目录（不要使用默认临时目录，避免后续引用丢失），完成导入生成MapWinGIS_TLB.pas文件

3. 常见编译报错修复 #

• 标识符未找到 类报错：打开生成的MapWinGIS_TLB.pas，检查报错标识符是否和Delphi内置单元的命名冲突，在冲突标识符前增加MapWinGIS.前缀，或者调整uses单元的引用顺序，将MapWinGIS_TLB放在引用列表末尾即可
• OLE类型不匹配 报错：再次核对项目目标平台和注册的ocx位数是否一致，Delphi项目配置中 目标平台 选项必须和ocx位数完全匹配
• 找不到MapWinGIS_TLB.dcu 报错：打开 项目 -> 选项 -> Delphi编译器 -> 搜索路径，添加你之前存放MapWinGIS_TLB.pas的目录到搜索路径中

4. 功能验证 #

编译通过后可通过以下最简代码验证组件可用性：

procedure TForm1.Button1Click(Sender: TObject);
var
  layerIdx: Integer;
begin
  // Map1为窗体上拖入的MapWinGIS地图控件实例
  Map1.Projection := 4326;
  layerIdx := Map1.AddLayerFromFile('本地shp文件路径', True);
  if layerIdx >=0 then Map1.ZoomToLayer(layerIdx);
end;

内容的提问来源于stack exchange，提问作者msi-2019