希望同时熟悉VB和DELPHI的高手赶快救救我命!时间紧迫,在线等待!

ghtghtmalone 2003-12-09 02:39:46
在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
...全文
27 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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" ;
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告