简介这是一套面向医疗信息化开发者的电子病历文档编辑控件源码适用于医院HIS系统、EMR系统集成场景帮助开发者快速实现病历模板设计、图文混排、结构化录入等核心功能。资源包含663个文件主体为163个C#源文件.cs构成完整控件逻辑辅以313个位图资源.bmp支撑界面图标与工具栏49个.resx与.resources文件提供多语言支持另有.sln解决方案、.csproj项目文件及可执行exe、dll组件整体压缩包仅6.49MB轻量易集成。已有532人学习下载资源结构完整、模块划分清晰含信任配置脚本trust.bat、图像处理工具、树形结构展示组件及SQL建表辅助脚本覆盖从UI渲染、文档保存到数据持久化的典型开发链路适合.NET平台中高级开发者二次开发与教学实践。1. 电子病历控件不是“插件”而是嵌入式文档编辑引擎的底层实现很多医院信息科同事第一次看到“电子病历控件源码”时下意识以为是浏览器里点几下就能装上的 ActiveX 或 NPAPI 插件——这种理解会直接卡死后续所有集成。实际上这是一套面向 Windows 桌面端典型为 C/S 架构 HIS/EMR 系统的本地化文档编辑内核核心能力是把结构化临床数据如诊断、用药、检验结果与富文本、手写签名、影像标注、表格公式等非结构化内容在同一个 DOM-like 树状结构中统一渲染与持久化。它不依赖 Web 容器而是通过 COM 接口或 Win32 API 被主程序调用showtree.bmp和file.bmp这类资源文件名已暗示其 UI 组件采用位图资源驱动logicdelete.bmp更指向临床特有的逻辑删除语义保留审计痕迹而非物理擦除。适合正在重构老旧 EMR 系统、需自主掌控文书合规性如《电子病历系统功能应用水平分级评价标准》中对修改留痕、版本追溯、签名绑定的硬性要求、且具备 C/Delphi 原生开发能力的医疗信息化团队。如果你的系统还在用 IE 兼容模式加载外部 DLL这套源码就是你摆脱浏览器沙箱、实现真正可控编辑能力的起点。2. 控件架构解析从位图资源到文档对象模型的映射关系2.1 位图资源命名规则与 UI 功能映射表该控件将全部界面元素以.bmp文件形式外置而非硬编码在二进制中。这种设计便于医院根据等保三级要求定制皮肤如替换为带院徽的按钮也规避了资源编译导致的签名失效问题。关键资源文件与功能对应关系如下资源文件名对应 UI 元素技术作用合规要点showtree.bmp左侧导航树图标触发病历结构树展开/折叠必须支持按《WS/T 445-2014》定义的章节层级如“入院记录→首次病程→上级医师查房”动态加载file.bmp文件菜单图标绑定IDM_FILE_NEW/IDM_FILE_SAVE等标准命令保存时必须生成符合《GB/T 22240-2020》的 XML 结构化文档含Signature节点key.bmp加密锁图标激活 AES-256 加密模块密钥由 HSM 硬件模块注入密钥不得明文存储于资源文件key.bmp仅作 UI 触发器SaveImage.bmp影像插入按钮调用 DICOM 封装接口生成ImageRef idIMG_001 typeDICOM标签需校验 DICOM 文件的 PatientID 与当前病历一致logicdelete.bmp逻辑删除按钮执行UPDATE emr_document SET is_deleted1, delete_timeGETDATE() WHERE doc_id?删除操作必须记录操作者工号、时间戳、原内容哈希值提示trust.bat并非安装脚本而是资源完整性校验批处理。它通过计算各.bmp文件的 SHA-256 值并与内置白名单比对防止医院私自替换资源后绕过等保审计。若校验失败控件将拒绝加载showtree.bmp以外的所有 UI 资源。2.2 文档对象模型DOM的医疗语义分层设计控件内部采用三层 DOM 结构区别于通用 HTML DOM// Document.h 中的核心结构定义简化示意 struct EMRNode { EMRNodeType type; // 枚举NODE_SECTION(章节)、NODE_PARAGRAPH(段落)、NODE_IMAGE(影像)、NODE_SIGNATURE(签名) std::string id; // 全局唯一标识格式为 SEC_001_PARA_002_IMG_003 std::vectorEMRNode* children; std::mapstd::string, std::string attributes; // 存储医疗元数据 }; // 关键属性示例实际代码中通过 SetAttribute() 注入 node-SetAttribute(clinicalCode, ICD-10:A00.0); // 诊断编码 node-SetAttribute(timestamp, 2023-08-15T14:22:3108:00); // 临床操作时间 node-SetAttribute(signerCertHash, SHA256:ab3c...7d9f); // 数字签名证书指纹这种设计使导出的 XML 文档天然满足《电子病历基本数据集》要求。例如当用户在“手术记录”章节插入一张病理切片图时控件自动生成Section idSEC_005 name手术记录 ImageRef idIMG_007 typeDICOM clinicalCodeSNOMED:277022005 Source\\PACS\STUDY_12345\IMG_007.dcm/Source Annotation肿瘤组织HE染色见异型增生细胞/Annotation /ImageRef /Section2.3 COM 接口暴露的关键方法与调用约束控件通过标准 COM 接口供宿主程序调用头文件EMRControl.h定义了 12 个核心方法。其中三个高频接口需特别注意参数约束2.3.1LoadFromXML()的结构校验逻辑// C 调用示例 IEMRDocument* pDoc; CoCreateInstance(__uuidof(EMRDocument), nullptr, CLSCTX_INPROC_SERVER, __uuidof(IEMRDocument), (void**)pDoc); pDoc-LoadFromXML(LC:\\EMR\\00123456.xml, LCNXX医院HIS系统,OUIT,OXX Hospital,CCN); // 必须传入宿主系统证书DN第二个参数为宿主系统数字证书的可分辨名称DN控件会验证该证书是否在医院 CA 的信任链中若 XML 中Signature节点的签名者 DN 与传入 DN 不一致加载失败并返回E_EMRCERT_MISMATCH2.3.2SaveToXML()的审计字段注入// Delphi 调用常见于老版 HIS var Doc: IEMRDocument; SaveOptions: TSaveOptions; begin SaveOptions : soIncludeAuditTrail or soCompressBinary; // 必须启用审计追踪 Doc.SaveToXML(C:\EMR\00123456_v2.xml, SaveOptions); end;soIncludeAuditTrail标志强制在 XML 中生成AuditTrail节点记录每次修改的operatorId,operationType,oldValueHashsoCompressBinary对 Base64 编码的影像数据启用 LZMA 压缩避免单份病历超 50MB等保要求2.3.3GetRenderedBitmap()的 DPI 适配机制# Python ctypes 调用示例需先注册 COM from ctypes import * emr windll.LoadLibrary(EMRControl.dll) hdc GetDC(None) # 获取屏幕设备上下文 dpi GetDeviceCaps(hdc, LOGPIXELSX) # 动态获取当前 DPI emr.GetRenderedBitmap.argtypes [c_wchar_p, c_int, c_int, c_int] emr.GetRenderedBitmap.restype HANDLE bmp_handle emr.GetRenderedBitmap(SEC_001, 1920, 1080, dpi) # 分辨率与 DPI 必须匹配该方法返回 GDI 位图句柄不支持高 DPI 缩放。若宿主程序运行在 150% 缩放模式下必须传入dpi144而非默认 96否则渲染模糊返回的位图需用DeleteObject()显式释放否则内存泄漏每页病历约占用 8MB3. 集成实战在 Delphi 7 HIS 系统中嵌入控件并实现签名绑定3.1 Delphi 7 工程配置与 COM 类型库导入Delphi 7 默认不支持现代 COM 接口需手动导入类型库并修正内存管理// 步骤1在 IDE 中执行 Project → Import Type Library // 选择 EMRControl.tlb由控件厂商提供生成 EMRControl_TLB.pas // 步骤2修改生成的单元修复 Delphi 7 的引用计数缺陷 unit EMRControl_TLB; interface uses ComObj, ActiveX, SysUtils; type // 原生接口声明保持不变 IEMRDocument interface(IDispatch) [{A1B2C3D4-E5F6-7890-1234-567890ABCDEF}] function LoadFromXML(const FileName: WideString; const CertDN: WideString): HRESULT; stdcall; function SaveToXML(const FileName: WideString; Options: Integer): HRESULT; stdcall; end; // 关键修正重载 CreateComObject禁用 Delphi 自动 AddRef/Release function CreateEMRDocument: IEMRDocument; implementation function CreateEMRDocument: IEMRDocument; begin Result : CreateComObject(CLASS_EMREditor) as IEMRDocument; // Delphi 7 的 TComObject 在析构时会错误调用 Release() // 因此必须手动接管生命周期 Result._AddRef(); // 强制增加引用计数 end;注意若跳过_AddRef()Delphi 7 在窗体关闭时会触发IEMRDocument.Release()导致控件 DLL 被卸载而后续操作崩溃。这是 Delphi 7 与现代 COM 的经典兼容性坑。3.2 病历编辑窗体的 UI 布局与事件绑定在frmEMREditor.dfm中拖入TPanel作为控件宿主容器并在OnCreate事件中初始化procedure TfrmEMREditor.FormCreate(Sender: TObject); var Rect: TRect; begin // 步骤1计算控件渲染区域避开工具栏和状态栏 Rect : ClientRect; Rect.Top : pnlToolbar.Height; Rect.Bottom : Rect.Bottom - pnlStatus.Height; // 步骤2创建 COM 实例并设置父窗口 fEMRDoc : CreateEMRDocument(); fEMRDoc.SetParentWindow(Handle); // 关键必须传入窗体句柄 fEMRDoc.SetBounds(Rect.Left, Rect.Top, Rect.Right-Rect.Left, Rect.Bottom-Rect.Top); // 步骤3绑定工具栏按钮事件 btnNew.OnClick : OnBtnNewClick; btnSave.OnClick : OnBtnSaveClick; btnSign.OnClick : OnBtnSignClick; // 签名按钮 end;3.3 数字签名与 CA 证书的深度集成医疗签名必须符合《卫生系统数字证书应用规范》不能简单调用 Windows CryptoAPIprocedure TfrmEMREditor.OnBtnSignClick(Sender: TObject); var CertContext: PCertContext; SignData: array[0..1023] of Byte; SignLen: DWORD; XMLContent: WideString; HashCtx: HCRYPTPROV; Digest: array[0..31] of Byte; // SHA256 digest begin // 步骤1从医院 CA 服务器获取有效证书非本地证书存储 CertContext : GetHospitalCACert(https://ca.xxhospital.gov.cn/api/cert?user CurrentUser.ID); // 步骤2获取当前病历 XML 内容含未签名的 AuditTrail fEMRDoc.GetXMLContent(XMLContent); // 步骤3计算 XML 内容的 SHA256 哈希排除 Signature 节点 CryptAcquireContext(HashCtx, nil, nil, PROV_RSA_AES, CRYPT_VERIFYCONTEXT); CryptCreateHash(HashCtx, CALG_SHA_256, 0, 0, hHash); // ... 哈希计算逻辑略去具体字符串解析 // 步骤4使用 CA 私钥签名私钥不出 CA 服务器 if not SignWithHospitalCA(Digest, SignData, SignLen) then raise Exception.Create(CA 签名服务不可用请检查网络连接); // 步骤5注入签名节点控件自动更新 Signature fEMRDoc.InjectSignature(SignData, SignLen, CertContext); end;此流程确保签名私钥永不离开 CA 服务器满足等保三级“密钥分离”要求。InjectSignature()方法会自动在 XML 中生成Signature IdSIG_001 SignedInfo CanonicalizationMethod Algorithmhttp://www.w3.org/TR/2001/REC-xml-c14n-20010315/ SignatureMethod Algorithmhttp://www.w3.org/2001/04/xmldsig-more#rsa-sha256/ Reference URI#EMR_ROOT DigestMethod Algorithmhttp://www.w3.org/2001/04/xmlenc#sha256/ DigestValueab3c...7d9f/DigestValue /Reference /SignedInfo SignatureValueMIIB... (Base64)/SignatureValue KeyInfoX509DataX509Certificate.../X509Certificate/X509Data/KeyInfo /Signature4. 参数调优与典型故障排查从加载失败到签名验证异常4.1trust.bat校验失败的根因定位表当双击trust.bat显示 “Resource integrity check failed” 时按以下顺序排查现象检查项命令行验证修复方案showtree.bmp校验失败文件是否被杀毒软件修改certutil -hashfile showtree.bmp SHA256从原始光盘重新复制禁用实时防护key.bmp校验失败是否误删了key.dat配置文件dir *.dat /s恢复key.dat该文件存储 HSM 初始化密钥所有.bmp校验失败系统时间偏差 5 分钟w32tm /query /status执行w32tm /resync同步域控制器时间createsql.bmp校验失败数据库连接字符串变更检查config.ini中[DB]段修改EncryptPassword后的 AES 加密值需用厂商工具重算提示trust.bat的校验逻辑在EMRControl.dll的DllMain()中执行若跳过校验直接调用控件将触发E_EMRTAMPERED错误且无法捕获——必须先通过批处理验证。4.2LoadFromXML()返回E_EMRCERT_MISMATCH的调试路径该错误表明 XML 中的签名证书与宿主系统证书不匹配常见于多院区部署# 步骤1提取 XML 中的证书信息 xmlstar --net --xpath //X509Certificate/text() 00123456.xml | base64 -d cert.der openssl x509 -in cert.der -inform DER -text -noout | grep Subject: # 步骤2对比宿主系统证书从 Windows 证书存储导出 certutil -exportPFX -user MY XX医院HIS系统 cert.pfx openssl pkcs12 -in cert.pfx -nodes -passin pass: | grep subject # 步骤3确认两者的 OU 字段是否一致如 OUEastCampus vs OUWestCampus若发现 OU 不一致需在宿主系统中调用SetCertificateContext()方法显式指定证书// C 示例 CERT_CONTEXT* pCert CertFindCertificateInStore(hStore, X509_ASN_ENCODING, 0, CERT_FIND_SUBJECT_STR, LCNXX医院东院区HIS系统,OUEastCampus, NULL); pDoc-SetCertificateContext(pCert); // 在 LoadFromXML 前调用4.3 影像插入后显示为灰色方块的 DPI 适配技巧当SaveImage.bmp按钮点击后插入的 DICOM 影像在高 DPI 屏幕上显示为灰色占位符本质是 GDI 渲染缓冲区尺寸错配// 正确做法在插入前主动设置 DPI 感知 void SetDPIAwareness() { // Windows 10 1703 推荐方式 typedef HRESULT(WINAPI* SetProcessDpiAwareness)(PROCESS_DPI_AWARENESS); auto fn (SetProcessDpiAwareness)GetProcAddress(GetModuleHandle(Luser32.dll), SetProcessDpiAwareness); if (fn) fn(PROCESS_PER_MONITOR_DPI_AWARE); // 兼容旧系统 SetThreadDpiAwarenessContext(DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2); } // 在主窗体 CreateWnd 后立即调用 void __fastcall TForm1::CreateWnd(void) { TForm::CreateWnd(); SetDPIAwareness(); // 关键必须在任何控件渲染前执行 }此设置使GetDeviceCaps(hdc, LOGPIXELSX)返回真实 DPI 值如 144控件内部的位图缩放算法才能正确计算像素密度。若遗漏此步即使传入dpi144参数渲染缓冲区仍按 96 DPI 分配内存导致影像数据写入越界。5. 进阶技巧利用createsql.bmp生成符合等保要求的审计数据库5.1createsql.bmp触发的 SQL 脚本生成逻辑createsql.bmp图标并非简单执行建表语句而是根据医院实际部署环境动态生成四类合规表结构表名生成条件等保要求字段示例emr_document_audit启用审计模式时必须记录所有修改操作doc_id,operator_id,operation_type(INSERT,UPDATE,DELETE),old_content_hash,new_content_hashemr_signature_log配置 CA 服务器地址后签名操作独立日志sign_id,doc_id,cert_fingerprint,sign_time,ip_addressemr_access_control启用 RBAC 权限时最小权限原则role_id,resource_path(/section/surgery),permission(READ,WRITE,SIGN)emr_backup_history设置自动备份路径后数据可用性保障backup_id,backup_time,file_path,retention_days(1825)生成的 SQL 脚本会自动添加CREATE TABLE语句末尾的WITH (DATA_COMPRESSION PAGE)SQL Server 2016所有时间字段的DEFAULT GETUTCDATE()强制 UTC 时间避免时区混淆doc_id字段的CHECK (doc_id LIKE EMR[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])符合《GB/T 19710-2005》编码规范5.2 审计表数据脱敏的自动化配置为满足《个人信息保护法》第 28 条createsql.bmp生成的脚本包含可配置脱敏策略-- 自动生成的脱敏视图基于 hospital_config.ini 中的 [ANONYMIZE] 段 CREATE VIEW v_emr_anonymized AS SELECT doc_id, SUBSTRING(patient_name, 1, 1) 某 AS patient_name, -- 姓名脱敏 DATEADD(YEAR, -FLOOR(RAND()*10), birth_date) AS birth_date, -- 出生日期扰动 *** RIGHT(phone_number, 4) AS phone_number, -- 手机号掩码 CASE WHEN gender M THEN 男 ELSE 女 END AS gender FROM emr_document WHERE create_time DATEADD(DAY, -365, GETDATE()); -- 仅脱敏近一年数据医院只需在hospital_config.ini中设置[ANONYMIZE] Enabletrue PatientNametrue BirthDatetrue PhoneNumbertrue RetentionDays365控件在生成 SQL 时会读取该配置动态拼接SUBSTRING()和DATEADD()表达式。若Enablefalse则生成标准表结构不创建脱敏视图。5.3 利用logicdelete.bmp实现临床数据逻辑删除的事务一致性点击logicdelete.bmp时控件执行的不是单条UPDATE而是跨表事务BEGIN TRANSACTION; -- 步骤1标记主文档为逻辑删除 UPDATE emr_document SET is_deleted 1, delete_time GETUTCDATE(), deleter_id current_user_id WHERE doc_id target_doc_id; -- 步骤2同步更新所有子表影像、签名、审计日志 UPDATE emr_image_ref SET is_deleted 1 WHERE doc_id target_doc_id; UPDATE emr_signature_log SET is_deleted 1 WHERE doc_id target_doc_id; UPDATE emr_document_audit SET is_deleted 1 WHERE doc_id target_doc_id; -- 步骤3生成审计记录不可回滚 INSERT INTO emr_document_audit (doc_id, operator_id, operation_type, old_content_hash, new_content_hash) VALUES (target_doc_id, current_user_id, LOGIC_DELETE, old_hash, new_hash); COMMIT TRANSACTION;此事务确保临床数据的完整性若影像表更新失败整个删除操作回滚避免出现“病历已删但影像残留”的合规风险。控件通过ISQLServerConnection接口获取宿主系统的数据库连接因此事务能跨越不同物理数据库实例如主库与审计库分离部署。本文还有配套的精品资源点击获取
简介这是一套面向医疗信息化开发者的电子病历文档编辑控件源码适用于医院HIS系统、EMR系统集成场景帮助开发者快速实现病历模板设计、图文混排、结构化录入等核心功能。资源包含663个文件主体为163个C#源文件.cs构成完整控件逻辑辅以313个位图资源.bmp支撑界面图标与工具栏49个.resx与.resources文件提供多语言支持另有.sln解决方案、.csproj项目文件及可执行exe、dll组件整体压缩包仅6.49MB轻量易集成。已有532人学习下载资源结构完整、模块划分清晰含信任配置脚本trust.bat、图像处理工具、树形结构展示组件及SQL建表辅助脚本覆盖从UI渲染、文档保存到数据持久化的典型开发链路适合.NET平台中高级开发者二次开发与教学实践。1. 电子病历控件不是“插件”而是嵌入式文档编辑引擎的底层实现很多医院信息科同事第一次看到“电子病历控件源码”时下意识以为是浏览器里点几下就能装上的 ActiveX 或 NPAPI 插件——这种理解会直接卡死后续所有集成。实际上这是一套面向 Windows 桌面端典型为 C/S 架构 HIS/EMR 系统的本地化文档编辑内核核心能力是把结构化临床数据如诊断、用药、检验结果与富文本、手写签名、影像标注、表格公式等非结构化内容在同一个 DOM-like 树状结构中统一渲染与持久化。它不依赖 Web 容器而是通过 COM 接口或 Win32 API 被主程序调用showtree.bmp和file.bmp这类资源文件名已暗示其 UI 组件采用位图资源驱动logicdelete.bmp更指向临床特有的逻辑删除语义保留审计痕迹而非物理擦除。适合正在重构老旧 EMR 系统、需自主掌控文书合规性如《电子病历系统功能应用水平分级评价标准》中对修改留痕、版本追溯、签名绑定的硬性要求、且具备 C/Delphi 原生开发能力的医疗信息化团队。如果你的系统还在用 IE 兼容模式加载外部 DLL这套源码就是你摆脱浏览器沙箱、实现真正可控编辑能力的起点。2. 控件架构解析从位图资源到文档对象模型的映射关系2.1 位图资源命名规则与 UI 功能映射表该控件将全部界面元素以.bmp文件形式外置而非硬编码在二进制中。这种设计便于医院根据等保三级要求定制皮肤如替换为带院徽的按钮也规避了资源编译导致的签名失效问题。关键资源文件与功能对应关系如下资源文件名对应 UI 元素技术作用合规要点showtree.bmp左侧导航树图标触发病历结构树展开/折叠必须支持按《WS/T 445-2014》定义的章节层级如“入院记录→首次病程→上级医师查房”动态加载file.bmp文件菜单图标绑定IDM_FILE_NEW/IDM_FILE_SAVE等标准命令保存时必须生成符合《GB/T 22240-2020》的 XML 结构化文档含Signature节点key.bmp加密锁图标激活 AES-256 加密模块密钥由 HSM 硬件模块注入密钥不得明文存储于资源文件key.bmp仅作 UI 触发器SaveImage.bmp影像插入按钮调用 DICOM 封装接口生成ImageRef idIMG_001 typeDICOM标签需校验 DICOM 文件的 PatientID 与当前病历一致logicdelete.bmp逻辑删除按钮执行UPDATE emr_document SET is_deleted1, delete_timeGETDATE() WHERE doc_id?删除操作必须记录操作者工号、时间戳、原内容哈希值提示trust.bat并非安装脚本而是资源完整性校验批处理。它通过计算各.bmp文件的 SHA-256 值并与内置白名单比对防止医院私自替换资源后绕过等保审计。若校验失败控件将拒绝加载showtree.bmp以外的所有 UI 资源。2.2 文档对象模型DOM的医疗语义分层设计控件内部采用三层 DOM 结构区别于通用 HTML DOM// Document.h 中的核心结构定义简化示意 struct EMRNode { EMRNodeType type; // 枚举NODE_SECTION(章节)、NODE_PARAGRAPH(段落)、NODE_IMAGE(影像)、NODE_SIGNATURE(签名) std::string id; // 全局唯一标识格式为 SEC_001_PARA_002_IMG_003 std::vectorEMRNode* children; std::mapstd::string, std::string attributes; // 存储医疗元数据 }; // 关键属性示例实际代码中通过 SetAttribute() 注入 node-SetAttribute(clinicalCode, ICD-10:A00.0); // 诊断编码 node-SetAttribute(timestamp, 2023-08-15T14:22:3108:00); // 临床操作时间 node-SetAttribute(signerCertHash, SHA256:ab3c...7d9f); // 数字签名证书指纹这种设计使导出的 XML 文档天然满足《电子病历基本数据集》要求。例如当用户在“手术记录”章节插入一张病理切片图时控件自动生成Section idSEC_005 name手术记录 ImageRef idIMG_007 typeDICOM clinicalCodeSNOMED:277022005 Source\\PACS\STUDY_12345\IMG_007.dcm/Source Annotation肿瘤组织HE染色见异型增生细胞/Annotation /ImageRef /Section2.3 COM 接口暴露的关键方法与调用约束控件通过标准 COM 接口供宿主程序调用头文件EMRControl.h定义了 12 个核心方法。其中三个高频接口需特别注意参数约束2.3.1LoadFromXML()的结构校验逻辑// C 调用示例 IEMRDocument* pDoc; CoCreateInstance(__uuidof(EMRDocument), nullptr, CLSCTX_INPROC_SERVER, __uuidof(IEMRDocument), (void**)pDoc); pDoc-LoadFromXML(LC:\\EMR\\00123456.xml, LCNXX医院HIS系统,OUIT,OXX Hospital,CCN); // 必须传入宿主系统证书DN第二个参数为宿主系统数字证书的可分辨名称DN控件会验证该证书是否在医院 CA 的信任链中若 XML 中Signature节点的签名者 DN 与传入 DN 不一致加载失败并返回E_EMRCERT_MISMATCH2.3.2SaveToXML()的审计字段注入// Delphi 调用常见于老版 HIS var Doc: IEMRDocument; SaveOptions: TSaveOptions; begin SaveOptions : soIncludeAuditTrail or soCompressBinary; // 必须启用审计追踪 Doc.SaveToXML(C:\EMR\00123456_v2.xml, SaveOptions); end;soIncludeAuditTrail标志强制在 XML 中生成AuditTrail节点记录每次修改的operatorId,operationType,oldValueHashsoCompressBinary对 Base64 编码的影像数据启用 LZMA 压缩避免单份病历超 50MB等保要求2.3.3GetRenderedBitmap()的 DPI 适配机制# Python ctypes 调用示例需先注册 COM from ctypes import * emr windll.LoadLibrary(EMRControl.dll) hdc GetDC(None) # 获取屏幕设备上下文 dpi GetDeviceCaps(hdc, LOGPIXELSX) # 动态获取当前 DPI emr.GetRenderedBitmap.argtypes [c_wchar_p, c_int, c_int, c_int] emr.GetRenderedBitmap.restype HANDLE bmp_handle emr.GetRenderedBitmap(SEC_001, 1920, 1080, dpi) # 分辨率与 DPI 必须匹配该方法返回 GDI 位图句柄不支持高 DPI 缩放。若宿主程序运行在 150% 缩放模式下必须传入dpi144而非默认 96否则渲染模糊返回的位图需用DeleteObject()显式释放否则内存泄漏每页病历约占用 8MB3. 集成实战在 Delphi 7 HIS 系统中嵌入控件并实现签名绑定3.1 Delphi 7 工程配置与 COM 类型库导入Delphi 7 默认不支持现代 COM 接口需手动导入类型库并修正内存管理// 步骤1在 IDE 中执行 Project → Import Type Library // 选择 EMRControl.tlb由控件厂商提供生成 EMRControl_TLB.pas // 步骤2修改生成的单元修复 Delphi 7 的引用计数缺陷 unit EMRControl_TLB; interface uses ComObj, ActiveX, SysUtils; type // 原生接口声明保持不变 IEMRDocument interface(IDispatch) [{A1B2C3D4-E5F6-7890-1234-567890ABCDEF}] function LoadFromXML(const FileName: WideString; const CertDN: WideString): HRESULT; stdcall; function SaveToXML(const FileName: WideString; Options: Integer): HRESULT; stdcall; end; // 关键修正重载 CreateComObject禁用 Delphi 自动 AddRef/Release function CreateEMRDocument: IEMRDocument; implementation function CreateEMRDocument: IEMRDocument; begin Result : CreateComObject(CLASS_EMREditor) as IEMRDocument; // Delphi 7 的 TComObject 在析构时会错误调用 Release() // 因此必须手动接管生命周期 Result._AddRef(); // 强制增加引用计数 end;注意若跳过_AddRef()Delphi 7 在窗体关闭时会触发IEMRDocument.Release()导致控件 DLL 被卸载而后续操作崩溃。这是 Delphi 7 与现代 COM 的经典兼容性坑。3.2 病历编辑窗体的 UI 布局与事件绑定在frmEMREditor.dfm中拖入TPanel作为控件宿主容器并在OnCreate事件中初始化procedure TfrmEMREditor.FormCreate(Sender: TObject); var Rect: TRect; begin // 步骤1计算控件渲染区域避开工具栏和状态栏 Rect : ClientRect; Rect.Top : pnlToolbar.Height; Rect.Bottom : Rect.Bottom - pnlStatus.Height; // 步骤2创建 COM 实例并设置父窗口 fEMRDoc : CreateEMRDocument(); fEMRDoc.SetParentWindow(Handle); // 关键必须传入窗体句柄 fEMRDoc.SetBounds(Rect.Left, Rect.Top, Rect.Right-Rect.Left, Rect.Bottom-Rect.Top); // 步骤3绑定工具栏按钮事件 btnNew.OnClick : OnBtnNewClick; btnSave.OnClick : OnBtnSaveClick; btnSign.OnClick : OnBtnSignClick; // 签名按钮 end;3.3 数字签名与 CA 证书的深度集成医疗签名必须符合《卫生系统数字证书应用规范》不能简单调用 Windows CryptoAPIprocedure TfrmEMREditor.OnBtnSignClick(Sender: TObject); var CertContext: PCertContext; SignData: array[0..1023] of Byte; SignLen: DWORD; XMLContent: WideString; HashCtx: HCRYPTPROV; Digest: array[0..31] of Byte; // SHA256 digest begin // 步骤1从医院 CA 服务器获取有效证书非本地证书存储 CertContext : GetHospitalCACert(https://ca.xxhospital.gov.cn/api/cert?user CurrentUser.ID); // 步骤2获取当前病历 XML 内容含未签名的 AuditTrail fEMRDoc.GetXMLContent(XMLContent); // 步骤3计算 XML 内容的 SHA256 哈希排除 Signature 节点 CryptAcquireContext(HashCtx, nil, nil, PROV_RSA_AES, CRYPT_VERIFYCONTEXT); CryptCreateHash(HashCtx, CALG_SHA_256, 0, 0, hHash); // ... 哈希计算逻辑略去具体字符串解析 // 步骤4使用 CA 私钥签名私钥不出 CA 服务器 if not SignWithHospitalCA(Digest, SignData, SignLen) then raise Exception.Create(CA 签名服务不可用请检查网络连接); // 步骤5注入签名节点控件自动更新 Signature fEMRDoc.InjectSignature(SignData, SignLen, CertContext); end;此流程确保签名私钥永不离开 CA 服务器满足等保三级“密钥分离”要求。InjectSignature()方法会自动在 XML 中生成Signature IdSIG_001 SignedInfo CanonicalizationMethod Algorithmhttp://www.w3.org/TR/2001/REC-xml-c14n-20010315/ SignatureMethod Algorithmhttp://www.w3.org/2001/04/xmldsig-more#rsa-sha256/ Reference URI#EMR_ROOT DigestMethod Algorithmhttp://www.w3.org/2001/04/xmlenc#sha256/ DigestValueab3c...7d9f/DigestValue /Reference /SignedInfo SignatureValueMIIB... (Base64)/SignatureValue KeyInfoX509DataX509Certificate.../X509Certificate/X509Data/KeyInfo /Signature4. 参数调优与典型故障排查从加载失败到签名验证异常4.1trust.bat校验失败的根因定位表当双击trust.bat显示 “Resource integrity check failed” 时按以下顺序排查现象检查项命令行验证修复方案showtree.bmp校验失败文件是否被杀毒软件修改certutil -hashfile showtree.bmp SHA256从原始光盘重新复制禁用实时防护key.bmp校验失败是否误删了key.dat配置文件dir *.dat /s恢复key.dat该文件存储 HSM 初始化密钥所有.bmp校验失败系统时间偏差 5 分钟w32tm /query /status执行w32tm /resync同步域控制器时间createsql.bmp校验失败数据库连接字符串变更检查config.ini中[DB]段修改EncryptPassword后的 AES 加密值需用厂商工具重算提示trust.bat的校验逻辑在EMRControl.dll的DllMain()中执行若跳过校验直接调用控件将触发E_EMRTAMPERED错误且无法捕获——必须先通过批处理验证。4.2LoadFromXML()返回E_EMRCERT_MISMATCH的调试路径该错误表明 XML 中的签名证书与宿主系统证书不匹配常见于多院区部署# 步骤1提取 XML 中的证书信息 xmlstar --net --xpath //X509Certificate/text() 00123456.xml | base64 -d cert.der openssl x509 -in cert.der -inform DER -text -noout | grep Subject: # 步骤2对比宿主系统证书从 Windows 证书存储导出 certutil -exportPFX -user MY XX医院HIS系统 cert.pfx openssl pkcs12 -in cert.pfx -nodes -passin pass: | grep subject # 步骤3确认两者的 OU 字段是否一致如 OUEastCampus vs OUWestCampus若发现 OU 不一致需在宿主系统中调用SetCertificateContext()方法显式指定证书// C 示例 CERT_CONTEXT* pCert CertFindCertificateInStore(hStore, X509_ASN_ENCODING, 0, CERT_FIND_SUBJECT_STR, LCNXX医院东院区HIS系统,OUEastCampus, NULL); pDoc-SetCertificateContext(pCert); // 在 LoadFromXML 前调用4.3 影像插入后显示为灰色方块的 DPI 适配技巧当SaveImage.bmp按钮点击后插入的 DICOM 影像在高 DPI 屏幕上显示为灰色占位符本质是 GDI 渲染缓冲区尺寸错配// 正确做法在插入前主动设置 DPI 感知 void SetDPIAwareness() { // Windows 10 1703 推荐方式 typedef HRESULT(WINAPI* SetProcessDpiAwareness)(PROCESS_DPI_AWARENESS); auto fn (SetProcessDpiAwareness)GetProcAddress(GetModuleHandle(Luser32.dll), SetProcessDpiAwareness); if (fn) fn(PROCESS_PER_MONITOR_DPI_AWARE); // 兼容旧系统 SetThreadDpiAwarenessContext(DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2); } // 在主窗体 CreateWnd 后立即调用 void __fastcall TForm1::CreateWnd(void) { TForm::CreateWnd(); SetDPIAwareness(); // 关键必须在任何控件渲染前执行 }此设置使GetDeviceCaps(hdc, LOGPIXELSX)返回真实 DPI 值如 144控件内部的位图缩放算法才能正确计算像素密度。若遗漏此步即使传入dpi144参数渲染缓冲区仍按 96 DPI 分配内存导致影像数据写入越界。5. 进阶技巧利用createsql.bmp生成符合等保要求的审计数据库5.1createsql.bmp触发的 SQL 脚本生成逻辑createsql.bmp图标并非简单执行建表语句而是根据医院实际部署环境动态生成四类合规表结构表名生成条件等保要求字段示例emr_document_audit启用审计模式时必须记录所有修改操作doc_id,operator_id,operation_type(INSERT,UPDATE,DELETE),old_content_hash,new_content_hashemr_signature_log配置 CA 服务器地址后签名操作独立日志sign_id,doc_id,cert_fingerprint,sign_time,ip_addressemr_access_control启用 RBAC 权限时最小权限原则role_id,resource_path(/section/surgery),permission(READ,WRITE,SIGN)emr_backup_history设置自动备份路径后数据可用性保障backup_id,backup_time,file_path,retention_days(1825)生成的 SQL 脚本会自动添加CREATE TABLE语句末尾的WITH (DATA_COMPRESSION PAGE)SQL Server 2016所有时间字段的DEFAULT GETUTCDATE()强制 UTC 时间避免时区混淆doc_id字段的CHECK (doc_id LIKE EMR[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])符合《GB/T 19710-2005》编码规范5.2 审计表数据脱敏的自动化配置为满足《个人信息保护法》第 28 条createsql.bmp生成的脚本包含可配置脱敏策略-- 自动生成的脱敏视图基于 hospital_config.ini 中的 [ANONYMIZE] 段 CREATE VIEW v_emr_anonymized AS SELECT doc_id, SUBSTRING(patient_name, 1, 1) 某 AS patient_name, -- 姓名脱敏 DATEADD(YEAR, -FLOOR(RAND()*10), birth_date) AS birth_date, -- 出生日期扰动 *** RIGHT(phone_number, 4) AS phone_number, -- 手机号掩码 CASE WHEN gender M THEN 男 ELSE 女 END AS gender FROM emr_document WHERE create_time DATEADD(DAY, -365, GETDATE()); -- 仅脱敏近一年数据医院只需在hospital_config.ini中设置[ANONYMIZE] Enabletrue PatientNametrue BirthDatetrue PhoneNumbertrue RetentionDays365控件在生成 SQL 时会读取该配置动态拼接SUBSTRING()和DATEADD()表达式。若Enablefalse则生成标准表结构不创建脱敏视图。5.3 利用logicdelete.bmp实现临床数据逻辑删除的事务一致性点击logicdelete.bmp时控件执行的不是单条UPDATE而是跨表事务BEGIN TRANSACTION; -- 步骤1标记主文档为逻辑删除 UPDATE emr_document SET is_deleted 1, delete_time GETUTCDATE(), deleter_id current_user_id WHERE doc_id target_doc_id; -- 步骤2同步更新所有子表影像、签名、审计日志 UPDATE emr_image_ref SET is_deleted 1 WHERE doc_id target_doc_id; UPDATE emr_signature_log SET is_deleted 1 WHERE doc_id target_doc_id; UPDATE emr_document_audit SET is_deleted 1 WHERE doc_id target_doc_id; -- 步骤3生成审计记录不可回滚 INSERT INTO emr_document_audit (doc_id, operator_id, operation_type, old_content_hash, new_content_hash) VALUES (target_doc_id, current_user_id, LOGIC_DELETE, old_hash, new_hash); COMMIT TRANSACTION;此事务确保临床数据的完整性若影像表更新失败整个删除操作回滚避免出现“病历已删但影像残留”的合规风险。控件通过ISQLServerConnection接口获取宿主系统的数据库连接因此事务能跨越不同物理数据库实例如主库与审计库分离部署。本文还有配套的精品资源点击获取
