请各位朋友帮忙解决一个dll 调用问题，立即给分！

Question

下面是一段vb中调用dll的两个函数：
Declare Function ic_encrypt Lib "mwic_32.dll" (ByVal key As String, ByVal ptrsource As String, ByVal le As Integer, ByRef ptrdest As Byte) As Integer
Declare Function ic_decrypt Lib "mwic_32.dll" (ByVal key As String, ByRef ptrdest As Byte, ByVal le As Integer, ByVal ptrsource As String) As Integer请问如何写成delphi的代码？

Answer 1

在单元的implement之前定义这两个函数：Function ic_encrypt(key,ptrsource:String;le:Integer;var ptrdest:Byte):Integer;external 'mwic_32.dll';Function ic_decrypt(key:String;var ptrdest:Byte;le:Integer;ptrsource:String):Integer;external 'mwic_32.dll';然后在implement部分就可以调用这两个函数。
也可以使用动态调用方法。要用API的Loadlibrary、GetProcAddress。