>>If Not "gpImage" $ Set("Procedure") >> Set Procedure To gpImage Additive >>EndIf >> >>gdip = CreateObject("gpInit") >>img = CreateObject("gpImage") >>img.Load(lcFile) >>img.SelectPage(1) >>ThisForm.oleListView.Picture = img.GetPicture() >>>>Here ListView is used only to display image and no ListView items should be added.
>>If Not "gpImage" $ Set("Procedure") >> Set Procedure To gpImage Additive >>EndIf >> >>gdip = CreateObject("gpInit") >>img = CreateObject("gpImage") >> >>* Store each page as separate file >>img.Load("multpage.tif") >>For i = 0 TO img.GetPageCount() - 1 >> img.SelectPage(i) >> img.SaveAsJPEG("page" + Transform(i)) >>EndFor >>