This is the load function:
Try
Dim Ft As New
Services.Implementations.Rest.PartnerService("API_KEY")
Dim i, iNrFoto, iNrGallery As Integer
Dim request As New FTTK.Entities.SearchRequest
Dim filter As New FTTK.Entities.SearchFilters
Dim Cat As System.Collections.Generic.IEnumerable(Of
FTTK.Entities.Category)
Dim Foto As System.Collections.Generic.IEnumerable(Of
FTTK.Entities.Media)
Cat = Ft.GetConceptualCategories(6)
iNrFoto = Cat.Count
'Carico le foto
filter.ContentType = Entities.SearchResultsContentType.All
filter.Licenses = Entities.SearchResultsLicense.All
filter.PanoramicImages = True
request.LanguageID = 6
request.DetailLevel = Entities.SearchDetailLevel.Extended
request.Filters = filter
request.ResultsOrderCriteria =
Entities.SearchResultsOrder.Relevance
request.ConceptualCategoryId = "1000000"
request.MaximumResult = 10
Foto = Ft.GetSearchResults(request, iNrFoto,
Entities.SearchResultsColumns.All, False)
For i = 0 To Foto.Count - 1
'Per ogni foto
If i <> 0 And i Mod 10 = 0 Then
PHbody.Controls.Add(New LiteralControl("<br/>"))
End If
PHbody.Controls.Add(New LiteralControl("<a href='" &
Foto(i).AffiliationLink & "'><img src='" & Foto(i).Thumbnail110.Url &
"' /> - " & Foto(i).Id & "</a> "))
Next
Catch ex As Exception
Response.Write(ex.Message)
End Try
in the "Bin" directory i saved all the dll files that i find in the
zip download.
Thenks