Lianja

Transition from Zip.FirstEntry to Zip.EntryAt

Provides instructions for replacing deprecated FirstEntry method calls with EntryAt. Lianja

llSuccess = .F.

loZip = createobject("CkZip")

// ...
// ...

// ------------------------------------------------------------------------
// The FirstEntry method is deprecated:

loEntryObj = loZip.FirstEntry()
if (loZip.LastMethodSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

// ...
// ...

release loEntryObj

// ------------------------------------------------------------------------
// Do the equivalent using EntryAt.

// Your application creates a new, empty ZipEntry object which is passed 
// in the last argument and filled upon success.

// The 1st entry is at index 0.
loZe = createobject("CkZipEntry")
llSuccess = loZip.EntryAt(0,loZe)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loZe
    return
endif



release loZip
release loZe