이것은 TTB(http://blog.aladdin.co.kr/ttb) 에서 제공하는 C#용의 것과는 별도로 작성한 모듈입니다. 그냥.. =_=; 한번 만들어본거에요. 심심해서 커버이미지 다운로드되는기능도추가했구요. 기존에 제가 C#용 모듈을 쓰고있었으나 추가정보및 전체 검색기능이 기본적으로 빠져있어서 어찌되었건 수정을 해야겠더라구요. 그래서 그냥 수정하고쓰느니 공부겸?;;; 새로 만들자하고 만들었습니다. 샘플파일에도 간략한 설명을 넣었지만 혹시 프로젝트를 열지못하는 분들을 위해서 추가로 설명을 하겠습니다.
먼저 Vs를 통해서 신규프로젝트를 생성하세요.(샘플프로젝트를 열어보셨다년 바로 실행이 가능합니다) DLL을 사용하기위해서 첨부된 DLL을 참조추가해주셔야 사용이 가능합니다.
사용방법 :
Dim Ala As New AlaOpenApi.AlaOpenApi("이곳에TTB를 입력하세요", True) Dim Items() As AlaOpenApi.AlaOpenApi.SItem = Ala.Seach("검색어")
Select Case Ala.Errcode Case AlaOpenApi.AlaOpenApi.EError.NoError '//검색된 결과가 있을경우에... '//DataTable 에 표시 (방법1) Dim Dt As DataTable = Ala.Get_DataTable Me.bs.DataSource = Dt Me.DataGridView1.DataSource = Me.bs
'//목록표시 (방법2) For Each Item As AlaOpenApi.AlaOpenApi.SItem In Items Me.RichTextBox1.Text &= vbCrLf & "서명:" & Item.title Next
Case AlaOpenApi.AlaOpenApi.EError.NoResult '//오류는없었으나 검색된 결과가 없을경우에 MsgBox("검색결과가 없습니다") Case Else '//그밖의 오류에 해당하는경우입니다. MsgBox(Ala.ErrMsg, MsgBoxStyle.Critical, "오류") End Select
커버이미지 표시방법
Try '//커버이미지가 있는경우 표시합니다. PictureBox1.Image = Me.Items(배열번호).CoverImg Catch ex As Exception PictureBox1.Image = Nothing End Try
totalResults 검체검색된데이터의 수입니다 startIndex = 현재시작페이지값 Link = 알라딘검색페이지주소 Query = 검색어 searchCategoryId = 카테고리 ID searchCategoryName = 카테고리 이름 itemsPerPage = 페이지당 표시 수
검색된 개체에대한 필드들
title link author pubDate description creator isbn isbn13 priceSales priceStandard stockStatus mileage cover categoryId categoryName publisher customerReviewRank
