lwrite, ошибка 122

[ProgEXEr]

Здравствуйте!

На форуме я не нашёл раздела об API, но подумал, что можно и сюда задать вопрос, не судите, пожалуйста, строго.

Проблема такая:
Я открываю файл WinAPI-функцией lopen, записываю данные (lwrite, длина данных - 36 байт) и закрываю файл (lclose), но вызов lwrite возвращает "-1", Err.LastDLLError выдаёт 122 (Область данных переданная по системному вызову слишком мала).
Файл нормально открывает, в Unlocker'е видно, что файл открыт, дескриптор тот же, закрывает тоже без всяких ошибок.

Не надо мне предлагать использовать встроенные в VB функции открытия/записи в файл.

Заранее спасибо за ответы!

[Antonariy]

А предложить выложить пример можно? Или можно только гадать на кофейной гуще?

[ProgEXEr]

Код: Выделить всё

Dim map As String
f = lopen("файл", GENERIC_WRITE)
MsgBox Err.LastDllError
map = "EQM" & Chr(0) & a1 & a2 & Chr(0) & a3 & a4
MsgBox lwrite(f, map, Len(map))
MsgBox Err.LastDllError
lclose f


[Хакер]

Код ужасен. Ладно.

Какое отношение имеет GENERIC_WRITE к lopen? GENERIC_WRITE — это для CreateFile. Для lopen надо использовать OF_WRITE.
А вообще эти функции устерали, могут быть упразднены, представлены для обратной совместимости и являются обёртками над CreateFile. Так что нужно использовать CreateFile.
А вообще нужно исползовать что-то вроде Debug.Assert/Debug.Print вместо MsgBox для отладки.
А вообще не нужно использовать в качестве буфера строку.

[ProgEXEr]

Большое спасибо за ответ! Просто в последнем проекте я использовал CreateFile, видимо просто в памяти осталась именно эта константа.

[Хакер]

Вот и сейчас её используй.