Форум: "Система";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Вниз

LPT: Что есть tlLPTx?   Найти похожие ветки 

← →
GydruS   (2002-07-23 08:50) [0]

Мастера, поделитесь пожалуйста своими отличными знаниями!
Есть исходник. Есть строка:

type
TLptType = (tlLPT1, tlLPT2, tlLPT3, tlLPT4, tlUserDefined);

При компиляции она проходит нормально.
А в справке на счёт этого ничего нет :(. Так же как и не помогает Find Declaration :(.
В дальнейшем мне нужно преобразовывать функции и процедуры. И вот мне не очень хочется менять всё это tlLPTx хозяйство, даже не зная, что оно из себя есть.

Большое спасибо!

---

← →
MBo   (2002-07-23 08:59) [1]

это просто перечислимый тип (см. Enumerated types)

---

← →
GydruS   (2002-07-23 09:35) [2]

Ok. Спасибо, что напомнили! (ларчик просто открывался :)) )
Тогда:


var p: TLptType;
AAdr: integer;
begin
...
p:=tlLPT1;
while ( GetLptPortFromBios(p) <> AAdr ) AND (p<tlUserDefined) do
inc(p);
...
end;

Как избавляться от
Incompatible types: "Integer" and "TLptType" ?

На всякий случай вот обычный
function GetLptPortFromBios(PortNo: integer): word; assembler; stdcall;
asm
push es
push ebx
mov ebx, PortNo
shl ebx,1
mov ax,40h // Dos segment adress
mov es,ax
mov ax,ES:[ebx+6] // get port adress in 16Bit way :)
pop ebx
pop es
end;

Спасибо!

---

← →
MBo   (2002-07-23 09:43) [3]

GetLptPortFromBios(integer(p))

---

← →
GydruS   (2002-07-23 09:46) [4]

О... Всё, я это обошел :)) так:

function GetLptPortFromBios(PortNo: TLptType): word;
var PN : Integer;
begin
PN := ord(PortNo);
GetLptPortFromBiosA(PN);
end;

Is it Right?

---

← →
MBo   (2002-07-23 09:56) [5]

да

---

← →
GydruS   (2002-07-23 10:09) [6]

Ок. Тогда пока всё. :))
Спасибо за внимание и за помошь! :))))

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c