Visual Basic & Borland Delphi 32-Bit DLL Declaration Examples

This document refers to G&L PiC application note AN000036 and provides Visual Basic & Borland Delphi 32-Bit DLL declaration examples.

32-Bit DLL Declaration Examples for Visual Basic

Declare Function arcinit Lib “net_dll.dll” Alias “arcinit” (ByVal ioaddr As Integer, ByVal membase As Integer, ByVal memoff As Integer, ByVal node As Integer) As Long

Declare Function anybody Lib “net_dll.dll” Alias “anybody” () As Long

Declare Function net900 Lib “net_dll.dll” Alias “net900” (ByVal func As Byte, ByVal datatype As Byte, ByRef dataptr As Any, ByVal index As Long, ByVal quantity As Long, ByVal destnode As Byte, ByVal retrycnt As Byte, ByVal flags As Long) As Long

Declare Function serial_open Lib "ser_dll.dll" Alias “serial_open” (ByVal Port As Byte, ByVal ConfigurationByte As Long, ByVal BaudRate As Long) As Long

Declare Function ser900 Lib "ser_dll.dll" Alias “ser900” (ByVal Function As Byte, ByVal DataType As Byte, ByRef DataPointer As Any, ByVal DataArrayIndex As Long, ByVal DataQuantity As Long, ByVal Port As Byte, ByVal RetryCount As Byte, ByVal Flags As Long) As Long

Declare Function serial_close Lib "ser_dll.dll" Alias “serial_close” (ByVal Port As Byte) As Long

32-Bit DLL Declaration Examples for Borland Delphi

FUNCTION arcinit(ioaddr,membase,memoff,node:SMALL INTEGER):INTEGER; STDCALL; EXTERNAL ‘net_dll.dll’;

FUNCTION anybody:INTEGER; STDCALL; EXTERNAL ‘net_dll.dll’;

FUNCTION net900(func,datatype,dataptr,index,quantity,destnode,retrycnt,flags:SMALL INTEGER):INTEGER; STDCALL; EXTERNAL ‘net_dll.dll’;