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