[an error occurred while processing this directive]
|
Stat.cbInQue :=0;
ByteCount:=0;
Lock:=true;
hCOM:=CreateFile('COM1',GENERIC_WRITE or GENERIC_READ,
0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if hCOM=INVALID_HANDLE_VALUE then begin
ShowMessage(' Не могу открыть порт ');
Application.Terminate;
end;
SetupComm(hCOM,1600,1600);
with DCB do begin
BaudRate:=9600;
ByteSize:=8;
Parity:=EvenParity;
StopBits:=OneStopBit;
DCB.Flags := fRtsControlEnable;
end;
if not SetCommState(hCom,DCB)then begin
ShowMessage('Порт нe настроен');
Application.Terminate;
end;
если подойдет брошу остальное...
E-mail: info@telesys.ru