Q&A

  • COM10 이상 포트를 찾고 싶습니다.
안녕하세요?

Comport 를 Getcomport(팁에서)를 사용했는데요,
Com1~9까지는 잘 찾는데, COM10 이상 포트는 찾질 못하네요...

아시는분 도와주세요...

  var comfile : file;


    for Index := 20 downto 1 do // COM1부터 COM20까지 검색
    begin
        {$I-}
        AssignFile(ComFile, 'COM' + IntToStr(Index));
        Reset(ComFile);
        CloseFile(ComFile);
        {$I+}

        sleep(10);
        if IOResult = 0 then // COM포트가 사용가능하다면
        begin
         portarray[Index] := true;
        end;
     end;//for

   이렇게 했는데요.... Com 10 부터 그이상 두자리 포트는 찾질 못하네요..
   어떻게 해야 할지....  도와주세요..

감사합니다.
1  COMMENTS
  • Profile
    델코초 2006.10.13 02:46
    팁란의 시삽님이 올려주신 GetComportList 로 해결 되었습니다.

    그런데, ValidGetcomport 는 사용 가능한 두자리 컴포트를 못찾네요..

    감사합니다.