Godfather Forums

Code: Select all

Program PictureFromFileEX2;
var
  i: integer;
  sCoverFile: string;
  ms: TmemoryStream;
begin
  if not tg_init then exit;
  i := 1;
  ms := TMemoryStream.Create;
  sys_SetStatusText( 2, IntToStr( tg_GetRowCount ) );
  repeat
    tg_loadFile;
    sys_SetStatusText( 1, IntToStr( i ) );
    sys_SetStatusText( 3, gTag.Filename );
    sCoverFile := ExtractFilePath( gTag.Filename ) + 'folder.jpg' ;
    if FileExists( sCoverFile ) then begin
       ms.Clear;
       ms.LoadFromFile( sCoverFile )
       gTag.ClearPictures; // remove any existing !!
       gTag.AddPicture( ms, '', 'jpg', 3 );
       gTag.SaveToFile( 0, false, false );
       tg_RefreshRow;
       tg_setResult( 'OK' );
    end;
    i := i + 1;
  until not tg_skip;
  ms.Free;
end.

Code: Select all

0  Other
1  32x32 pixels file icon (PNG only)
2  Other file icon
3  Cover (front)
4  Cover (back)
5  Leaflet page
6  Media (e.g. lable side of CD)
7  Lead artist/lead performer/soloist
8  Artist/performer
9  Conductor
10 Band/Orchestra
11 Composer
12 Lyricist/text writer
13 Recording Location
14 During recording
15 During performance
16 Movie/video screen capture
17 A bright coloured fish
18 Illustration
19 Band/artist logotype
20 Publisher/Studio logotype