[an error occurred while processing this directive]
|
а установить линии - например, так:
function Set_DTR(b:boolean):boolean;
begin
if b
then Result:=EscapeCommFunction(hCom,SETDTR)
else Result:=EscapeCommFunction(hCom,CLRDTR);
end;
function Set_RTS(b:boolean):boolean;
begin
if b
then Result:=EscapeCommFunction(hCom,SETRTS)
else Result:=EscapeCommFunction(hCom,CLRRTS);
end;
успехов !
E-mail: info@telesys.ru