long i, ll_ret, ll_zip
unz_fileinfo lstr_info
string ls_file, ls_comment
ulong lul_filesize, lul_commentsize
ulong lul_extra, lul_extrasize
blob lblob_data
ulong lul_datasize

lul_filesize =  256 
ls_file  = Space(lul_filesize)
lul_commentsize  =  512 
ls_comment   = Space(lul_commentsize)

ll_zip = unzOpen(as_zip)

if ll_zip<= 0  then 
	return ll_zip
else
	ll_ret = unzGoToFirstFile(ll_zip)
	
	i =  0 
	do while ll_ret= 0 
		i += 1 
		
		ll_ret = unzGetCurrentFileInfo(ll_zip, lstr_info, ls_file, lul_filesize, lul_extra, lul_extrasize, 
                                                        ls_comment, lul_commentsize)
		
		this.is_files[i] = as_dir + '\' + ls_file
		
		if ll_ret<> 0  then 
			i = ll_ret
			exit
		end if
		
		lul_datasize = lstr_info.uncompressed_size
		lblob_data = blob(space(lul_datasize))

		ll_ret = unzReadCurrentFile(ll_zip, lblob_data, lul_datasize)
		
		if ll_ret<> 0  then 
			i = ll_ret
			exit
		end if
		
		of_writefile(this.is_files[i], lblob_data)
		
		ll_ret = unzGoToNextFile(ll_zip)
		
		if ll_ret<> 0  then 
			i = ll_ret
			exit
		end if
	loop
	
	unzClose(ll_zip)
end if

return i

long i, ll_ret, ll_zip, ll_size
unz_fileinfo lstr_info
string ls_file, ls_comment
ulong lul_filesize, lul_commentsize
ulong lul_extra, lul_extrasize
blob lblob_data

lul_filesize =  256 
ls_file  = Space(lul_filesize)

lul_commentsize  =  512 
ls_comment   = Space(lul_commentsize)

ll_zip = unzOpen(as_zip)

if ll_zip<= 0  then 
	return ll_zip
else
	ll_ret = unzGoToFirstFile(ll_zip)
	
	i =  0 
	do while ll_ret= 0 
		i += 1 
		
		ll_ret = unzGetCurrentFileInfo(ll_zip, lstr_info, ls_file, lul_filesize, lul_extra, lul_extrasize, ls_comment, lul_commentsize)
		
		this.is_files[i] = as_dir + '\' + ls_file
		
		if ll_ret< 0  then 
			i = ll_ret
			exit
		end if
		
		lblob_data = blob(space(lstr_info.uncompressed_size* 2 )) //проблема в двойке, без нее валилось
		garbagecollect() // без этого периодически тоже
		
		ll_ret = unzOpenCurrentFile(ll_zip) // вот это забыл
		
		if ll_ret< 0  then 
			i = ll_ret
			exit
		end if
		
		ll_size = unzReadCurrentFile(ll_zip, lblob_data, lstr_info.uncompressed_size) // а вот здесь без двойки надо
		
		unzCloseCurrentFile(ll_zip) // и вот это забыл
		
		if ll_ret< 0  then 
			i = ll_ret
			exit
		end if
		
		of_writefile(this.is_files[i], lblob_data)
		
		ll_ret = unzGoToNextFile(ll_zip)
		
		if ll_ret< 0  then 
			i = ll_ret
			exit
		end if
	loop
	
	unzClose(ll_zip)
end if

return i