도로명 주소 변환 관련 델마당에 올려주신 고마우신 님들 덕분에 프로그램을 만들어 잘 사용하고 있었는데
어느덧 인증기간이 만료되어버렸네요...
그래서 다시 인증을 받아 컴파일을 해 보니 결과가 전혀 안 나오길래 봤더니 그새 API 사용법도 변경이
되어 있네요...
그래서 새로운 API 사용법을 적용하여 다시 리뉴얼 하였습니다.

핵심소스... 델파이 10.1
procedure TForm3.btnFindClick(Sender: TObject);
var
    Code, Url, SearchWord, FindKeyWord: string ;
    Data, DResult: TStringStream;
    OuterRoot, EntryNode: IXmlNode;
    i, j: Integer;
begin
    if Trim(edtAddr.Text).IsEmpty then
    begin
        ShowMessage('검색할 구주소를 입력하십시오..');
        edtAddr.SetFocus;
        Exit;
    end;

    if rdgAddr.ItemIndex = 0 then
        FindKeyWord := 'roadAddr'
    else
        FindKeyWord := 'roadAddrPart1';

    DResult := TStringStream.Create('');

    try
        Screen.Cursor := crHourGlass;
        idHttp.Request.ContentType := 'application/json';

        Code :=  TNetEncoding.URL.Encode('발급받은 인증키를 입력하십시오...');

        SearchWord := TNetEncoding.URL.Encode(edtAddr.Text);

        Url:= 'http://www.juso.go.kr/addrlink/addrLinkApi.do';
        IdHttp.Get(Url + '?confmKey=' + Code + '&keyword=' + SearchWord, DResult);

        XMLDocument.LoadFromStream(DResult);
        XMLDocument.Active:=True;

        OuterRoot := XMLDocument.DocumentElement;
        if OuterRoot.ChildNodes.Count <= 1 then
        begin
            gdResult.ClearRows(gdResult.FixedRows, 1);
            gdResult.RowCount := 2;

            btnClipBoardCopy.Enabled := False;
            ShowMessage('해당하는 도로명 주소를 찾을 수가 없습니다...');
            edtAddr.SetFocus;
            Exit;
        end;

        with gdResult do
        begin
            RowCount := OuterRoot.ChildNodes.Count;
            ClearRows(FixedRows, RowCount - FixedRows);
            AutoNumberCol(0);
        end;

        for i := 0 to OuterRoot.ChildNodes.Count -1 do
        begin
            if OuterRoot.ChildNodes[i].NodeName = 'juso' then
            begin
                EntryNode := OuterRoot.ChildNodes[i];

                if EntryNode.ChildNodes.Count > 0 then
                begin
                    // 아래 출력 변수명들이 변경되었음...
                    for j := 0 to EntryNode.ChildNodes.Count -1 do
                    begin
                        if EntryNode.ChildNodes[j].NodeName = 'zipNo' then
                            gdResult.Cells[1, i] := EntryNode.ChildNodes[j].Text
                        else if EntryNode.ChildNodes[j].NodeName = FindKeyWord then
                            gdResult.Cells[2, i] := EntryNode.ChildNodes[j].Text
                        else if EntryNode.ChildNodes[j].NodeName = 'jibunAddr' then
                            gdResult.Cells[3, i] := EntryNode.ChildNodes[j].Text;
                    end;
                end
            end;
            gdResult.SetFocus;
            btnClipBoardCopy.Enabled := True;
        end;
    finally
        DResult.Free;
        Screen.Cursor := crDefault;
    end;
end;

프로그램 전체 소스는 아래 블로그에서 다운 받을 수 있습니다.
blog.naver.com/seejune66