[delphizip] Re: Compile Error: Delphi5 Zipmstr

  • From: Eric.Engler@xxxxxxxxxxxxxx
  • To: delphizip@xxxxxxxxxxxxx
  • Date: Tue, 5 Mar 2002 13:41:37 -0500

No problem!  We all have days like that.
 
Eric

-----Original Message-----
From: Jay Eisenstock [mailto:jeisenstock@xxxxxxxxx]
Sent: Tuesday, March 05, 2002 1:38 PM
To: delphizip@xxxxxxxxxxxxx
Subject: [delphizip] Re: Compile Error: Delphi5 Zipmstr


Eric,
Sorry to have clogged the message list with this. I must have somehow
grabbed an earlier version yesterday as the file date was 5/21/99. I
downloaded, installed again and everything is fine. 
Jay
 
 
----- Original Message ----- 

From: Eric.Engler@xxxxxxxxxxxxxx <mailto:Eric.Engler@xxxxxxxxxxxxxx>  
To: delphizip@xxxxxxxxxxxxx <mailto:delphizip@xxxxxxxxxxxxx>  
Sent: Tuesday, March 05, 2002 1:07 PM
Subject: [delphizip] Re: Compile Error: Delphi5 Zipmstr

It sure works for me, and I show that line as being #4123 
 
GetVolumeInformation is a Win API call and the params here are correct.
 
How many total lines do you have in the file? I show 6009.
 
Eric

-----Original Message-----
From: Jay Eisenstock [mailto:jeisenstock@xxxxxxxxx]
Sent: Tuesday, March 05, 2002 11:45 AM
To: delphizip@xxxxxxxxxxxxx <mailto:delphizip@xxxxxxxxxxxxx> 
Subject: [delphizip] Re: Compile Error: Delphi5 Zipmstr


Here is the section of code:
   // Since v1.52c no exception will be raised here; moved to List() itself.
   if NOT GetVolumeInformation( pChar( FDrive ), VolNameAry, NamLen,
@FDiskSerial, SysLen, SysFlags, nil, 0 ) then
   begin
      // W'll get this if there is a disk but it is not or wrong formatted
      // so this disk can only be used when we also want formatting.
      if (GetLastError() = 31) and (AddDiskSpanErase in FAddOptions) then
         Result := True;
      SetErrorMode( OldErrMode );  //v1.52i
      Exit;
   end;
The offending line is the call to GetVolumeInformation.
 
Jay

----- Original Message ----- 
From: Eric.Engler@xxxxxxxxxxxxxx <mailto:Eric.Engler@xxxxxxxxxxxxxx>  
To: delphizip@xxxxxxxxxxxxx <mailto:delphizip@xxxxxxxxxxxxx>  
Sent: Tuesday, March 05, 2002 11:09 AM
Subject: [delphizip] Re: Compile Error: Delphi5 Zipmstr

Please show me what you see on line 3650.
It'd be helpful if you give me a few lines before and after also.
 
Eric

-----Original Message-----
From: Jay Eisenstock [mailto:jeisenstock@xxxxxxxxx]
Sent: Tuesday, March 05, 2002 11:09 AM
To: delphizip@xxxxxxxxxxxxx <mailto:delphizip@xxxxxxxxxxxxx> 
Subject: [delphizip] Re: Compile Error: Delphi5 Zipmstr


Eric,
I just downloaded
<http://www.am004a9659.pwp.blueyonder.co.uk/delzip/dz-del160p.zip>
dz-del160p.zip from  <http://www.geocities.com/SiliconValley/Network/2114/>
www.geocities.com/SiliconValley/Network/2114/  yesterday. So, I assume it is
version 1.60p. However, reading the ZipMStr source itself, it says version
1.52K and the file is dated 5/21/99.
Thanks
Jay

----- Original Message ----- 
From: Eric.Engler@xxxxxxxxxxxxxx <mailto:Eric.Engler@xxxxxxxxxxxxxx>  
To: delphizip@xxxxxxxxxxxxx <mailto:delphizip@xxxxxxxxxxxxx>  
Sent: Tuesday, March 05, 2002 10:33 AM
Subject: [delphizip] Re: Compile Error: Delphi5 Zipmstr

What version of Delphi Zip do you have?
 
I don't show anything on line 3650 that could give that error in version
1.60p.
 
Eric

-----Original Message-----
From: Jay Eisenstock [mailto:jeisenstock@xxxxxxxxx]
Sent: Monday, March 04, 2002 5:59 PM
To: delphizip@xxxxxxxxxxxxx <mailto:delphizip@xxxxxxxxxxxxx> 
Subject: [delphizip] Compile Error: Delphi5 Zipmstr


I get the following error trying to install the ZipMstr component in Delphi
5.
 
[Error] ZipMstr.pas(3650): Types of actual and formal var parameters must be
identical
 
Any suggestions or updates would be appreciated. Thank you.
 
Jay Eisenstock
jeisenstock@xxxxxxxxx <mailto:jeisenstock@xxxxxxxxx> 

Other related posts: