OpenEuphoria

dll (probably newbie) issue.

• Posted by Travis_Beaty Jan 07, 2016
• 1584 views

Hello all. I've been away from Euphoria for a very long time, and I'm giving it another go. Unfortunately, I've forgotten quite a bit, and Euphoria has also (it seems) changed quite a bit.

Here is my first hang up. I'm trying to load a dll, and failing.

-- qeuti_dll.e 
 
include std/dll.e 
 
atom dll_handle 
 
global function define_qeuti_proc(object routine_name, sequence arg_types) 
	return define_c_proc(dll_handle, routine_name, arg_types) 
end function 
 
procedure openQeutiDLL() 
	-- TODO: More extensive search, use of platform to handle Linux, etc. 
	dll_handle = dll:open_dll({"qeuti.dll", "./qeuti.dll"}) 
	if dll_handle = 0 then 
		puts(1, "Qeuti: Fatal:  Could not open qeuti.dll\n") 
		abort(1) 
	end if 
end procedure 
 
procedure initialize() 
	openQeutiDLL() 
end procedure 
 
initialize() 

dll_handle is reporting zero, even though I've ensured that the qeuti.dll is in the same directory as the include file, and that I'm running my test file in this directory as well. Also, I've gone out of my way to make sure all dlls qeuti.dll is dependent on is also in the directory. The only hang-up I can think of is that this is a 32-bit dll running in a 64-bit system, but unfortunately the Qt Creator doesn't offer a 64-bit Mingw compiler. Ideas?

PS C:\Users\Travis\Workshop\qeuti\eu> eui --version 
Euphoria Interpreter v4.1.0 development 
   64-bit Windows, Using System Memory 
   Revision Date: 2015-02-02 14:18:53, Id: 6300:57179171dbed 
 
Windows 10 64-bit