Tagger on line avec "the Godfather"

{https://www.allmusic.com/}
{?
 TITLE=FORM;SQL=%:str|OPT1=3:int|Submit=#:click
 ALBUM=FORM;SQL=%:str|OPT1=2:int|Submit=#:click
 ARTIST=FORM;SQL=%:str|OPT1=1:int|Submit=#:click
/?}

Program Allmusic;

var
  slMain: TStringList;
  iRow, iRowTemp: integer;
  sReviewURL, sCreditsURL, sTmp: String;

  //---
  procedure GetImage;
  var
    iSavedRow, iPos: integer;
    sLine: string;
  begin
    if on_FindRow( iRow, 0, '<!--Begin Album Photo-->', slMain ) then begin
       iSavedRow := iRow;

       if on_FindRow( iRow, 0, '<!--End Album Photo-->', slMain ) then begin
          if on_FindRow( iSavedRow, iRow, '.jpg', slMain ) then begin //search between the 2 lines for a jpg entry
           iRow := iSavedRow;
           sLine := slMain.Strings[ iRow ];
           iPos := Pos( '"http:', sLine );
           if iPos > 0 then begin
           sTmp := Copy( sLine, iPos + 1, 99999 );
           iPos := Pos( '.jpg"', sTmp );
           if iPos > 0 then begin
           sTmp := Copy( sTmp, 1, iPos + 3 );
           on_setPicture( sTmp );
           end;
           end;
          end;
       end;

    end;
  end;

  //---
  function GetListing: string;
  begin
    iRow := iRow + 4;
    result := '';
    while on_cleanHTMLLine( slMain.Strings[ iRow ] ) <> '' do begin
       result := result + ',' + on_cleanHTMLLine( slMain.Strings[ iRow ] );
       iRow := iRow + 1;
    end;
    if result <> '' then result := Copy( result, 2, 9999 );
  end;

  //---
  procedure GetTracks; //this procedure was done by lboregard, thanks!
  var
    sTrack, sArtist, sComposer, sTitle, sTime: string;
    iTrack: integer;
    found: boolean;
  begin
    iTrack := 1;
    found := true;

    while found do begin
       sTrack := on_CleanHTMLLine(slMain.Strings[iRow]); // track no;
       iRow := iRow + 2;
       sTitle := on_cleanHTMLLine(slMain.Strings[iRow]); // title
       iRow := iRow + 1;
       sComposer := on_cleanHTMLLine(slMain.Strings[iRow]); // composer
       iRow := iRow + 1;
       sTime := on_cleanHTMLLine(slMain.Strings[iRow]); // time

       if on_cleanHTMLLine(slMain.Strings[iRow + 7] ) = 'Composed by:' then begin
          sComposer := on_cleanHTMLLine(slMain.Strings[iRow + 8] );
          if on_cleanHTMLLine(slMain.Strings[iRow + 10] ) = 'Performed by:' then sArtist := on_cleanHTMLLine(slMain.Strings[iRow + 11] );
       end;

       if on_cleanHTMLLine(slMain.Strings[iRow + 7] ) = 'Performed by:' then sArtist := on_cleanHTMLLine(slMain.Strings[iRow + 8] );
       if Copy( sArtist, Length(sArtist), 1) = ',' then delete(sArtist,Length(sArtist),1);

       on_addTrack( sTrack, sTitle, sComposer, sTime );
       iTrack := iTrack + 1;
       found := on_FindRow(iRow, 0, IntToStr(iTrack)+'</TD>', slMain);

    end;

  end;

  //---
  procedure GetReview;
  begin
    iRow := iRow + 4;
    sTmp := '';
    while on_cleanHTMLMultiLine( slMain.Strings[ iRow ] ) <> '' do begin
       if sTmp = '' then begin
          sTmp := on_cleanHTMLMultiLine( slMain.Strings[ iRow ] )
       end else begin
          stmp := sTmp + #13#10 + on_cleanHTMLMultiLine( slMain.Strings[ iRow ] );
       end;
       iRow := iRow + 1;
    end;
    on_setComment( sTmp );
  end;

  //---
  procedure GetCredits;
  var
    sName, sRole : string;
  begin
    iRow:=iRow + 3;
    while on_cleanHTMLLine( slMain.Strings[ iRow ] ) <> '' do begin
       sName := on_cleanHTMLLine ( slMain.Strings[ iRow ] );
       iRow := iRow + 1;
       sRole := on_cleanHTMLLine ( slMain.Strings[ iRow ] );
       iRow := iRow + 3; //move on
       on_addCredit( sRole , sName );
    end;
  end;

  //---
  function _getURL( const sToken: string ): string;
  var
    iPos: integer;
  begin
    result := '';
    if on_FindRow( iRow, 0, sToken, slMain ) then begin
       iPos := Pos( '"/cg', slMain.Strings[ iRow ] );
       if iPos > 0 then begin
          sTmp := Copy( slMain.Strings[ iRow ], iPos + 1, 99999 );
          iPos := Pos( '">', sTmp );
          if iPos > 0 then begin
           result := 'http://www.allmusic.com' + on_cleanHTMLLine( Copy( sTmp, 1, iPos - 1 ) );
          end;
       end;
    end;
  end;

begin

  on_Init; // disable it if you wish that values are not cleared
  slMain := TStringList.Create;

  try

    iRow := 0;
    on_loadHTML( slMain ); // load actual page to stringlist
     slMain.SaveToFile( 'c:\1.htm' );

    sReviewURL := _getURL( 'Review</A></TD>' ); // Get Review Page URL
    sCreditsURL := _getURL( 'Credits</A></TD>' ); // Get Credits Page URL

    sys_SetStatusText (3, 'loading basic album, cover, and track info...');

    // image if any
    GetImage;

    // artist, album, year, genre, Label
    if on_FindRow( iRow, 0, '<span>Artist</span>', slMain) then begin
       sTmp := on_cleanHTMLLine( slMain.Strings[ iRow + 4 ] );
       if Copy( sTmp, 0, 4) = 'The ' then sTmp := Copy( sTmp, 5, 9999 ) + ', The'; // comment out for original artist name
       on_setArtist ( sTmp );
    end;

    if on_FindRow( iRow, 0, '<span>Album</span>', slMain) then on_setAlbum( on_cleanHTMLLine( slMain.Strings[ iRow + 4 ] ) );
    if on_FindRow( iRow, 0, '<SPAN>Release Date</SPAN>', slMain) then on_setYear( on_cleanHTMLLine( slMain.Strings[ iRow + 4 ] ) );
    if on_FindRow( iRow, 0, '<span>Label</span>', slMain) then on_setLabel( on_cleanHTMLLine( slMain.Strings[ iRow + 6 ] ) );
    if on_FindRow( iRow, 0, '<span>Type</span>', slMain) then on_setType( on_cleanHTMLLine( slMain.Strings[ iRow + 6 ] ) );
    if on_FindRow( iRow, 0, '<!--Genre Listing-->', slMain) then on_setGenre( on_cleanHTMLLine( slMain.Strings [ iRow ] ) );

    iRowTemp := iRow;
    
    // styles
    if on_FindRow( iRow, 0, '<!--Styles Listing-->', slMain ) then on_setStyles( GetListing );

    // Tones, known as Moods in AMG <!--Moods Listing-->
    iRow := iRowTemp;
    if on_FindRow( iRow, 0, 'Moods Listing-->' , slMain ) then on_setTones( GetListing );

    // Themes
    iRow := iRowTemp;
    if on_FindRow( iRow, 0, '<!--Themes Listing-->', slMain ) then on_setThemes( GetListing );

    // Tracks
    if on_FindRow( iRow, 0, '>1</TD>', slMain ) then GetTracks;

    // now for the part to parse the Review Info from the Review Page
    iRow:=0;
    sys_SetStatusText(3, 'loading review...');
    on_loadHTMLURL( slMain, sReviewURL );
    if on_FindRow( iRow, 0, 'Review</TD>', slMain ) then GetReview;

    //Credits from Credits Page
    iRow:=0;
    sys_SetStatusText (3, 'loading credits...');
    on_loadHTMLURL( slMain, sCreditsURL );
    if on_FindRow( iRow, 0, '>Credits ', slMain ) then GetCredits;
    sys_SetStatusText (3, 'Data Fully Parsed.');

  finally
    slMain.Free;
  end;

end.