PureBasic Forums - English

Code: Select all

Macro test() ; just to ensure I use the exact same call
  GetFullPathName_( *file, 1000, *full, #NUL )
EndMacro

*file = @"test.txt"
*full= AllocateMemory(1000)
result=0

; This works:
test() ; test w/o using the result
Debug test() ; show the result.

Debug "Now trying to assign it to a variable"
result = test() ; this fails with either debugger crashing or "overflow of dynamic memory"

Code: Select all

;-TOP by mk-soft

Procedure.s GetFullPathName(FileName.s)
  Protected r1.s, len
  len = GetFullPathName_(FileName, 0, 0, #Null )
  If len
    r1 = Space(len)
    len = GetFullPathName_(FileName, len, @r1, #Null )
  EndIf
  ProcedureReturn r1
EndProcedure

file.s = OpenFileRequester("Open", "", "", 0)
SetCurrentDirectory(GetPathPart(file))

file = GetFilePart(file)
Debug "Filename: " + file
fullpath.s = GetFullPathName(file)
Debug "Fullpath: " + fullpath

Code: Select all

Debug "Now trying to assign it to a variable"
result = test() ; this fails with either debugger crashing or "overflow of dynamic memory"
Debug "DEBUG: " + PeekS(*full, result) ; my addition 

Code: Select all

Macro IMHO_Better(FileName) 
  GetCurrentDirectory() + FileName 
EndMacro