[delphizip] Bug report zipMaster179.10.23 on Delphi 2009 in FindInStream()

  • From: <l.ploeger@xxxxxx>
  • To: <delphizip@xxxxxxxxxxxxx>
  • Date: Thu, 22 Oct 2009 12:24:51 +0200

L.S.,

I was testing the language support of the latest release of the ZipMaster 
components and couldn't get it to work by using

ZipMaster.Language := 'NL';

I had {$R ZMRes.res} added to my main unit.

As far as I understand there is a problem in 

function FindInStream(src: TStream; var segname: String;  var lid: Word): 
Boolean;

defined in ZMMsgStr.pas.

The variables s, l, seg and c are declared as follows

  s, l, seg: String;
  c:   Char;

Whereas they should be declared as 

  s, l, seg: AnsiString;
  c:   AnsiChar;

Using the original code Unicode and Ansi characters got mixed up.

I hope this is clear.

Best regards,

Lennert.
-----------
To unsubscribe from this list, send an empty e-mail 
message to:
  delphizip-request@xxxxxxxxxxxxx 
and put the word unsubscribe in the subject.

Other related posts: