주소 좌표변환 관련 질문입니다. 도와주세요

카카오맵 API (지도/로컬)
1

응용 프로그램에서 다음 지도를 이용한 이용자 입니다.
기존 잘 사용하고 있었는데
이번달 까지 다음지도를 카카오지도로 변경해야 한다고 해서 지금 작업 중인데요

개발툴은 vb6.0 입니다.
기존에는

sURL = “http://apis.daum.net/local/geo/addr2coord?apikey=” & sDataKey & “&q=” & sDefaultAddr & "&output=xml"
WinHttp.Open “GET”, sURL
WinHttp.send
WinHttp.WaitForResponse
sTemp = Trim(WinHttp.responseText)

이런 코드로 결과값 받아와서 작업했는데…

이번에 카카오로 변경되면서 rest api를 사용해야 한다고 하는데
응용프로그램만 개발하다보니 웹쪽은 거의 문외한 입니다.

rest api관련 검색도 해보고 여기 사이트의 rest api관련 글을 봐도 도통 어떻게 적용을 해야 할지
감이 안잡히네요…

간단한 예제라도 좋으니 도움 좀 부탁드립니다.

2

vb6.0 환경에서 호출을 어떻게 해야하는 지는 제가 정확히 알지 못해 가이드 드릴 수는 없고,

기존 대비 달라진 점은 아래의 가이드에서와 같이
앱키를 URL 파라미터가 아닌 헤더에 담아 요청을 해야한다는 부분입니다.

https://developers.kakao.com/docs/restapi/local#주소-검색

3

VB.NET 소스 입니다.
Dim url As String = "https://dapi.kakao.com/v2/local/search/address.json?" & “query=” + Addr

            Dim resPonse As HttpWebResponse = Nothing
            Dim Reader As StreamReader = Nothing

            Dim Request As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
            Request.Headers.Add("Authorization", "KakaoAK " & apiKey)
            Request.AllowAutoRedirect = False
            Request.ContentType = "application/json;charset=UTF-8"
            Request.Method = "GET"


            resPonse = DirectCast(Request.GetResponse(), HttpWebResponse)
2개의 좋아요
4

코드 자체는 문제 없어보입니다.
제가 추가로 살을 붙여서 해 본 코드로는 문제없이 결과가 받아지는데요.
한 번 확인해 보세요.

Dim url As String = "https://dapi.kakao.com/v2/local/search/address.json?query=" + "강남동"

Dim resPonse As HttpWebResponse = Nothing
Dim Reader As StreamReader = Nothing
Dim webResponse = ""
    
Dim Request As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
Request.Headers.Add("Authorization", "KakaoAK " & "YOUR_API_KEY"      
Request.AllowAutoRedirect = False
Request.ContentType = "application/json;charset=UTF-8"
Request.Method = "GET"
    
resPonse = DirectCast(Request.GetResponse(), HttpWebResponse)
    
Dim webStream As Stream = resPonse.GetResponseStream()
    
Reader = New StreamReader(webStream)
While Reader.Peek >= 0
	webResponse = Reader.ReadToEnd()
End While
    
Console.WriteLine(webResponse)
5

아… 밑에 댓글 다신 분이 질문자분이 아니셨구나…

@lee7071
비록 댓글다신분이 작성하신 코드에는 address.json을 호출하고 있지만
인증 방식과 관련된 코드들은 똑같기 때문에 좌표변환 API로 URL만 바꾸고
나머지 인증 관련 코드는 그대로 사용하시면 될 듯 합니다.

@2004kjw 감사합니다. 작성해주신 코드 정말 잘 동작하는거 같아요.