//------------------------------------------------
このプログラムはdelphを使ってロックスターインタフェ
ースを作成されるための参考プログラムですので、完
全なDELPHプログラムではありません。ご注意下さい。
//------------------------------------------------

//関数定義方法
Function PSBOXIO(Did, Comp, Area, No, Id, PortNo, Sw : Integer; Var Dat): integer; StdCall;
External 'WPSDLL32.DLL' Name 'PSBOXIO';

//データ定義方法

 Did,Comp,Area,No,Sw ,Id,PortNo, flag, Dat,i: Integer;
  sBuff : String;
  Buff : array[1..60] of Integer;

//プログラムの呼出とチェック方法
// i　はポート番号で、５番：USB用、それ以外は従来通りです。
procedure checklockport()
begin

    no = 0	'For Speed check no=0    
    ret = 0
    For i := 0 To 2 do
        If (i = 2) Then i = 4
    	ret : = PSBOXIO(did, comp, area, no, id, i,sw,dat)
        If ret = 0 Or (ret >= 2 And ret <= 5) Then
		begin
        		Cechk_box(i)
        	end;
    Next i
    エラーメッセージの出力 "ERROR STATUS ="; ret
end;

procedure Cechk_box(PortNo)
begin
    no := 1	'Check Box number 1
    id := 0
    ret := 0
    dat := 0
    ret := PSBOXIO(did, comp, area, no, id, PortNo, sw, dat)
    If (ret = 0) Then
        結果出力： "BOX DATA : "; Hex$(dat)
    Else
       エラーメッセージの出力： "ERROR STATUS"; ret
end;
