자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이 XE2  사용

 

아래 소스로 맥주소를 가져오는데

 

맥주소를 못가져오는 경우가 있네요

 

어떨때 못가져오는지

 

어떻게 가져올수 있는지 알수 있을까요?
 

 

function GetMACAddress: string;

  var

    AdapterList: TLanaEnum;

    NCB: TNCB;

 

    Adapter: TAdapterStatus;

    Lana: AnsiChar;

  begin

    FillChar(NCB, SizeOf(NCB), 0);

    NCB.ncb_command := Char(NCBENUM);

    NCB.ncb_buffer := @AdapterList;

    NCB.ncb_length := SizeOf(AdapterList);

    Netbios(@NCB);

 

    if Byte(AdapterList.length) > 0 then

      begin

        Lana := AdapterList.lana[0];

 

        FillChar(NCB, SizeOf(NCB), 0);

        NCB.ncb_command := AnsiChar(NCBRESET);

        NCB.ncb_lana_num := Lana;

 

        if Netbios(@NCB) <> AnsiChar(NRC_GOODRET) then

        begin

          Result := 'mac not found';

          Exit;

        end;

 

        FillChar(NCB, SizeOf(NCB), 0);

        NCB.ncb_command := Char(NCBASTAT);

        NCB.ncb_lana_num := Lana;

        NCB.ncb_callname := '*';

        FillChar(Adapter, SizeOf(Adapter), 0);

        NCB.ncb_buffer := @Adapter;

        NCB.ncb_length := SizeOf(Adapter);

 

        if Netbios(@NCB) <> Char(NRC_GOODRET) then

        begin

          Result := 'mac not found';

          Exit;

        end;

        Result := Result + IntToHex(Byte(Adapter.adapter_address[0]), 2) + ':';

        Result := Result + IntToHex(Byte(Adapter.adapter_address[1]), 2) + ':';

        Result := Result + IntToHex(Byte(Adapter.adapter_address[2]), 2) + ':';

        Result := Result + IntToHex(Byte(Adapter.adapter_address[3]), 2) + ':';

        Result := Result + IntToHex(Byte(Adapter.adapter_address[4]), 2) + ':';

        Result := Result + IntToHex(Byte(Adapter.adapter_address[5]), 2);

      end

    else

      Result := 'mac not found';

  end;

 
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 17164
공지 유용한 관련 사이트 관리자2 2014.03.20 56036
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99469
3199 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 18 - Exercise 3 [1] 관리자 2016.05.27 82
3198 [10.2.2 세미나] 이전 버전과의 차별점 알려주시면 감사하겠습니다. 험프리 2018.01.18 82
3197 [10.3.3 브리핑] RAD서버의 부하 분산 등은 어떻게 되나요? 험프리 2019.12.10 82
3196 ActiveX 호환이 안되는 것인지 궁금합니다. KJ 2020.02.17 82
3195 디버깅을 하면서 메모리에 어떻게 할당됐는지 확인할 수 있나요? 손보라 2016.08.31 84
3194 실행 시 Down Run Away Error..가 발생합니다 [1] sm 2017.09.21 85
3193 델파이 xe seattle 10 사용중 이미지 인쇄 버그 네이트 2020.11.17 85
3192 [10.3.3 브리핑] RAD 서버관련 참고할 자료 안내 부탁드려요. 험프리 2019.12.10 86
3191 [시애틀 출시세미나] 제품소개의 권장사항에 XP가 빠져있는데 XP에서도 사용할 수 있나요? Humphery 2015.09.11 87
3190 rio update 질문입니다. [1] file 희망나라 2020.02.17 87
3189 [개발생산성향상 세미나] 리눅스 지원은 언제쯤 하나요? 험프리 2017.02.22 88
3188 아파치 RAD Server 연동 날개 2021.03.11 88
3187 설치및 구버젼 라인센스 [2] 희망나라 2020.07.02 89
3186 간혹 . 를 찍어도 아무런 반응이 없는 경우.. 가나당 2016.12.22 90
3185 빌더가 설치되지 않은 피시에서 메모리에러 발생 file lamp 2019.12.10 90
3184 실행되지만 레퍼런스에 없는 system.default [1] 임병기 2017.03.26 90
3183 Berlin, Nougat 환경에서 TMemo 관련. [1] 까치발가락 2017.07.28 91
3182 [시애틀 출시세미나] FireDAC의 기능을 자세히 살펴보고 싶어요. Humphery 2015.09.11 93
3181 시애틀에서 비콘사용문의 [1] tonetel 2016.08.16 93
3180 [10.2.2 세미나] 리눅스 app 언제 지원되나요? 험프리 2018.01.18 93