[delphizip] Re: Error when extracting some zip-files
- From: "Russell Peters" <russellpeters@xxxxxxxxxxx>
- To: <delphizip@xxxxxxxxxxxxx>
- Date: Fri, 3 Jan 2003 07:10:57 +1100
It would appear that you are using an invalid index for DirEntry (allowed
0..Count-1).
Need to see your code for setting up for extraction.
Russell Peters
http://www.users.bigpond.com/russellpeters/delphizip.html
----- Original Message -----
From: "Stefan" <stefan.hagstedt@xxxxxxxxx>
To: "TZIP mailinglist" <delphizip@xxxxxxxxxxxxx>
Sent: Friday, January 03, 2003 3:56 AM
Subject: [delphizip] Error when extracting some zip-files
> Hi everybody.
>
> I'm doing a small program in Delphi 6. I'm using ZipMaster 1.70
> I'm still trying to figure out how to use it.
>
> So far I just dropped the ZipMaster component on an empty form and added a
filelistox, 2 editbox and a button.
> In the filelistbox, I list all zip-files in a specific folder and when I
pres the button the selected file are extracted.
>
> I use the 2nd editbox only to view a selected file from the zip.
>
> This is the code for what executes when I press the button:
>
> ZipMaster1.ZipFileName:=edit1.text;
> edit2.Text:=ExtractFileName(ZipMaster1.Direntry[1].filename);
>
> Now, everything works fine except when I try to extract 2 specific files
from the folder.
> The error reads: Exception error , class EListError with message "List
index out of bounds(1)'
>
> When I trace the program it seems it halts in the unit ZipMstr in this
function:
>
> function TZipMaster.GetDirEntry(idx: integer): ZipDirEntry;
> begin
> Result := pZipDirEntry(ZipContents.Items[idx])^;
> end;
>
> The zip-files don't seem to be corrupted because I can extract them with
WinZip without problems.
>
> Anyone have an idea how to solve this?
> I could use an eventhandler to let the user know that the file is corrupt
but afak the files aren't.
>
> /Stefan Hagstedt
>
>
Other related posts:
