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.