Get img object from ImgId

Dim imgobj As Schema.Class.imgObj = EditorialLogin.Get().GetImg(imgId)

Get how many imgs are in the article and the ratio of the first img

        Dim oArticle = EditorialLogin.Get().ArticleGet(articleId, CDbl(modified))

        artName = oArticle.nameAttr

        i += 1

 

        artNWrd = oArticle.bodyNWordsAttr

        artNLines = oArticle.bodyNLinesAttr

        sMsg0 += CStr(i) & ". " & artName & " words: " & CStr(artNWrd)

 

        For Each sourceArticleText As ChildrenEntry In oArticle.txtsAttr

          Dim sourceText As GenericObj = CType(sourceArticleText.Ref, GenericObj)

          If Not sourceText Is Nothing Then

            If sourceText.Container.Name = photoname Then

              ArtHasImg = True

              ArtNImg += 1

              Dim imgid As Integer = CInt(sourceText.GetResolvedAttributeValue("ref"))

              Dim imgobj As Schema.Class.imgObj = EditorialLogin.Get().GetImg(imgid)

              ' calculate img ratio: 1=square, >1=horizontal, <1=vertical

              FirstImgRatWH = imgobj.widthAttr / imgobj.heightAttr

            End If

          End If

        Next