I use the following function and there is no error now.
Code: Select all
Procedure BSTR(st$)
wst = WCHAR(st$)
bstr = SysAllocString_(wst)
FreeMemory(wst)
ProcedureReturn bstr
EndProcedure Code: Select all
Procedure BSTR(st$)
wst = WCHAR(st$)
bstr = SysAllocString_(wst)
FreeMemory(wst)
ProcedureReturn bstr
EndProcedure