Name (required):

  Expression ^{(Optional mood/title along with your name) Examples: (happy, sad, The Joyful, etc.) help)}

  E-mail address (optional):

Type your message here:
>I am trying to use your TThumbnailMaker component in a >program. I took the code below straight out of the >demo with little modification: >It won't create a thumbnail from a JPG file though the >same file works in the demo. >ThumbnailCreator.FileCount = 0. >I traced the code and FindDibGraphicClass fails to >find a DIB class for 'JPG'. > >Could you point me in the right direction? Thanks! > >Kind regards, >- Jon Grewer > >procedure TForm1.Button2Click(Sender: TObject); >var > ThumbnailCreator : TThumbnailCreator; > FileNameMask : String; > OutputDirectory : String; >begin > FileNameMask := LastImage; > if not InputQuery( 'Thumbnail creation source', >'Example, C:\IMAGES\*.JPG', FileNameMask ) then > Exit; > { Mar 12, 2003. Output was previously hardcoded to >c:\temp } > OutputDirectory := FNBO.Path(LastImage); > if not InputQuery( 'Output directory', '', >OutputDirectory ) then > Exit; > ThumbnailCreator := TThumbnailCreator.Create; > try >// ThumbnailCreator.OnProgress := >Self.OnProgress; > ThumbnailCreator.EnlargeSmallImages := True; > ThumbnailCreator.AddFile( FileNameMask ); > if ThumbnailCreator.FileCount = 0 then > begin > MessageDlg('Thumbnail file list is empty', >mtError, [mbOk], 0); > Exit; > end; > ThumbnailCreator.OutputDirectory := >OutputDirectory; > ThumbnailCreator.BackgroundColor := MakeRgb( >0, 0, 128 ); > ThumbnailCreator.OverrideDestFormat := True; > ThumbnailCreator.DestFormat := >ifTrueColor; > ThumbnailCreator.Execute; > finally > ThumbnailCreator.Free; > end; >end;

Notice: Copies of your message may remain on this and other systems on internet. Please be respectful.