Code: Select all
ProcedureDLL Read_String_DB(colum)
UseDatabase(1)
res.s=GetDatabaseString(colum)
ProcedureReturn res
EndProcedure
Sveinung
Code: Select all
ProcedureDLL Read_String_DB(colum)
UseDatabase(1)
res.s=GetDatabaseString(colum)
ProcedureReturn res
EndProcedure

Code: Select all
ProcedureDLL Test()
Global result.s
result = "this is a string"
ProcedureReturn @result
EndProcedureCode: Select all
OpenLibrary(0,"myDLL.dll")
procedureresult.s = PeekS(CallFunction(0,"Test"))
Debug procedureresult