[delphizip] Re: HELP URGENT NEEDED

  • From: Roger Aelbrecht <Roger.Aelbrecht@xxxxxxxxx>
  • To: delphizip@xxxxxxxxxxxxx
  • Date: Thu, 25 Feb 2016 14:08:00 +0100

That is something with the compiler settings and I am not able to help 
you there because I don't have
any RAD Studio.

Qasim Butt schreef:

Hi Roger still unable to get it working im getting this warning.
I am using RAD Studio 2010
[TLIB Warning] Warning: library was too large for page size, rebuilt with
page size 512

On 23 February 2016 at 11:28, Qasim Butt <09qbutt@xxxxxxxxx> wrote:

Thanks Roger really appreciated.

On 23 February 2016 at 08:26, Roger Aelbrecht <Roger.Aelbrecht@xxxxxxxxx>
wrote:

Qasim Butt schreef:
Hi there Roger,
thanks for the response but there is no ZBMsg,h file I am using
Zipbuilder
1,92
On 22 February 2016 at 19:52, Roger Aelbrecht <
Roger.Aelbrecht@xxxxxxxxx>
wrote:

Qasim Butt schreef:
Hi there,
I have been trying everyday for countless hours trying to install the
Zipbuilder package, I am getting errors
int __fastcall TZBHandler::LoadDefaultStrings(TStrings* DefStrs)
{
     int Result;
     TMemoryStream* si = new TMemoryStream();
     try
     {  // load 'static' compressed default strings
DWORD CRC;
ReadCompressedStrings(si); // read array
si->Position = 0;
si->ReadBuffer(&CRC, static_cast<int>(sizeof(DWORD)));
TMemoryStream* so = new TMemoryStream();
try
{


[bcc32 Error] ZBHandler.cpp(170): E2268 Call to undefined function
'ReadCompressedStrings'
     Full parser context
       ZBHandler.cpp(164): parsing: int _fastcall
TZBHandler::LoadDefaultStrings(TStrings *)




AND







#ifndef UNICODE
if(IsUTF8) sl->Text = WideToUTF8(ws);
else
#endif
     sl->Text = ws;  // will convert
for(int i = 0; i < sl->Count; ++i)
{
    String s = sl->Strings[i];
    int psn;
    if((psn = s.Pos(",")) < 2) continue;
    String IdStr = Trim(s.SubString(1, psn - 1));
         if(IdStr.IsEmpty()) continue;
    int Id = -1;
    if(IdStr[1] == _T('Z')) Id = FindIndentifier(IdStr);
    if(Id < 0)
    {
if(!TryStrToInt(IdStr, Id)) continue; // not found or invalid
    }
    if(Id > MAX_ID) continue;
    String qs = Trim(s.SubString(psn + 1, s.Length()));
    s = qs;
    if(!qs.IsEmpty() && (qs[1] == _T('\"')))
    {
TCHAR* qsp = qs.c_str();
s = AnsiExtractQuotedStr(qsp, '\"');



[bcc32 Error] ZBHandler.cpp(237): E2268 Call to undefined function
'FindIndentifier'
     Full parser context
       ZBHandler.cpp(219): parsing: int _fastcall
TZBHandler::MergeStrs(TStrings *,const UnicodeString &)



any help will be immensely helpful asap


Kind Regards,
Qasim  Butt


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

ReadCompressedStrings is a function in ZBMsg.h and .cpp

void __fastcall ReadCompressedStrings(TMemoryStream* si)
{
     si->WriteBuffer(&CompBlock, sizeof(CompBlock));
}


--
Roger Aelbrecht

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

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

I see that the files are missing in the setup package, I will correct
and upload a new version later today,
meanwhile you can download the  Zipbuilder 1920015.zip package and get
the files from there.

--
Roger Aelbrecht

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



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



-- 
Roger Aelbrecht

-----------
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: