Delphi 与 Dll(200分)

  • 主题发起人 主题发起人 nzgdd
  • 开始时间 开始时间
N

nzgdd

Unregistered / Unconfirmed
GUEST, unregistred user!
有那位高人用Delphi调用过lingo做的Dll,lingo的帮助中给了vb的例子如下:
Private Declare Sub LGVBSCRIPT _

Lib "lingodll.dll" _

(ByVal cScript As String, _

ByVal cLogFile As String, _

nNumberOfTransferAreas As Long, _

dTransferAreas As Double, _

nTransferPtrs As Long, _

nErrorCode As Long)
请帮忙将这一段翻译成Delphi的语句,谢谢!
 
procedure LGVBSCRIPT(var cScript:String; var cLogFile:String;
var nNumberOfTransferAreas:Longint; var dTransFerAreas:Double;
var nTransferPtrs:Longint; var nErrorCode:Longint);far;
external'lingodll.dll';

其中 LGVBSCRIPT是dll里面给出的过程名。
 
procedure LGVBSCRIPT(cScript:String; cLogFile:String;
var nNumberOfTransferAreas:Longint; var dTransFerAreas:Double;
var nTransferPtrs:Longint; var nErrorCode:Longint);far;
external'lingodll.dll';

前面两个参数不需要Var
 
感谢二位
 
后退
顶部