Trouble with struct and qword (bass.dll)

I have got this library mostly to work, but I got some hastle with some things I never can get it to work:

How do I use a unsinged 64 value, wich seen BASS_ChannelSeconds2Bytes function use? It work fully when I only use int, but it dosent work with LONG.

also:

' work
Global BASS_ChannelSeconds2Bytes:Int(handler:Int, time:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelSeconds2Bytes")

' dosent work
Global BASS_ChannelSeconds2Bytes:Long(handler:Int, time:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelSeconds2Bytes")

Another Thing:
I have also a totally mess how to return with struct type things. Even I looked on all threads, Im are lost here.


The def struct is coded as

typedef struct {
 DWORD ctype; // channel type
 const char *name;	// format description
 const char *exts;	// file extension filter (*.ext1;*.ext2;etc...)
} BASS_PLUGINFORM;

typedef struct {
 DWORD version; // version (same form as BASS_GetVersion)
 DWORD formatc; // number of formats
 const BASS_PLUGINFORM *formats; // the array of formats
} BASS_PLUGININFO;

Here is the problem code:

Strict
Import Pub.Win32
TAudio.Load()

Extern
Type TBASS_PLUGINFORM
	Field ctype:Int
	Field Name$
	Field Exts$
	
EndType

Type TBASS_PLUGININFO
	Field version:Int
	Field formatc:Int
	Field formats:TBASS_PLUGINFORM[]
EndType	
EndExtern

Private
	Global RESULT$
	
	Global BASS_MONO=2
	Global BASS_PRESCAN=$20000
	Global BASS_RAMP=$200
	Global BASS_CONFIG_CURVE_VOL=6
	Global BASS_CONFIG_WMA_ASX=$10102
	Global BASS_CONFIG_WMA_BASSFILE=$10103
	
	Global BASS_DLL
	Global BASS_GetConfig:Int(option:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_GetConfig")
	Global BASS_SetConfig:Int(option:Int,value:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_SetConfig")
	Global BASS_ChannelStop:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelStop")
	Global BASS_ChannelPlay:Int(handle:Int,restart:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelPlay")
	Global BASS_Init:Int(device:Int, freq:Int, flags:Int, win:Int, clsid:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_Init")
	Global BASS_ErrorGetCode:Int() "Win32" = GetProcAddress(BASS_DLL,"BASS_ErrorGetCode")
	Global BASS_Free:Int() "Win32" = GetProcAddress(BASS_DLL,"BASS_Free")
	Global BASS_PluginGetInfo:Byte Ptr(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_PluginGetInfo")
	Global BASS_PluginLoad:Int(url:Byte Ptr,flags:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_PluginLoad")
	Global BASS_MusicFree:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_MusicFree")
	Global BASS_MusicLoad:Int(mem:Byte,url:Byte Ptr, offset:Int, length:Int, flags:Int, freq:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_MusicLoad")
	Global BASS_StreamFree:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_StreamFree")
	Global BASS_StreamCreateFile:Int(mem:Byte,url:Byte Ptr, offset:Int, length:Int, flags:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_StreamCreateFile")
	Global BASS_GetDevice$z(device:Byte) "Win32" = GetProcAddress(BASS_DLL,"BASS_GetDeviceDescription")
	Global BASS_ChannelGetLength:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelGetLength")
	Global BASS_ChannelBytes2Seconds:Float(handler:Int, time:Long) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelBytes2Seconds")
	Global BASS_ChannelSeconds2Bytes:Int(handler:Int, time:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelSeconds2Bytes")
	Global BASS_ChannelGetPosition:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelGetPosition")
	Global BASS_ChannelSetPosition:Int(handler:Int, time:Long) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelSetPosition")
	Global BASS_ChannelPause:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelPause")
	Global BASS_ChannelIsActive:Int(handler:Int) "Win32" = GetProcAddress(BASS_DLL,"BASS_ChannelIsActive")

	Global BASSWMA_DLL
	Global BASS_WMA_StreamCreateFile:Int(mem:Byte,url:Byte Ptr, offset:Int, length:Int, flags:Int) "Win32" = GetProcAddress(BASSWMA_DLL,"BASS_WMA_StreamCreateFile")

	Global BASSMIDI_DLL
	Global BASS_MIDI_StreamCreateFile:Int(mem:Byte,url:Byte Ptr, offset:Int, length:Int, flags:Int) "Win32" = GetProcAddress(BASSWMA_DLL,"BASS_MIDI_StreamCreateFile")


Public

TAudio.Setup()
TAudio.Init(1, 44100)

Local Audio:TAudio=New TAudio 

Type TAudio
	Field HANDLER
	Field Format$=""
	Field isPlay=0

	Function getSoundCard$(soundcard)
		RESULT$=bass_getDevice(soundcard)
		Return RESULT$
	EndFunction

	Function Load()
		If Instr(CurrentDir$(),"source",12)
			Path$=CurrentDir$()+"/../win32/data/"
		Else
			Path$=CurrentDir$()+"/data/"
		EndIf
			
		BASS_DLL=LoadLibraryA(Path$+"bass.dll")
		BASSWMA_DLL=LoadLibraryA(Path$+"basswma.dll")
			
	EndFunction
		
	Function Init(device, freq)
		bass_Init(device, freq, 0, 0, 0)
	EndFunction

	Function Setup()
		BASS_SetConfig(BASS_CONFIG_WMA_ASX,1)
		BASS_SetConfig(BASS_CONFIG_WMA_BASSFILE,1)
		BASS_SetConfig(BASS_CONFIG_CURVE_VOL,1)
		
		Local P$=Path$+"bassmidi.dll"
		Local TEST=BASS_PluginLoad(P$,0);
		
		
		Local Info:Byte Ptr=BASS_PluginGetInfo(TEST) '??????? Cant get the object returned in any way
		'Print "VERSION: "+INFO.Version+" COUNT:"+INFO.formatc

		
		MusicExt$=MusicExt$+".mid"

	EndFunction

	Method GetLength:Int()
		' this one DOES work fine, as ling Im dosnet use 64bit qword (INT). 
		' I wich to have the origianl 64bit, not 32 bit.
		Local Length=BASS_ChannelGetLength(Handler);
		Local time:Float=BASS_ChannelBytes2Seconds(Handler,Length);
		Return (Time+1)
	EndMethod
EndType

I removed some code wich dosent have a problem to bring the tread down. Rest of the functions work fine, and got audios played (including plugins), seeked and so on. I do allways have problems with QWORD and other speciel structs.

When I got this to work I would make a example how it can been done, since some others may have same troubles (maybe in code archives).