Error using GetFileSizeEx API call Topic is solved

[rhodian]

Hello,

I am using using Autohotkey, WINAPI & DllCall GetFileSizeEx function provided by @jNizM from here https://github.com/jNizM/AHK_DllCall_WinAPI/blob/master/src/File%20Management%20Functions/GetFileSizeEx.ahk, which I converted to V2.

Code: Select all

GetFileSizeEx(File)
{
    static FileSize, static init := VarSetStrCapacity(&FileSize, 1048576)
    if ((hFile := DllCall("kernel32.dll\CreateFile", "Str", File, "UInt", 0x80000000, "UInt", 1, "Ptr", 0, "UInt", 3, "UInt", 0, "Ptr", 0)) = -1 )
        return DllCall("kernel32.dll\GetLastError")
    if !(DllCall("kernel32.dll\GetFileSizeEx", "UInt", hFile, "Uint",&FileSize))
        return DllCall("kernel32.dll\GetLastError")
    FileSize := NumGet(FileSize, 0, "Int64*")
    DllCall("kernel32.dll\CloseHandle", "UInt", hFile)
    return FileSize
}

I've obviously done/am doing something wrong because when I run the script from VSCode by passing the path of a file to the function, I get an Error: Expected a Number but got a VarRef error!

Can anyone help?

[teadrinker]

FileGetSize()

[vmech]

@rhodian, try:

Code: Select all

if !(DllCall("kernel32.dll\GetFileSizeEx", "UInt",hFile, "PtrP",&FileSize))
    return DllCall("kernel32.dll\GetLastError")
FileSize := NumGet(FileSize, 0, "Int64")

PS. As @teadrinker noted above, many WinAPI things are reflected internally by Autohotkey itself. Such as FileGetSize function and builtin variable A_LastError.

[teadrinker]

@vmech
If the goal is to get a result, it's easier to use a built-in function. If you learn how to use DllCall(), there are enough issues in the initial code so I wouldn't use it as an example.

[vmech]

@teadrinker
There is only one problem - frankly poor code conversion.
I don't want to discuss anything. In the end I just made a better try. Although personally I don’t need it at all.

Spoiler

Code: Select all

GetFileSizeEx(File)
{
    Try
      hFile := DllCall("CreateFile", "Str",File, "UInt",0x80000000, "UInt",1, "Ptr",0, "UInt",3, "UInt",0, "Ptr",0),
      DllCall("GetFileSizeEx", "Ptr",hFile, "PtrP",&FileSize := 0),
      DllCall("CloseHandle", "Ptr",hFile)
    Catch OSError as err
      MsgBox(A_LastError '`n' err.Message)
    return (FileSize ?? 0)
}

[teadrinker]

I don't want to discuss anything

Ok, for those who might want to figure it out:

DllCall("GetFileSizeEx", "Ptr",hFile, "PtrP",&FileSize := 0)

PtrP is not quite correct, Int64P must be here.

[rhodian]

Thanks gentlemen...