7,763
社区成员
发帖
与我相关
我的任务
分享希望同时熟悉VB和DELPHI的高手赶快救救我命！时间紧迫，在线等待！
在VB中如此定义和调用的动态连接库，在DELPHI中如何定义和调用？
Private Declare Function GETFONTHEX Lib "fnthex32.dll" (ByVal chnstr$, ByVal fontname$, ByVal chnname$, ByVal orient%, ByVal height%, ByVal width%, _
ByVal bold%, ByVal italic%, ByVal hexbuf$) As Integer
Dim cBuf As String * 2100
Dim I As Integer
nCount = GETFONTHEX("钙奶片", "宋体", "chnstr01", 0, 50, 0, 1, 0, cBuf)
Printer.Print Mid(cBuf, 1, nCount)
Printer.EndDoc
Private Declare Function GETFONTHEX Lib "fnthex32.dll" (ByVal chnstr$, ByVal fontname$, ByVal chnname$, ByVal orient%, ByVal height%, ByVal width%, _
ByVal bold%, ByVal italic%, ByVal hexbuf$) As Integer
Dim cBuf As String * 2100
Dim I As Integer
nCount = GETFONTHEX("钙奶片", "宋体", "chnstr01", 0, 50, 0, 1, 0, cBuf)
Printer.Print Mid(cBuf, 1, nCount)
Printer.EndDoc
...全文
请发表友善的回复…
发表回复
ghtghtmalone 2003-12-10
- 打赏
- 举报
thank you very much!
TechnoFantasy 2003-12-09
- 打赏
- 举报
Function GETFONTHEX (chnstr : PChar; fontname : PChar; chnname : PChar; orient : Integer; height : Integer; width : Integer; bold:integer; italic : integer; hexbuf : PChar):Smallint; stdcall;external "fnthex32.dll" ;
