VoyForums
[ Show ]
Support VoyForums
[ Shrink ]
VoyForums Announcement: Programming and providing support for this service has been a labor of love since 1997. We are one of the few services online who values our users' privacy, and have never sold your information. We have even fought hard to defend your privacy in legal cases; however, we've done it with almost no financial support -- paying out of pocket to continue providing the service. Due to the issues imposed on us by advertisers, we also stopped hosting most ads on the forums many years ago. We hope you appreciate our efforts.

Show your support by donating any amount. (Note: We are still technically a for-profit company, so your contribution is not tax-deductible.) PayPal Acct: Feedback:

Donate to VoyForums (PayPal):

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, [4], 5, 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 18:33:52 03/08/03 Sat
Author: Michel
Subject: Re: Generating Thumbs on drive other than C: fails
In reply to: SaturdaySoftware 's message, "Re: Generating Thumbs on drive other than C: fails" on 06:55:31 03/08/03 Sat


Hi Robert,

I was not able to reproduce the error. It works fine on my d: drive. The check,

if (SearchRec.Attr and Attributes) = SearchRec.Attr then

should not affect anything, since it is only validating the results found really have the proper attributes, although it does not have any added value, since FindFirst, FindNext should work properly.

here is the latest code that will be in the next revision:


procedure TThumbnailCreator.AddFile( const FileName : String );

procedure TestFormatAndAdd( const FileName : String;
const Path : String);
begin
if FindDibGraphicClass(FileName) <> nil then
FFileNames.Add(Path + FileName);
end;

var
SearchRec : TSearchRec;
Attributes : Integer;
Path : String;
begin
Path := ExtractFilePath(FileName);

{ Mar 08, 2003. Also include hidden. }
Attributes := faReadOnly + faArchive + faHidden;

if FindFirst(FileName, Attributes, SearchRec) = 0 then
begin
TestFormatAndAdd(SearchRec.Name, Path);

while FindNext(SearchRec) = 0 do
TestFormatAndAdd(SearchRec.Name, Path);

FindClose(SearchRec);
end;
end;


Best regards,

Michel


>Looks like the vendor of this product does not really
>care about the stuff going on. For some reason, they
>are using attributes in the lib for generating thumbs.
>If I take the attribute check out of the source I can
>generate thumbs on any drive.
>My direct question to the support (is there any???)
>why the attributes are used is still unanswered. Sad,
>sad, sad!!!
>I am sure somebody though of something and put the
>attribute checking into the lib. I donīt understand it
>and INTERVAL does not seem to answer emails with
>support questions!!!
>Have a nice weekend,
>Robert

[ Next Thread | Previous Thread | Next Message | Previous Message ]
[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.