Работа с портом с конкретным адресом. Запись и чтение

← →
!Fobos © (2006-05-10 08:17) [40]

> Сергей М. © (06.05.06 15:53) [37]

Документации на девайс нету, разве что дипломная работа.
Массив, как мне кажется, забивается разными значениями, т.к., синусоиду, к примеру, прога рисует нормально(то есть она синусоида, а не прямая линия).
На данный момент проблема именно в считывании сигнала с порта(кэш-памяти), остальное все уже практически переписал для Делфи. Сейчас програма что-то считывает, но это явно не тот уже хотя бы потому, чьл какой бы я номер порта не ставил, картинка выглядит одинаково. На паскалевском варианте программы написана процедура обработки прерывания. Как перевести её на Делфи я пока понятия не имею, но мне кажется что проблема сейчас именно в этом.

← →
Сергей М. © (2006-05-10 08:43) [41]

> !Fobos © (10.05.06 08:17) [40]

> На паскалевском варианте программы написана процедура обработки
> прерывания. Как перевести её на Делфи я пока понятия не
> имею, но мне кажется что проблема сейчас именно в этом.

Если дивайс генерирует прерывания, то без драйвера режима ядра тем более не обойтись. И Делфи здесь не помощник - среда эта не предназначена для таких задач.

← →
!Fobos © (2006-05-10 08:45) [42]

> Сергей М. © (10.05.06 08:43) [41]

То есть, я так понимаю, я тратил время зря?

← →
Сергей М. © (2006-05-10 08:56) [43]

> !Fobos © (10.05.06 08:45) [42]

Ну почему же зря ?
Опыт - он, как известно, сын ошибок трудных ..

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

← →
!Fobos © (2006-05-10 09:15) [44]

> Сергей М. © (10.05.06 08:56) [43]

На самом деле никого не волнует, вслепую я буду разбираться или нет. Эксперементировать уже нету времени, диплом надо сдать меньше чем через месяц, а его еще писать надо....плюс госы учить. Препод, который дал задание, в программировании шарит еще меньше меня и объяснять ему мои проблемы, думаю, смысла нету.
Ну если другого выхода нет, то всем большое спасибо за участие! =)

← →
Сергей М. © (2006-05-10 09:40) [45]

Покажи соотв.код "на паскалевском варианте" ..

← →
!Fobos © (2006-05-10 09:49) [46]

> Сергей М. © (10.05.06 09:40) [45]

Весь? Там что-то около 600-700 строк!!!

← →
Anatoly Podgoretsky © (2006-05-10 09:50) [47]

!Fobos © (10.05.06 09:15) [44]
Забудь про диплом, за оставшее время драйвер написать не успеешь.

← →
Сергей М. © (2006-05-10 09:51) [48]

> !Fobos © (10.05.06 09:49) [46]

Зачем весь ?

Только те фрагменты, где осуществляется собственно ввод-вывод и где выполняется программирование прерываний..

← →
!Fobos © (2006-05-10 09:54) [49]

procedure interupt;
interrupt;
var i:integer;
begin
PORT[$20]:=0;
port[$21]:=32;
portw[start_]:=$0000;
for i:=0 to 5 do
DATA[i]:=port[start_];
for i:=0 to 32761 do
DATA[i]:=port[start_];
onoff(0);
ct:=0;draw(100,tiold);
{start;}
PORT[$20]:=32;
PORT[$21]:=0;
end;

.........
.........
.........

getintvec(Int, Save_vec); // Int=$0D; Save_vec:pointer
setintvec(Int, @Interupt);
ttt:=port[$20]+32; // ttt:byte;

PORT[$20]:=32;
PORT[$21]:=0;

...........
..........
...........

← →
!Fobos © (2006-05-10 09:55) [50]

> Anatoly Podgoretsky © (10.05.06 09:50) [47]

Обнадеживающе...=((

← →
Сергей М. © (2006-05-10 10:08) [51]

Мда ..
Портом статуса здесь явно не пахнет, ввод организован по прерыванию ..
А фигурировал бы порт статуса - можно было бы выкрутиться.

В принципе можно, конечно, обойтись и без драйвера (прямой доступ к GDT, IDT), но способ этот малонадежен (из разряда трюков) и даже более трудоемок в реализации.

← →
Дмитрий Л. © (2006-05-10 10:14) [52]

> Сергей М. © (10.05.06 10:08) [51]

Device\PhysicalMemory ?

← →
Сергей М. © (2006-05-10 10:42) [53]

> Дмитрий Л. © (10.05.06 10:14) [52]

Для NT - да.

← →
!Fobos © (2006-05-10 11:26) [54]

> Сергей М. © (10.05.06 10:08) [51]

В общем, все со мной ясно... :-)

← →
vodvorezlaya (2006-05-18 10:35) [55]

> procedure DataIn(PortAddress:word);
> var
> ByteValue:byte;
> Addr: Word;
> begin
> Addr := PortAddress; //параметр PortAddress передается
> через eax, запомним его в лок.переменной
> for i:=0 to 32767 do
> begin
> asm
> push eax
> push edx
> mov dx, Addr
> in al,dx
> mov ByteValue,al
> pop edx
> pop eax
> end;
> Data[i]:=ByteValue;
> end;
> end;
>
> procedure DataOut(ByteValue:byte;PortAddress:word);
> asm
> //ByteValue передается в eax
> //PortAddress - в edx
> out dx,al
> end;
>
>
> > массив забивается практически одними и теми же значениями
>
>
> А где написано, что должен разными ?
> Док-ция на дивайс от производителя имеется ?

Не работает на ХР

> Не работает на ХР

Что значит "не работает" ?

← →
Thomas Anders (2006-05-18 14:58) [57]

Доступ к портам ввода/вывода из Ring3 на NT платформах.

typedef DWORD NTSTATUS; typedef enum _PROCESSINFOCLASS { ProcessBasicInformation, ProcessQuotaLimits, ProcessIoCounters, ProcessVmCounters, ProcessTimes, ProcessBasePriority, ProcessRaisePriority, ProcessDebugPort, ProcessExceptionPort, ProcessAccessToken, ProcessLdtInformation, ProcessLdtSize, ProcessDefaultHardErrorMode, ProcessIoPortHandlers, ProcessPooledUsageAndLimits, ProcessWorkingSetWatch, ProcessUserModeIOPL, ProcessEnableAlignmentFaultFixup, ProcessPriorityClass, ProcessWx86Information, ProcessHandleCount, ProcessAffinityMask, ProcessPriorityBoost, ProcessDeviceMap, ProcessSessionInformation, ProcessForegroundInformation, ProcessWow64Information } PROCESSINFOCLASS; typedef NTSTATUS (__stdcall *NTDLL_ZwSetInformationProcess)( IN HANDLE ProcessHandle, IN PROCESSINFOCLASS ProcessInformationClass, IN PVOID ProcessInformation, IN ULONG ProcessInformationLength ); int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) { // Устанавливаем привелегию на действие от имени системы. HANDLE hToken; TOKEN_PRIVILEGES tkp; if ( !OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken) ) return -1; LookupPrivilegeValue(NULL, SE_TCB_NAME, &tkp.Privileges[0].Luid); tkp.PrivilegeCount = 1; tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; BOOLEAN bret = AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, (PTOKEN_PRIVILEGES)NULL, 0); CloseHandle(hToken); if ( !bret ) return -2; // Загружаем явно ntdll.dll и получаем адрес нужной функции - делаем это // руками, чтобы не возиться с библиотеками экспорта. HINSTANCE NtDll; NtDll=LoadLibrary("ntdll.dll"); if ( !NtDll) return -3; NTDLL_ZwSetInformationProcess ZwSetInformationProcess = (NTDLL_ZwSetInformationProcess)GetProcAddress(NtDll, "ZwSetInformationProcess"); if ( !ZwSetInformationProcess ) return -4; NTSTATUS Status = ZwSetInformationProcess( GetCurrentProcess(), ProcessUserModeIOPL, NULL, 0 ); if ( Status != 0 ) return -5; __try { // Тут можно использовать инструкции in, out } __except( EXCEPTION_CONTINUE_EXECUTION ) { } return 0; }

1. Данный код будет работать, если для акаунта разрешена привелегия "Act as part of the operating system", она же SeTcbPrivilege. По умолчанию она отключена даже для админского акаунта. Поэтому либо нужно ее разрешить (это можно сделать и программно), либо выполнять код с правами SYSTEM, что можно сделать, если работать как сервис.

2. Не смотря на разрешение инструкций ввода/вывода, все равно будет генерироваться исключение. Его нужно подавить (см. код). В данном случае приведена реализация для VC, для Borland" a тоже должно подойти.

PS: Исключение будет генерироваться каждый раз после переключения задачи и только на ХР. Поскольку Windows не хранит TSS, то при обращении к портам ввода вывода, каждый раз после переключения задачи, in, out оказываются привелегированными интсрукциями, что приводит к возникновению исключения и благополучной обработки его ядром. Для чего ядро XP возобновляет исключение после собственного обработчика, непонятно. Тем не менее, это исключение можно проигнорировать.

> Thomas Anders (18.05.06 14:58) [57]

Разврат.

Thomas Anders (18.05.06 14:58) [57]

Это конечно все хорошо и даже работает, но вот только эту привилегию не рекомендуют назначать никому...

← →
Thomas Anders (2006-05-18 20:49) [60]

> Сергей М. © (18.05.06 17:16) [58]
> Разврат.

Ну почему же... Эта возможность может служить как инструмент разработки для быстрой проверки нового аппаратного обеспечения. Или имеется старая DOS-программа и очень нужно чтобы она работала в NT? На моей работе у некоторых коллег такая ситуация, используют DirectI/0, а это не удобно и кажется из-за HyperThreading ещё проблемы. Можно конечно и драйвер писать... Впрочем, каждый сам кузнец собственного геморроя...

> Игорь Шевченко © (18.05.06 17:37) [59]

Насчет смысла, трудно сказать есть он или нет. Всё зависит от задачи. Привилегию нужно назначать аккаунту только один раз. В некоторых случаях это приемлемо. Ну, вобщем то возможно (и наверняка это так и есть), что добавление этой привилегии откроет какую-нибудь дополнительную дыру в системе.

> Ну, вобщем то возможно (и наверняка это так и есть), что
> добавление этой привилегии откроет какую-нибудь дополнительную
> дыру в системе.

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

Thomas Anders (18.05.06 14:58) [57]
Снимаю шляпу.
:)
Все-таки, пробивается.
Напоминает забивание кувалдой каждого байта в буфер ...
Ей Богу, легче использовать DDK, и написать как просят.

Работа с портом с конкретным адресом. Запись и чтение Найти похожие ветки