[delphizip] Re: Zip Master missed component(s) in the zip file
- From: James Turner <james.d.h.turner@xxxxxxxxxxxx>
- To: delphizip@xxxxxxxxxxxxx
- Date: Wed, 09 Sep 2009 12:59:53 +0100
Could unicode be the problem?
If filenames use characters that are not correctly translated between
WideChar and Multibyte then problems can arise.
-- James Turner
RPeters wrote:
> I Komang Wendra Arinegara wrote:
>
>> Hi Russell,
>> I have put the traces and come up with result (as enclosed)
>> I found " [852493] Missing or empty zip file" where the component to be
>> missed out in the zip package.
>>
>> Do you know what may cause the error?
>>
>> Thanks
>>
>>
>> Wendra
>>
>> -----Original Message-----
>> From: I Komang Wendra Arinegara
>> Sent: Wednesday, 9 September 2009 2:28 PM
>> To: delphizip@xxxxxxxxxxxxx
>> Subject: RE: [delphizip] Re: Zip Master missed component(s) in the zip file
>>
>> 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.
>>
>>
> It means that it fail to add any files.
> Probable causes (that I can think of)
> 1. The currentDir can not be found - only if relative addressing used.
> 2. the file specifications are invalid (extended characters?).
> 3. the files are inaccessable (no permission?)
> 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:
