Следовал примеру MSDN GetOpenFileName используя FFI LuaJIT. Я пытался заставить это работать в течение двух дней, не только диалоговое окно не открывается, но и все вылетает.
При отладке с помощью OllyDdb выдается уродливое нарушение прав доступа где-то в comdlg32.dll.
Вот доказательство концепции только с основным кодом. Если я укажу, что размер структуры равен нулю, она завершится без проблем, а GetLastError() выдаст 87 (ERROR_INVALID_PARAMETER)
Поэтому я предполагаю, что проблема связана со структурой или FFI.
Если кто-то может пролить свет сюда... спасибо.
ffi = require"ffi"
bit = require"bit"
collectgarbage("stop")
ffi.cdef[[
static const int OFN_FILEMUSTEXIST = 0x1000;
static const int OFN_NOCHANGEDIR = 8;
static const int OFN_PATHMUSTEXIST = 0x800;
typedef bool BOOL;
typedef char CHAR;
typedef unsigned short WORD;
typedef unsigned long DWORD;
typedef void *PVOID;
typedef void *LPVOID;
typedef void *LPOFNHOOKPROC;
typedef unsigned long HANDLE;
typedef HANDLE HWND;
typedef HANDLE HINSTANCE;
typedef const char *LPCSTR;
typedef const char *LPCTSTR;
typedef char *LPSTR;
typedef char *LPTSTR;
typedef unsigned long LPARAM;
typedef struct {
DWORD lStructSize;
HWND hwndOwner;
HINSTANCE hInstance;
LPCTSTR lpstrFilter;
LPTSTR lpstrCustomFilter;
DWORD nMaxCustFilter;
DWORD nFilterIndex;
LPTSTR lpstrFile;
DWORD nMaxFile;
LPTSTR lpstrFileTitle;
DWORD nMaxFileTitle;
LPCTSTR lpstrInitialDir;
LPCTSTR lpstrTitle;
DWORD flags;
WORD nFileOffset;
WORD nFileExtension;
LPCTSTR lpstrDefExt;
LPARAM lCustData;
LPOFNHOOKPROC lpfnHook;
LPCTSTR lpTemplateName;
LPVOID pvReserved;
DWORD dwReserved;
DWORD flagsEx;
}OPENFILENAME;
BOOL GetSaveFileNameA( OPENFILENAME lpofn );
BOOL GetOpenFileNameA( OPENFILENAME lpofn );
]]
com=ffi.load("comdlg32")
ffi.cdef[[
DWORD GetLastError(void);
]]
krnl=ffi.load("kernel32")
function OpenDialog()
Ofn=ffi.new("OPENFILENAME")
ffi.fill(Ofn,ffi.sizeof(Ofn)) --zero fill the structure
local szFile = ffi.new("char[260]","\0")
local hwnd = ffi.new("HWND",0)
Ofn.lStructSize = ffi.sizeof(Ofn)
Ofn.hwndOwner = hwnd
Ofn.lpstrFile = szFile
Ofn.nMaxFile = ffi.sizeof(szFile)
Ofn.lpstrFilter = "All\0*.*\0Text\0*.TXT\0"
Ofn.nFilterIndex = 1
Ofn.lpstrFileTitle = nil
Ofn.nMaxFileTitle = 0
Ofn.lpstrInitialDir = nil
Ofn.flags = bit.bor(com.OFN_PATHMUSTEXIST, com.OFN_FILEMUSTEXIST, com.OFN_NOCHANGEDIR)
print("displaying...")
if com.GetOpenFileNameA(Ofn) then --luajit converts bool automatically
print("file->",ffi.string(Ofn.lpstrFile, Ofn.nMaxFile))
end
print("lasterror->",krnl.GetLastError())
end
OpenDialog()