[delphizip] Re: Zipmaster
- From: "Roger Aelbrecht" <Roger.Aelbrecht@xxxxxxxxxx>
- To: <delphizip@xxxxxxxxxxxxx>
- Date: Sun, 3 Nov 2002 14:00:50 +0100
----- Original Message -----
From: "Roger Aelbrecht" <Roger.Aelbrecht@xxxxxxxxxx>
To: <delphizip@xxxxxxxxxxxxx>
Sent: Saturday, November 02, 2002 4:04 PM
Subject: [delphizip] Re: Zipmaster
>
> Sorry for late reply
>
> the proposed change is really useful
I was sopposed to read NOT usefull
>
> in procedure TZipMaster.SetDLLDirectory(Value: string);
> the trailing backslash if there is one is removed.
>
> so we only need one test, the one already there.
> FDLLDirectory is a private class member and cannot be used
> outside the class. Users will use the property hence
> SetDllDirectory procedure
>
>
> Roger Aelbrecht
> http://web.wanadoo.be/driehoeksw
> ----- Original Message -----
> From: "Alistair George" <bigal@xxxxxxxxxx>
> To: "Eric.Engler@xxxxxxxxxxxxxx" <delphizip@xxxxxxxxxxxxx>
> Sent: Tuesday, October 29, 2002 10:13 PM
> Subject: [delphizip] Zipmaster
>
>
> >
> > Hello Eric,
> >
> > Suggested code change:
> > procedure TZipMaster.Load_Zip_Dll;
> > var
> > fullpath: string;
> > begin
> > // This is new code that tries to locate the DLL before loading it.
> > // The user can specify a dir in the DLLDirectory property.
> > // The user's dir is our first choice, but we'll still try the
> > // standard Windows DLL dirs (Windows, Windows System, Current dir).
> > //Some users may make FDLLDirectory with, or without the
> appendbackslash
> > fullpath := '';
> >
> > if FDLLDirectory <> '' then
> > if FileExists(FDLLDirectory + '\ZIPDLL.DLL') then
> > fullpath := FDLLDirectory + '\ZIPDLL.DLL'
> > else if FileExists(FDLLDirectory + 'ZIPDLL.DLL') then
> > fullpath := FDLLDirectory + 'ZIPDLL.DLL';
> >
> > if fullpath = '' then
> > fullpath := 'ZIPDLL.DLL'; // Let Windows search the std dirs
> >
> >
> >
> >
> >
> > and
> >
> > procedure TZipMaster.Load_Unz_Dll;
> > var
> > fullpath: string;
> > begin
> > // This is new code that tries to locate the DLL before loading it.
> > // The user can specify a dir in the DLLDirectory property.
> > // The user's dir is our first choice, but we'll still try the
> > // standard Windows DLL dirs (Windows, Windows System, Current dir).
> > //Some users may make FDLLDirectory with, or without the
appendbackslash
> > fullpath := '';
> > if FDLLDirectory <> '' then
> > if FileExists(FDLLDirectory + '\UNZDLL.DLL') then
> > fullpath := FDLLDirectory + '\UNZDLL.DLL'
> > else if FileExists(FDLLDirectory + 'UNZDLL.DLL') then
> > fullpath := FDLLDirectory + 'UNZDLL.DLL';
> >
Sorry for the typing error
Roger Aelbrecht
http://web.wanadoo.be/driehoeksw
Other related posts:
