Here is the PB function being exported:
Here is how I call it in Powerbasic:
I need to also call it from Visual Basic, does anyone know how ?
[This message has been edited by Wayne Diamond (edited September 15, 2001).]
Code:
FUNCTION CRC32HASH (BYVAL ptrBuffer AS DWORD, BYVAL lenBuffer AS LONG, szReturn AS LONG) EXPORT AS LONG
Code:
#COMPILE EXE #INCLUDE "win32api.inc" DECLARE FUNCTION CRC32HASH Lib "crc32.dll" ALIAS "CRC32HASH" (BYVAL ptrBuffer AS DWORD, BYVAL lenBuffer AS LONG, szReturn AS LONG) AS LONG FUNCTION PBMAIN() AS LONG ON ERROR RESUME NEXT Dim MyString As String Dim ResultCrc AS Long MyString = "Test" & CHR$(0) & "Test" Dim Result AS LONG Result = CRC32HASH(STRPTR(MyString), LEN(MyString), ResultCrc) MSGBOX "Result=" & STR$(Result) & ", CRC=" & HEX$(ResultCrc) 'Should return 45862144 END FUNCTION
[This message has been edited by Wayne Diamond (edited September 15, 2001).]
Comment