Прогрузка Весов Digi S-300

Тема в разделе "Другие", создана пользователем komar9n, 27 фев 2013.

  1. komar9n

    komar9n New Member

    Регистрация:
    27 фев 2013
    Сообщения:
    2
    Симпатии:
    0
    Доброго времени суток уважаемые бояре :). У меня проблема следующего характера: Вояю программу для работы с весами, есть DLL от разработчиков и мануал, также описана функция которую экспортирует эта DLL со всеми параметрами но вот не задача, не могу достучаться до этой функции, мануал и длл прилогаю в архиве. А также маленький фрагмент кода: как я подключаюсь к длл
    Код (Delphi):
     type
    TOperation =
    (UPLOAD,
    DOWNLOAD,
    ERASEPLULIST,
    ERASEOBJECT);


    TOperationResult =
    (NON_ERROR, OPEN_FILE_ERR, READ_FILE_ERR,
    WRIT_FILE_ERR, NETWORK_OPEN_ERR, NETWORK_READ_ERR, NETWORK_WRIT_ERR,
    MACHINE_READ_ERR, MACHINE_WRIT_ERR, MACHINE_NOREC_ERR,
    MACHINE_SPACE_ERR, MACHINE_UNDEF_ERR);


    var
    Form1: TForm1;
    Texecute: function (AOperation: TOperation; AScaleIP: PChar; AFileName: PChar; ACommand: BYTE):TOperationResult;
    LibHandle: THandle;

    implementation



    {$R *.dfm}

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    @Texecute:= nil;

    LibHandle := LoadLibrary('digitcpdrv.dll');

    if LibHandle >= 32 then
    begin

    @Texecute := GetProcAddress(LibHandle, 'execute');
    if @Texecute <> nil then
    ShowMessage('функция на месте =)');
    end;

    FreeLibrary(LibHandle);
    end;
     

    Вложения:

    • Information.rar
      Размер файла:
      259,1 КБ
      Просмотров:
      2

Поделиться этой страницей