[delphizip] Re: TZipMaster 1.72 TFileExtraEvent need some help
- From: "Roger Aelbrecht" <Roger.Aelbrecht@xxxxxxxxxx>
- To: <delphizip@xxxxxxxxxxxxx>
- Date: Thu, 9 Jan 2003 18:23:31 +0100
Russell Peters wrote:
> Thought of more problems (they keep coming out of the woodwork)
Please keep doing that
> if we stop public procedures for operating when busy there is no way
> to test that they failed (ErrNo reflects operation in progress)
> Need to change to functions that return special error if busy or
> ErrNo when finished.
> Also need to wrap setting fBusy and doing the function in try ..
> finally (try ... _finally {fBusy = false;}in builder) otherwise an
> exception might leave it thinking it is busy.
Will adap as soon as I can, still working on MV problems
> Russell Peters
> http://www.users.bigpond.com/russellpeters/delphizip.html
> ----- Original Message -----
> From: "Roger Aelbrecht" <Roger.Aelbrecht@xxxxxxxxxx>
> To: <delphizip@xxxxxxxxxxxxx>
> Sent: Thursday, January 09, 2003 4:09 AM
> Subject: [delphizip] Re: TZipMaster 1.72 TFileExtraEvent need some
> help
>
>
>>
>> Russell Peters wrote:
>>> It took me ages to work that one out (I am or was a C programmer)
>>> try
>>> union CallBackData{
>>> char FilenameOrMessage[512];
>>> struct{
>>> char FileName[504];
>>> byte *Data;
>>> }X;
>>> };
>>> I think that is about right anyway (that's what I visualised it as
>>> then nearly tore my hair out trying to implement it in Delphi)
>>>
>>>> Extra := CallBackData(ZRec^.FileNameOrMsg).Data;
>>> Extra := CallBackData(ZRec->FileNameOrMsg).X.Data; {cast to
>>> CallBackData then get it's Data pointer}
>>>
>>> Trying to work in Delphi has made it difficult to think in either
>>> (it normally ends up being a combination)
>>> Russell Peters
>>> http://www.users.bigpond.com/russellpeters/delphizip.html
>>>
>>>
>>
>> Thanks
>>
>> Roger Aelbrecht
>> http://web.wanadoo.be/driehoeksw
Roger Aelbrecht
http://web.wanadoo.be/driehoeksw
Other related posts:
