各位先進大家好: 我現在正在 98 下寫一個控制儀器之程式需用到 port io 指令 以往是以 Qbasic 所控制, 現要改成 windows 界面... 在 QB 下是 OUT 680, 128 這樣即可... 但是在 Delphi 中我卻無法控制... 有下載了 io.dll 但是什麼動作都沒有... 我想是 io port 搞錯了.. 但是我也不知道正確的 io port 在 98 下要如何得知... 請問各位有經驗的先進我該如何作呢?

Delphi 可以內含組合語言 當然也可以下I/O 指令 (此法限98/95)    例：

begin
   asm
       // 放入 asm 指令
   end;
end;

procedure OutPortb(Addr:Word ;Data:Byte );
begin
asm
    mov dx,Addr
    mov al,Data
    out dx,al
end;
end;    function InPortb(Addr:Word):Byte;
var
    Value:Byte ;
begin
asm
    mov dx,Addr
    in al,dx
    mov value,al
end;
    Result:=value;
end;    //使用方式
procedure TForm.writeBtnClick(Sender: TObject);
begin
    OutPortb($3e3,$80);
end;    procedure TForm.readBtnClick(Sender: TObject);
var
    c:Char;
begin
    c:=InPortb($3e2);
end;

其餘更多資料可參考 http://delphi.ktop.com.tw/topic.php?topic_id=23307 http://delphi.ktop.com.tw/topic.php?topic_id=23183 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18761 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18989 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18198 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18116 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=17910 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19071 發表人 - ddy 於 2003/04/04 02:10:51