这段 A/D 程序该怎样写 ?(200分)

蓝

蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #1

下面这段程序是我用 TC 编写的,怎样把它改写为 Delphi 程序？
关键是端口访问和位操作不知道该怎么写。
int AD(int channel,int ida)
{
int BASE=0x280;
outportb(BASE,channel);
while(!(inportb(BASE+5)&0x80));
ida=inportb(BASE+1)|((inportb(BASE+2)&amp;0x0f)<<8);
return(2047-ida);
}

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #2

端口读写和移位要用汇编来写.

 

C

Crane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #3

你用的是什么A/D板？delphi无法直接访问端口地址，一般现在的A/D版都有
提供for win的dll和activeX的dll,你可以照例程写。

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #4

我们现在用的A/D板是用汇编来访问的,不过我没关心过是什么型号
有A/D板地址应该能访问.

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #5

crane is right

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #6

procedure AD(channel: integer): integer;
const Base = $280;
var Data: byte;
temp: word;
begin
Data := Channel;
asm
mov al, Data;
mov dx, Base;
out al, DX
add dx, 5
@@1: in al, dx
and al, $80
jnb @@1
sub dx, 4
in al, dx
mov ah, al;
inc dx
in al, dx
xchg al, ah
mov temp, ax
end;
result := 2047-temp;
end;

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #7

>>iie
function not procedure
最好把channel直接声明为byte,省下data
out dx,al

 

B

bluebob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #8

..

 

H

Hexi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-08

• #9

procedure outportb(Address:Word;
Data:Byte);assembler;
asm
MOV DX,Address
MOV AL,Data
OUT DX,AL
end;
function inportb(Address:Word):Byte;assembler;
asm
MOV DX, Address
IN AL,DX
end;

function AD(channel,ida:Integer):Integer;
const BASE=0x280;
begin
outportb(BASE,channel);
while((inportb(BASE+5)&amp;0x80)<>0)do
;
ida:=inportb(BASE+1)|(Integer(inportb(BASE+2) and 0x0f) shl8);
Result:=2047-ida;
end;

 

H

Hexi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-08

• #10

ida:=inportb(BASE+1)or(Integer(inportb(BASE+2) and 0x0f) shl8);

 

蓝

蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-11

• #11

>>Hexi 十分感谢,想和您讨论一下

function AD(channel,ida:Integer):Integer;
...
while((inportb(BASE+5)&amp;0x80)<>0)do
;
//最高位为1表示有数可采,为0则等待,我认为应该这样写
while((inportb(BASE+5)&amp;0x80)=0)do
;
...
Delphi 中16进制数应该写为 $0f

 

H

Hexi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-11

• #12

while ((inportb(BASE+5) and $80)=0)do
;

 

蓝

蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #13

多人接受答案了。

 

J

JJams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-21

• #14

procedure outportb(Address:Word;
Data:Byte);assembler;
asm
MOV DX,Address
MOV AL,Data
OUT DX,AL
end;

上面的函数好像不能用，请看：
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=249806

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-30

• #15

如果是DELPHI3。0以上使用
SmallPort控件。
使用汇编无效，对打印口编程还可以。

 

W

wenjinshan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #16

端口读写、API HOOK、屏幕取词的完整解决方案见我的《delphi深入windows核心编程》一书，
支持win98/2000/xp，
我的主页http://wenjinshan.yeah.net