DLL function with examples form delphi and VB
BlitzMax Forums/BlitzMax Beginners Area/DLL function with examples form delphi and VB
| ||
Hi! Suddenly I am in the need of BlitzMax.. I have BM for a while now and for a project I need to call some DLL. The only examples I've got are these Example in Delphi: Function BerekenTotaalXML (InFile : Pointer; OutFile : Pointer): WordBool; Stdcall; Example in VB: Private Declare Function BerekenTotaalXML Lib "WUREKINT.DLL" (ByVal inFile As String, ByVal outFile As String) As WordBool InFile = XML input OutFile = XML output I've been trying for 2 days now with some examples in the forum but I can't get anything out of this DLL... Any ideas? My attempt so far... Global infile:String = "infile.xml" Global outfile:String="outfile.xml" Const DllName:String = "WURekInt.dll" Local DllHandle = LoadLibraryA(DllName) If DLLhandle = 0 Then Notify "Unable to initialize the dll" End EndIf Global BerekenTotaalXML(infile:String, outfile:String) "win32" If DllHandle ' Assign DLL function "DoStuff" to "InitGame" function... BerekenTotaalXML= GetProcAddress (DllHandle, "BerekenTotaalXML") If BerekenTotaalXML= Null Then Notify "Doh!"; End ' More... EndIf Print BerekenTotaalXML(infile, outfile) |
| ||
BerekenTotaalXML(infile:String, outfile:String) "win32"= GetProcAddress (DllHandle, "BerekenTotaalXML") should be okay.... |
| ||
Well, some progress...' Declare functions (will point to DLL functions)... Global outstring:String Const DllName:String = "WURekInt.dll" Local DllHandle = LoadLibraryA(DllName) If DLLhandle = 0 Then Notify "Unable to initialize the dll" End EndIf 'Global BerekenTotaal$z(instring:String, outstring:String)"Win32" = GetProcAddress(DllHandle,"BerekenTotaalXML") Global BerekenTotaal:Long(instring:String, outstring:String)"Win32" = GetProcAddress(DllHandle,"BerekenTotaalXML") Print BerekenTotaal("infile.xml", "test.xml") But in Delphi they say in the example the functions returns a WordBool type. what is the equivalent in BlitzMax? |
| ||
i'm guessing that a wordbool is a boolean value stored in a word? try int?? which is a little odd doesnt Totaal mean total? whats Bereken? |
| ||
I think it's calculate in Dutch or something... (so it's CalculateTotal()) |
| ||
Yep, it's dutch. But that shouldn't matter... |