Работа с портами (LPT, COM) из под Delphi
3740
6
vetal
guru
Ктонить знает как можно из под делфей иметь возможность делать с портами всё что угодно, например побитно выставлять сигналы на каждый провод в LPT?
procedure TForm1.FormActivate(Sender: TObject);
var bb:byte;
begin
asm
mov dx,$2fa
in al,dx
mov bb, al
end;
Label1.Caption:=inttostr(bb);
end;
var bb:byte;
begin
asm
mov dx,$2fa
in al,dx
mov bb, al
end;
Label1.Caption:=inttostr(bb);
end;
Так и подозревал - ассемблерная вставка...
ты хоть бы ОС сказал какая...
в NT не получится из ASM до COM достучаться...
в NT не получится из ASM до COM достучаться...
преславутая Win9x, что из под NT сложней эт точно... асмом можно, но елис с ним не особо дружен то както всё не очевидно, кроме того хотелось бы как то оформить двусторонюю связь, можно конечно по сервисным сигналам, а в порт просто заранее заготовленные байты отправлять...
но тогда придётся байт формировать, потом его туда пихать, вот потому и вопрос возник такой...
чтоб мона було один бит поменять а остальное не трогать и никто чтоб не заметил.... кроме меня.... и не узнала об этом никакая другая софтина кушающая ресурсы в этот момент.... других функций от программы не требуется.....
Либо тот текст что на асме поясните по подробней ПЛЗ.
но тогда придётся байт формировать, потом его туда пихать, вот потому и вопрос возник такой...
чтоб мона було один бит поменять а остальное не трогать и никто чтоб не заметил.... кроме меня.... и не узнала об этом никакая другая софтина кушающая ресурсы в этот момент.... других функций от программы не требуется.....
Либо тот текст что на асме поясните по подробней ПЛЗ.
для com-портов смотри тут
http://sourceforge.net/projects/tpapro/
для LPT - например вот:
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20333447.html
http://sourceforge.net/projects/tpapro/
для LPT - например вот:
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20333447.html
ТОП 5
1
2
3
4