Hi Paul,
i have tested you code with 1.4.13 for Windows and PB 5.31 (x86) and it works fine
Please check the "PB 5.31" version, the Tailbite Massage "1.4.13" and have renamed the testfile to TestMe.pb?
Please try to start Purebasic and Tailbite in Administrator Mode.
I have made a little testlib to show how to use the libfiles
Testlib.pb
compiled:
http://www.flasharts.de/mpz/Tailbite/test_libCode:
ProcedureDLL integer_test(angle) ; integer DLL
answer = angle * 10
ProcedureReturn answer
EndProcedure
ProcedureDLL.f floatXfloat_test(angle.f) ; float Dll
answer.f = Float_LimitTo360(angle) * float_test(angle)
ProcedureReturn answer
EndProcedure
ProcedureDLL.d double_test(angle.d) ; double Dll
answer.d = angle * 100
ProcedureReturn answer
EndProcedure
ProcedureDLL.q Quad_test(angle.q) ; quad Dll
answer.q = angle * 1000
ProcedureReturn answer
EndProcedure
Procedure ParameterProc_all(one, two) ; Procedur to use with two paramters
answer = one + two
ProcedureReturn answer
EndProcedure
ProcedureDLL ParameterProc(one) ; DLL procedure with one Parameter
ProcedureReturn ParameterProc_all(one, two)
EndProcedure
ProcedureDLL ParameterProc2(one, two) ; DLL procedure with two Parameter
ProcedureReturn ParameterProc_all(one, two)
EndProcedure
ProcedureDLL TestMe() ; Requester DLL
MessageRequester("OK","Done!")
EndProcedure
NewCommands.pb
Code:
Debug Chr(10)+"Float_LimitTo360()"
For n = 0 To 9
Debug Float_LimitTo360(n * 60)
Next
Debug Chr(10)+"float_test()"
For n = 0 To 9
Debug float_test(n) ;
Next
Debug Chr(10)+"integer_test()"
For n = 0 To 9
Debug integer_test(n) ;
Next
Debug Chr(10)+"floatXfloat_test()"
For n = 0 To 9
Debug floatXfloat_test(n) ;
Next
Debug Chr(10)+"double_test()"
For n = 0 To 9
Debug double_test(n) ;
Next
Debug Chr(10)+"Quad_test()"
For n = 0 To 9
Debug Quad_test(n) ;
Next
Debug Chr(10)+"ParameterProc(one, two)"
Debug ParameterProc(1)
Debug ParameterProc(1,2)
Debug Chr(10)+"Test_Me()"
TestMe()
Debug Chr(10)+"Done"
Greetings Michael