![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите как применить функцию для работы с сом-портом [D6, Win95/98]
ol © (2002-04-17 10:24:00)Нашел сабж
Базовые адреса двух COM портов, для справки:
COM1 - 3F8h
COM2 - 2F8h
Пример:
Простейший вид процедур посылки и получения данных.
............
{процедура посылки данных в порт}
procedure PortOut(Port: Word; Data: Byte); assembler;
asm
MOV DX,Port;
MOV AL,Data
OUT DX,AL
end;
............
{функция получения данных из порта}
function PortIn(Port: Word): Byte; assembler;
asm
MOV DX,Port;
IN AL,DX
end;
Требуется прочитать данные из сом1
прописал функцию
потом потом на кнопку повесил что переменной s присвоить:
s:=PortIn(3F8h), --> ругается, кавычки если то конфликт Word - String
Подскажите че не так, первый раз делаю, почитать не нпшел где
да может кто все таки подскажет книжку толковую, или адресок где толком расписана работа с сом-портами
KPY (2002-04-18 05:49:00) [1]http://www.delphikingdom.com/mastering/ports1.htm
есть немного но не супер
Anatoly Podgoretsky (2002-04-17 15:11:00) [2]И подумай будет ли это работать
MOV DX,Port;
MOV AL,Data
Это положено делать так
xchg dx,ax
MBo (2002-04-17 13:03:00) [3]в паскале шестнадцатиричные пишутся так
$3F8