Обертки к системным функциям (WriteFile)

[Wing]

Здравствуйте!
Существует необходимость в использовании системных функций, таких как CreateFile и WriteFile.
Первую по образу и подобию обертки, уже имеющейся в аксапте, смог для себя приспособить (тот вариант, что был - слишком уж урезан).
Но разобраться окончательно - не смог.
Подскажите, как обернуть функцию WriteFile из библиотеки Kernel32.dll?

[mazzy]

Посмотрите на класс WinAPI
В частности на метод WinAPI::createFile

Хотя я бы посоветовал воспользоваться классами BinaryIO, AsciiIO, CommaIO и т.п.
Их описание можно найти в ветке AOT \ System Documentation \ Classes

[Wing]

Именно из WinAPI::createFile я и скопировал обертку к CreateFile, внеся все необходимые коррективы.
Но то же самое сделать для функции WriteFile не получается. Видимо я не до конца понял механизм изготовления таких оберток.
Пробовал сделать так:

PHP код:

    DLL         _winApiDLL      = new DLL('KERNEL32');
    DLLFunction _writeFile      = new DLLFunction(_winApiDLL, 'WriteFile');

    _writeFile.returns( BOOL );
    _writeFile.arg(int);
    _writeFile.arg(ExtTypes::Pointer);
    _writeFile.arg(int);
    _writeFile.arg(int);
    _writeFile.arg(ExtTypes::Pointer); 


но ни BOOL, ни boolean внутри _writeFile.returns не принимается.
Сама функция:

PHP код:

BOOL WriteFile(
    HANDLE hFile,    // handle to file to write to
    LPCVOID lpBuffer,    // pointer to data to write to file
    DWORD nNumberOfBytesToWrite,    // number of bytes to write
    LPDWORD lpNumberOfBytesWritten,    // pointer to number of bytes written
    LPOVERLAPPED lpOverlapped     // pointer to structure needed for overlapped I/O
   ); 


Все предложенные в прошлом сообщении варианты не позволяют писать напрямую в порт.

[kalex]

Может вместо BOOL написать INT?

[Wing]

Я пробовал разные варианты и пришел к единственному выходу - это сделает только тот, кто умеет, а не тот, кто догадывается...
Надеюсь, что такой человек здесь появится...

[dn]

Могу лишь заметить, что в Axapta есть обертка для функции:

PHP код:

BOOL CreateDirectory(
  LPCTSTR lpPathName,
  LPSECURITY_ATTRIBUTES lpSecurityAttributes
); 


И в ней написано для BOOL

PHP код:

_createDirectory.returns(ExtTypes :: DWord); 


[Lexey]

DLL _winApiDLL = new DLL('KERNEL32');
DLLFunction _writeFile = new DLLFunction(_winApiDLL, 'WriteFile');

_writeFile.returns(ExtTypes:Word);
_writeFile.arg(ExtTypes:Word);
_writeFile.arg(ExtTypes::Pointer);
_writeFile.arg(ExtTypes:Word);
_writeFile.arg(ExtTypes::Pointer);
_writeFile.arg(ExtTypes::Pointer);

[Wing]

Не помогло...
Придется писать свою DLL.

[mazzy]

Просто из любопытства.
а BinaryIO вас чем не устраивает?

[Wing]

mazzy, Если Вы способны написать пример записи через BinaryIO в LPT? - буду очень благодарен.

[Lexey]

Вместо смайлик-word естественно должно быть dword. Скрипт накосячил.

[mazzy]

Я так понимаю, что пример из хелпа вы уже делали

PHP код:

static void Job2(Args _args)
{
    BinaryIo myfile = new BinaryIo("lpt1:","W");
    if ( myfile )
    {
        myfile.write('test');
    }
} 


у меня на ноутбуке lpt отсутствует.
придет человек, проверим на его нормальном компьютере.
А в чем проблемы?

[Wing]

mazzy, Попробовал предложенное - ошибок нет, но и результата никакого нет...

[mazzy]

у нас тоже протестировать не получилось поскольку lpt-принтер отсутствует.
код что-то посылает на lpt и ждет ответа с линии. Если ответа нет, то lpt считается занятым (busy).
Аксапта в этот момент ждет и не отвечает.

Ведет себя также как команда DOS
copy file lpt1:



У кого есть lpt принтер? Желательно матричный. Проверьте, пожалуйста.
Не забудьте поставить перевод строки.

PHP код:

static void Job2(Args _args)
{
    BinaryIo myfile = new BinaryIo("lpt1:","W");
    if ( myfile )
    {
        myfile.write('test\n\r');
    }
} 


[mazzy]

Цитата:

Изначально опубликовано Wing
mazzy, Попробовал предложенное - ошибок нет, но и результата никакого нет...

Да, и еще одно. Если вы посылаете на лазерный принтер, то надо либо начинать задание, либо посылать перевод страницы. Уже не помню, но по-моему, символ Chr(12). Посмотрите в документации на принтер как выводить текстовый файл.

Или у вас какое то свое устройство на lpt повешено?

[Wing]

Устройство не освсем обычное, но и не особо от принтеров отличающееся: термопринтер для печати этикеток.

Вот это пробовал:

PHP код:

static void TestLpt(Args _args)
{
    BinaryIo myfile = new BinaryIo("lpt1:","W");
    str ESC = Num2Char(27);
    str CR = Num2Char(13);

    if ( myfile )
    {
        myfile.write( strfmt('%1B%2Q048%3S2%4M15%5D5%6?E%7{4750010141021}%8%9E',ESC,ESC,ESC,ESC,ESC,ESC,ESC,CR,ESC) );
        info('отпечатано?');
    }
} 


То же, отправленное в порт Си++Билдером, выдает на печать этикетку.

[Wing]

Поскольку принтер будет стоять в строго определенном месте, а сама аксапта будет стартовать с тучи разных расположений, было решено сделать сервер для принтера и отсылать ему по сети задачи на печать.
Сервер уже есть и есть рабочая DLL для отправки серверу.
Теперь необходимо реализовать одно из двух:

1. Подключить эту DLL ( int __stdcall (*Send)(char *, char *, char *, int, char *) )
2. Найти способ отправлять данные по сети

Может кто что посоветовать?
Напрямую с сокетами аксапта работать может?
С подключением библиотеки я пока не справился... аксапта падает
вот код:

PHP код:

static void TestDLL(Args _args)
{
    DLL         _winApiDLL     = new DLL('C:\\Projects\\CBuilder\\PrinterEt\\Client\\w_printer_et.dll');
    DLLFunction _Send          = new DLLFunction(_winApiDLL, 'SendToPrinterEt');

    _Send.returns(ExtTypes::DWord);
    _Send.arg(ExtTypes::Pointer);
    _Send.arg(ExtTypes::Pointer);
    _Send.arg(ExtTypes::Pointer);
    _Send.arg(ExtTypes::DWord);
    _Send.arg(ExtTypes::Pointer);

    _Send.call('голова(head)', '4750010141021', 'зад(bottom)', 1, 'guest');
} 


в AxaptaCrash.log такое сообщение:
Stackdump exit code 487 (Попытка обращения к неверному адресу)
кстати int внутри returns не понимается... там понимается только ExtTypes.

[Wing]

Сразу поправлюсь:
пути аксапта понимает только с двумя "\\", но этот форум почемуто заменяет 2 на 1.

[mazzy]

Про сокеты. посмотрите tutorial_TicTacToe
подробно не разбирался. Но сокеты там используются.

Про задачу. Подореваю, что это не последнее изменение вашей задачи.
Не торопитесь исполнять ее в таком виде.

[Wamr]

Смотрим класс WinAPI

PHP код:

client server static int getFileAttributes(str name)
{
    DLL         _winApiDLL          = new DLL('KERNEL32');
    DLLFunction _getFileAttributes  = new DLLFunction(_winApiDLL, 'GetFileAttributesA');

    _getFileAttributes.returns(ExtTypes:: DWORD);
    _getFileAttributes.arg(ExtTypes::STRING);

    return _getFileAttributes.call(name);
} 


Теперь смотрим Win32 Developer's References
DWORD GetFileAttributes(LPCTSTR lpFileName)
Делаем вывод, что для передачи в качестве параметра указателя на строку надо использовать arg(ExtTypes::STRING)