работа с портами

← →
Светлана (2007-02-26 15:01) [0]

Контроллер параллельного ввода-вывода нестандартный, работает с внешними устройствами через порт компьютера (порт выбран с адресом для подключения внешних устройств и работал контроллер еще под DOC). Также успешно работал под Windows 98, программирвался в Delphi 4 с помощью ассемблерных вставок. При смене системы на Windows XP не работает. Поняла, что нужен драйвер или можно использовать WinAPI, но опыта нет. Посоветуйте, пожалуйста, что делать, где и что почитать, как реанимировать контроллер. Спасибо.

← →
Сергей М. © (2007-02-26 15:23) [1]

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

← →
tipman © (2007-02-26 20:21) [2]

я когда то сталкивался с этим - программатор отказался работать. Поскольку управляющая программа работала напрямую с портами. Ессно исходников не было.
использовал программу AllowIo.exe (porttalk22), там вродь всё просто.

← →
Belorus © (2007-02-26 22:34) [3]

function ZwSetInformationProcess (h : Cardinal; l : cardinal; P : Pointer; l2: cardinal):cardinal;stdcall;external "NTDLL.dll"; procedure EnablePrivilege; var hToken: dword; tkp: TOKEN_PRIVILEGES; ReturnLength: dword; begin tkp.PrivilegeCount:=1; OpenProcessToken(INVALID_HANDLE_VALUE, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); LookupPrivilegeValue(nil,"SeTcbPrivilege", tkp.Privileges[0].Luid); tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, false, tkp, SizeOf(TOKEN_PRIVILEGES), tkp, ReturnLength); CloseHandle(hToken); ZwSetInformationProcess(GetCurrentProcess, $10, nil, 0 ); end;

И где то в политиках безопасности нужно добавить пользователю права системы. Пользователю который будет запускать процесс.

Используй WinIO - отличная халявная обёртка.

работа с портами Найти похожие ветки