PERFEKT !!!!
Vielen Dank ..
Funktioniert super .. Ich hab die karte als "1" angesprochen .. richtig ist die "0"
Code:
begin
mainform.ComPort1.Port:='COM1';
mainform.ComPort1.Open;
mainform.ComPort1.Connected:=true;
sDaten:=#3#0#164;
mainform.ComPort1.WriteStr(sDaten + chr(checksum(sDaten)));
end;
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \