//------------------------------------------------
̃vOdelphgăbNX^[C^tF
[X쐬邽߂̎QlvOł̂ŁA
SDELPHvOł͂܂BӉB
//------------------------------------------------

//֐`@
Function PSBOXIO(Did, Comp, Area, No, Id, PortNo, Sw : Integer; Var Dat): integer; StdCall;
External 'WPSDLL32.DLL' Name 'PSBOXIO';

//f[^`@

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

//vǑďoƃ`FbN@
// i@̓|[gԍŁATԁFUSBpAȊO͏]ʂłB
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
    G[bZ[W̏o "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
        ʏóF "BOX DATA : "; Hex$(dat)
    Else
       G[bZ[W̏óF "ERROR STATUS"; ret
end;
