RS-232 통신중에 패킷 인터벌이 최소 1.1 m second 이상이라고
되어 있드라구요 그래서 밀리세컨드 관련 함수를 찾고
START := MillisecondOfTheSecond(now);
START := START +37;
while MillisendofTheSecond(now) < START do
;
35 이하는 패킷을 받지 못하더라구요.
이렇게 쓰고 패킷이 되돌아 올때 인터벌을 줬는데
어떤때는 잘 받다가 어떤때는 여기서 계속 무한루프를 도는것
같습니다. 어디가 잘못 됐는지 좀 아시는분 알려 주세요 TT
통신 컴포넌트는 CPORT를 씁니다. 이상하게 3 번에 1,2번 꼴로
무한루프를 돌거나 프로그램이 서버립니다. TT
TickCount를 이용해보세요...
var
Start: LongWord;
begin
Start := GetTickCount;
Start := Start + 37;
while GetTickCount < Start do
;
end;
^^ 항상 즐코하세요...