Подскажите как применить функцию для работы с сом-портом

← →
ol (2002-04-17 10:24) [0]

Нашел сабж

Базовые адреса двух 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
Подскажите че не так, первый раз делаю, почитать не нпшел где

да может кто все таки подскажет книжку толковую, или адресок где толком расписана работа с сом-портами

← →
MBo © (2002-04-17 13:03) [1]

в паскале шестнадцатиричные пишутся так

$3F8

← →
Anatoly Podgoretsky © (2002-04-17 15:11) [2]

И подумай будет ли это работать

MOV DX,Port;
MOV AL,Data

Это положено делать так

xchg dx,ax

http://www.delphikingdom.com/mastering/ports1.htm
есть немного но не супер

Подскажите как применить функцию для работы с сом-портом Найти похожие ветки