[delphizip] Re: TZipMaster 1.72 TFileExtraEvent need some help
- From: "Russell Peters" <russellpeters@xxxxxxxxxxx>
- To: <delphizip@xxxxxxxxxxxxx>
- Date: Thu, 9 Jan 2003 07:35:04 +1100
Thought of more problems (they keep coming out of the woodwork)
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.
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
>
>
Other related posts:
