ADAM 5000 Auslesen

[Schodn]

Delphi-Quellcode:

var
   i,j              : Integer;
   iRetVal          : Integer;
   wModuleName      : WORD;
   wDeviceID        : WORD;
   wStartDO         : WORD;
   wCount           : WORD;
   byData     : Array [0..63] of Byte;
   i_ok, ii : Integer;
   s_dateiname, s_pfad, dateioef, satz : String;
    datei : textfile;
    st: TStringList;
begin

    i_ok := 0;
    ii := 0;

    while (i_ok = 0) AND (ii < 5) do
    begin
        try
            //--- try to create a connection to 5000/TCP ---
            iRetVal := ADAMTCP_Connect(PChar(edtIPAddress.Text),DEFAULT_PORT,
              iConnectionTimeout, iSendTimeout, iReceiveTimeout);
            if ( iRetVal<0 ) then
            begin
                ShowMessage('Fehlgeschlagen');
                i_test := 0;
            end
            else
            begin
                i_ok := 1;
                i_test := 1;
                break;
            end;
        except
        end;
        ii := ii + 1;
    end;

er besteht aus 5 modulen zu je 16 ausgängen

so verbinde ich mit einem ADAM 5000

nur wie lese ich es aus, wenn einer seiner ausgäng aus 1 steht.