可以简单增加几个内部函数方便VFP调用.

DECLARE integer HPDF_Page_GetRGBFill In libhpdf.dll integer
DECLARE HPDF_Page_GetRGBFill_VFP In libhpdf.dll integer npage,single @R,single @G,single @B
DECLARE HPDF_Page_GetRGBStroke_VFP In libhpdf.dll integer npage,single @R,single @G,single @B
DECLARE HPDF_Page_GetCMYKFill_VFP In libhpdf.dll integer npage,single @C,single @M,single @Y,single @K
DECLARE HPDF_Page_GetCMYKStroke_VFP In libhpdf.dll integer npage,single @C,single @M,single @Y,single @K
DECLARE HPDF_Page_GetTextMatrix_VFP In libhpdf.dll integer npage,single @A,single @B,single @C,single @D,single @X,single @Y   

前面代码略....
以这个函数为例:
HPDF_Page_SetRGBFill(npage, 1.00, 0.5334, 0.217)  
STORE 0.0000 TO r,g,b  && 0000精度
HPDF_Page_GetRGBFill_VFP(npage,@r,@g,@b)
?r,g,b

[此贴子已经被作者于2023-10-24 00:08编辑过]

这还是个输出参数啊？哈哈哈

这dll还可以自己添加函数啊

[此贴子已经被作者于2023-10-24 02:38编辑过]

谢谢！

vfp不支持结构， foxfans提供的libhpdf专门针对vfp重新封装了一些函数供vfp调用

根据结体长度，返回指针也可以，VFP中麻烦一点， 要sys(2600,....,结构体长度）, 还要分别取值, 再ctobin(....,...)，不如根据源址直接返回原值来的方便。

[此贴子已经被作者于2023-10-24 11:16编辑过]

@foxfans
这么说 HPDF_Page_GetRGBFill != HPDF_Page_GetRGBFill_VFP2 了，我还以为是 2 楼函数说明中 color space != HPDF_CS_DEVICE_RGB 的原因

对不相等。

我觉得这样好理解些。。。。。

[此贴子已经被作者于2023-10-25 12:30编辑过]

异曲同工，大同小异。