Topic: Подключение периферийных устройств через драйвер
Добрый день.
Можно ли в программе подключить устройство через драйвер в виде DLL?
Хочу попробовать создать базу с подключением контрольно кассовой техники и выводом информации на неё.
Есть готовый код на Delphi, можно ли его реализовать в Myvisualdatabase?
uses SysUtils, DrvFRLib_TLB; // драйвер DrvFR.DLL
//...
procedure TestSale;
var
Drv: TDrvFR;
begin
Drv := TDrvFR.Create(nil); // Создание объекта драйвера
try
Drv.ConnectionType := 6; // подключение через TCP socket
Drv.ProtocolType := 0; // Стандартный протокол Drv.IPAddress := '192.168.0.2'; // IP адрес ККТ
Drv.UseIPAddress := True; // Используем свойство IPAddress
// для указания адреса ККТ
// (в противном случае будет
// использоваться свойство
// ComputerName)
Drv.TCPPort := 7778; // TCP Порт ККТ
Drv.Timeout := 5000; // Таймаут в мс
Drv.Password := 30; // Пароль системного администратора
if Drv.Connect <> 0 then // Проверяем подключение
raise Exception.Create(Drv.ResultCodeDescription);
// ну и т.д. ....
if Drv.FNCloseCheckEx <> 0 then
raise Exception.Create(Drv.ResultCodeDescription);
finally
Ну или просто подключить драйвер так получится?
function Code(s: PChar; Key: integer): PChar; stdcall;
external 'DrvFR.DLL';