Can anyone help me, I am trying to return a string to DBPro using
a Pure Basic DLL.
PBasic DLL.
Procedure.l InitialiseCorePtr()
If OpenLibrary( 3 , "DarkBasic ProfessionalCore.dll" )
coreptr_handle.l = IsFunction( 3 , "?GetGlobPtr@@YAKXZ" )
*GlobPtr = CallCFunctionFast( coreptr_handle );
CloseLibrary( 3 );
EndIf
ProcedureReturn *GlobPtr
EndProcedure
ProcedureCDLL TestStringFunction( Title.l )
MyString.S=PeekS(Title)
MyString=MyString+"OK"
ProcedureReturn MyString
EndProcedure
String table entry.
5,"Test String Function[%SS%TestStringFunction%String Return=Test String Function(String Title)"
DBPro code.
St$ = Test String Function("TEST")
Text 0, 0, St$
Thanks,
ToXic