[delphizip] Re: Zip Master missed component(s) in the zip file
- From: I Komang Wendra Arinegara <Wendra.arinegara@xxxxxxxxxxx>
- To: "delphizip@xxxxxxxxxxxxx" <delphizip@xxxxxxxxxxxxx>
- Date: Wed, 9 Sep 2009 14:28:25 +0800
Thanks you Russel,
I will try the code and get back to you when have the update.
Cheers
Wendra
-----Original Message-----
From: delphizip-bounce@xxxxxxxxxxxxx [mailto:delphizip-bounce@xxxxxxxxxxxxx] On
Behalf Of RPeters
Sent: Wednesday, 9 September 2009 2:25 PM
To: delphizip@xxxxxxxxxxxxx
Subject: [delphizip] Re: Zip Master missed component(s) in the zip file
I Komang Wendra Arinegara wrote:
> Hi Russel,
>
> Thank you for your prompt reply.
> Below are further information :
> 1. Windows version is Microsoft Windows Server 2003 (standard edition)
> 2. no it doesn't consistently miss the same file, in fact this incident is
> not consistently happens. When we run from Citrix Corporate Desktop it often
> happen
> 3. I'm not too familiar with this module, so could you please advise how to
> use the ONMessage handler? (originally, Verbose and trace was set to false, I
> just set it true but don't know where to find the log message)
>
> The application itself come to me without any documentation detailing how to
> use ZIPMaster functionality and I hardly found documentation for this version
> do you still keep one?
>
> Thanks
>
> Wendra
>
>
>
>
> -----Original Message-----
> From: delphizip-bounce@xxxxxxxxxxxxx [mailto:delphizip-bounce@xxxxxxxxxxxxx]
> On Behalf Of RPeters
> Sent: Wednesday, 9 September 2009 1:47 PM
> To: delphizip@xxxxxxxxxxxxx
> Subject: [delphizip] Re: Zip Master missed component(s) in the zip file
>
> I Komang Wendra Arinegara wrote:
>
>> Hi,
>> Currently I'm working on an application which uses ZipMaster version v1.52M
>> Jun. 6, 2000.
>> I'm the not the intial developer for the application just doing a support.
>> The problem I have now is that zip resulted is intermittent and randomly
>> miss some components which the program issued to be zipped.
>> Is this a known problem?
>>
>> Below is the snap shot when calling zipmaster.add
>>
>>
>> ZipMasterPackage := TZipMaster.create(Self);
>> ZipMasterPackage.DLLDirectory := DLL_DIRECTORY;
>> ZipMasterPackage.Load_Zip_Dll;
>> with ZipMasterPackage do begin
>> Verbose := True;
>> Trace := True;
>> AddCompLevel := 9;
>> AddOptions := [AddDirNames];
>> end;
>> ZipMasterPackage.ZipFilename := vZipName;
>> ZipMasterPackage.FSpecArgs.Add(vFromPath);
>> Screen.Cursor := crHourglass;
>> Application.ProcessMessages;
>> ZipMasterPackage.Add;
>>
>> vComponentCount := ZipMasterPackage.Count;
>>
>> ZipMasterPackage.Unload_Zip_Dll;
>> FreeAndNil(ZipMasterPackage);
>>
>>
>> Thanks in advance
>> [cid:image001.gif@01CA3148.8293A180]
>> Wendra Arinegara
>> Senior Software Engineer
>> Phone +62 (361) 755 025
>> Facsimile +62 (361) 755 024
>> http://www.mitrais.com<http://www.mitrais.com/>
>>
>> "Our doubts are traitors, and make us lose the good we oft might win by
>> fearing to attempt" -William Shakespeare-
>>
>> This e-mail is for the intended addressee only and is confidential
>> information. If you have received this transmission in error please delete
>> and notify the sender. The contents of this e-mail are the opinion of the
>> writer only and are not endorsed by Mitrais unless expressly stated
>> otherwise.
>>
>>
>>
>> -----------
>> To unsubscribe from this list, send an empty e-mail
>> message to:
>> delphizip-request@xxxxxxxxxxxxx
>> and put the word unsubscribe in the subject.
>>
>>
> That is an old version but I don't remember any such problems but there
> is not much information to go on.
> A few questions -
> 1. what windows versions?
> 2. does it consistently miss the same files?
> 3. if you save the trace messages to a list (via OnMessage) does it
> mention the missed files.
>
> A couple of things about the code you show-
> 1. Verbose and Trace are set but no OnMessage handler is attached - this
> will slow things.
> 2. You set AddDirNames but not AddRecurseDirs which seems strange.
> 3. you don't check that it finished without an error.
> Russell Peters
> -----------
> 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 cannot find any help for earlier than 1.73.
Basically to catch the trace messages something like this should work-
Var
Msgs: TStringList;
ZipMessage( Sender: TObject; ErrCode: Integer; Message: String );
begin
if assigned(Msgs) then
Msgs.Add(Format('[%d] %s', [ErrCode, Message]);
end;
Msgs := TStringList.Create;
ZipMasterPackage := TZipMaster.create(Self);
ZipMasterPackage.DLLDirectory := DLL_DIRECTORY;
ZipMasterPackage.Load_Zip_Dll;
with ZipMasterPackage do begin
Verbose := True;
Trace := True;
AddCompLevel := 9;
AddOptions := [AddDirNames];
OnMessage := ZipMessage;
end;
...
ZipMasterPackage.Unload_Zip_Dll;
FreeAndNil(ZipMasterPackage);
Msgs.SaveToFile('ziplog.txt');
Msgs.free;
Of course it needs to be compiled with an early (D2007 or earlier) Delphi.
Given your code you should pretty well be able to drop ZipMaster 1.79
into it (it does have help).
Russell Peters
-----------
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.
Other related posts:
