【求助】COM封装翻译

mogo

一开始只是想封装Illustrator的。然后看到了COM对象有个查看接口的方法，就做了个从接口窗口复制COM代码再翻译到中文的功能。但每次复制粘贴太麻烦了，逛论坛时才知道工具菜单下有个COM封装器，所以又做成翻译火山代码。发现使用 寻找文本 竟然找不到"<"（207行），于是就想着自己解释COM接口。所以代码有些乱。 Illustrator.zip (542.01 KB, 下载次数: 1)

8 小时前 上传

点击文件名下载附件

请教各位大佬以下代码是结构（876行）声明有问题，还是双星指针的代码（1020行）有问题呢？

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 类 TLIBATTR结构体2 <基础类 = 结构基础类 折叠>
   
4. {
   
5. 
   
6.     # @ @m<DECLARE_STRUCT_CLASS> (TLIBATTR)
   
7. 
   
8.     方法 类型标识 <公开 属性读 类型 = GUID类>
   
9.     {
   
10.         变量 GUID <类型 = GUID类>
    
11.         @ @<GUID>.m_guid = pdata()->guid;
    
12.         返回 (GUID)
    
13.     }
    
14. 
    
15.     方法 硬件平台 <公开 属性读 类型 = 变整数 注释 = "SYSKIND syskind; 目标硬件平台。" @嵌入式方法 = "">
    
16.     {
    
17.         @ (INT_P)(@sn<this>.pdata()->syskind)
    
18.     }
    
19. 
    
20.     方法 主版本号 <公开 属性读 类型 = 短整数 注释 = "WORD wMajorVerNum; 主版本号" @嵌入式方法 = "">
    
21.     {
    
22.         @ @sn<this>.pdata()->wMajorVerNum
    
23.     }
    
24. 
    
25.     方法 次版本号 <公开 属性读 类型 = 短整数 注释 = "WORD wMinorVerNum; 次版本号" @嵌入式方法 = "">
    
26.     {
    
27.         @ @sn<this>.pdata()->wMinorVerNum
    
28.     }
    
29. 
    
30.     #
    
31. }
    
32. 
    
33. 类 TLIBATTR结构体 <注释 = "https://learn.microsoft.com/zh-cn/windows/win32/api/oaidl/ns-oaidl-tlibattr" 折叠
    
34.         折叠2 @别名 = "TLIBATTR" @别名类型 = 本地类 @视窗.结构类 = 0>
    
35. {
    
36.     变量 类型标识 <公开 类型 = "字节 [16]" 注释 = "GUID    guid;         类型信息的 GUID" @输出名 = "guid">
    
37.     变量 区域标识 <公开 类型 = 短整数 注释 = "LCID    lcid;         成员名称和文档字符串的区域设置" @输出名 = "lcid">
    
38.     变量 硬件平台 <公开 类型 = 变整数 注释 = "SYSKIND syskind;      目标硬件平台。" @输出名 = "syskind">
    
39.     变量 主版本号 <公开 类型 = 短整数 注释 = "WORD    wMajorVerNum; 主版本号。" @输出名 = "wMajorVerNum">
    
40.     变量 次版本号 <公开 类型 = 短整数 注释 = "WORD    wMinorVerNum; 次版本号。" @输出名 = "wMinorVerNum">
    
41.     变量 库标志 <公开 类型 = 短整数 注释 = "WORD    wLibFlags;    库标志。" @输出名 = "wLibFlags">
    
42. }
    
43. 
    
44. <火山程序 类型 = "通常" 版本 = 1 />
    
45. 
    
46. 方法 获取库属性 <公开 类型 = 逻辑型
    
47.         注释 = "https://learn.microsoft.com/zh-cn/windows/win32/api/oaidl/nf-oaidl-itypelib-getlibattr"
    
48.         返回值注释 = "成功返回假，失败返回真" 折叠>
    
49. 参数 TLIBATTR结构 <类型 = TLIBATTR结构体>
    
50. {
    
51.     变量 结构地址 <类型 = 变整数>
    
52.     结构地址 = 取变量地址 (TLIBATTR结构)
    
53.     调试输出 (当前时间 (), 取源行号 (), 取源类名 (), 取源方法名 (), 结构地址)
    
54.     @ hresult = iTypeLib->GetLibAttr((TLIBATTR**)&@<结构地址>);
    
55.     返回 (执行失败)
    
56. }
    
57. 
    
58. 方法 释放库属性 <公开
    
59.         注释 = "https://learn.microsoft.com/zh-cn/windows/win32/api/oaidl/nf-oaidl-itypelib-releasetlibattr">
    
60. 参数 TLIBATTR结构 <类型 = TLIBATTR结构体>
    
61. {
    
62.     变量 结构地址 <类型 = 变整数>
    
63.     结构地址 = 取变量地址 (TLIBATTR结构)
    
64.     调试输出 (当前时间 (), 取源行号 (), 取源类名 (), 取源方法名 (), 结构地址)
    
65.     @ iTypeLib->ReleaseTLibAttr((TLIBATTR*)&@<TLIBATTR结构>);
    
66. 
    
67. }
    

复制代码

运行后报以下错误：

1. 错误: 接收到未经处理的严重异常,代码为: 0xC0000374
   
2. 被调试程序已经退出,退出码为0xC0000374.

复制代码

另外请教要如何自定义调试数据格式呢？尝试了以下都不成功（405行），或者 取当前语句位置() 中的文件名改为无路径文件名也可以。

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 调试信息 <公开 静态 类型 = 文本型 注释 = "行号 类名 方法" @嵌入式方法 = "">
   
4. {
   
5.     @  _CT(@sn<current_source_line>) + @sn<nbsp> + _CT(@sn<current_source_class>) + _CT(@sn<current_source_method>)
   
6. }
   
7. 
   
8. 方法 "//调试" <公开 静态 @嵌入式方法 = "">
   
9. 参数 被调试数据 <@匹配类型 = 通用型 @可扩展 = "">
   
10. {
    
11.     // 调试输出 (当前时间 (), 取源行号 (), 取源类名 (), 取源方法名 (),被调试数据)
    
12.     @ _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T (@sn<pm_types>),@<当前时间>(),_CT (@sn<current_source_line>),_CT (@sn<current_source_class>),_CT (@sn<current_source_method>), @<被调试数据>))
    
13.     // 取源行号() = @ _CT (@sn<current_source_line>)
    
14.     // 取源类名() = @ _CT (@sn<current_source_class>)
    
15.     // 取源方法名() = @ _CT (@sn<current_source_method>)
    
16. 
    
17. }
    

复制代码