Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите как применить функцию для работы с сом-портом [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


Наверх

Титульная страница Поиск, карта сайта Написать письмо