1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:

procedure TForm3.Button1Click(Sender: TObject);
var z,i:integer;
begin
JVWaitingGradient1.Active:=true;//Ist die Progressbarr zur Anzeige des Fortschritts
res:=''; //Res ist das Result, enthält später den Link zum Songtext (Global deklariert)
text:='';//Text enthält nach Prozedur Button3Click den Songtext, ebenfalls global
try
memo1.Text:=idhttp1.Get('http://www.google.de/search?hl=de&q='+plusersetzen(edit1.text)+'+magistrix+songtext&btnG=Suche&meta=');
//Hier wird in memo1 der HTML Quelltext geladen. In edit1 steht der Interpret und //Songtitel, Die funktion plusersetzen macht aus einem Leerzeichen ein "+", weil die //Google suche das so verlangt...
for z:= 1 to length(memo1.text) do
begin
application.ProcessMessages;
if copy(memo1.Text,z,length('www.magistrix.de/lyrics'))='www.magistrix.de/lyrics' then
begin //Hier wird in den Suchergebnissen nach den Songtexten in Magistrix gesucht...
i:=z;
while (memo1.Text[i] <>'"') and (i<length(memo1.text)-1) do
begin
res:=res+memo1.text[i];//Hier wird nun der Link zum Songtext in res geschrieben
i:=i+1;
application.ProcessMessages;
end;
if i<length(memo1.Text) then
begin
edit1.Text:=res;
button2.click;//Und button2 wird aufgerufen, dieser besorgt uns den Songtext
exit;
end else
begin
showmessage('Die Suche war erfolglos');
close;
exit;
end;
end;
end;
except showmessage('Verbindung zum Internet nicht möglich. Überprüfen Sie ihre Firewall!');  close; end;
showmessage('Die Suche war erfolglos');
close;
end;

procedure TForm3.Button2Click(Sender: TObject);
var z,i:integer;
begin
if zahl (res) then //Siehe unten function zahl
begin
try
memo2.Text:=idhttp1.Get('http://'+res);//Hier wird der Magistrix Songtext geladen
for z:= 1 to length(memo2.Text) do
begin
if copy(memo2.Text,z,length('<p id="lyricText" style="">'))='<p id="lyricText" style="">' then
  begin
  i:=z+length('<p id="lyricText" style="">');
    while (copy(memo2.Text,i,length('<table class="box1"'))<>'<table class="box1"') and (i<length(memo2.Text)) do
    begin
    text:=text+memo2.Text[i];//Und hier schritt für schritt in text geschrieben
    i:=i+1;
    application.ProcessMessages;
    end;
  memo3.Text:=html2text(text); //HTML2text wandelt HTML befehle in Delphi befehle //um.(Siehe unten)
  if not directoryexists(Extractfilepath(Paramstr(0))+'Lyrics\') then//Dies ist nun //nicht mehr wichtig. In der Variable text steht das was ihr braucht ;-)
  createdir(Extractfilepath(Paramstr(0))+'Lyrics\');
  memo3.lines.SaveToFile(Extractfilepath(Paramstr(0))+'Lyrics\'+Extractfilename(form1.mediaplayer1.FileName)+'.txt');
  showmessage('Songtext gefunden und abgespeichert!');
  close;
  exit;
  end ;

end;
 except showmessage('Verbindung zum Internet nicht möglich. Überprüfen Sie ihre Firewall!');  close; end;
 showmessage('Die Suche war erfolglos');
 close;
 end else begin  showmessage('Die Suche war erfolglos');
 close; end;
 end;

  function HTML2Text(aHTML: string): string;
  var
    WStr: string;
  begin
    WStr:= aHTML;
    WStr:= StringReplace(WStr, '<br>', #13#10, [rfReplaceAll]);
    WStr:= StringReplace(WStr, '</p><center>', ' ', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '</i>', ' ', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '', #13#10, [rfReplaceAll]);
    WStr:= StringReplace(WStr, '|', ' ', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '´', '`', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '<i>', ' ', [rfReplaceAll]);
    WStr:= StringReplace(WStr, 'ä', 'ä', [rfReplaceAll]);
    WStr:= StringReplace(WStr, 'Ä', 'Ä', [rfReplaceAll]);
    WStr:= StringReplace(WStr, 'ö', 'ö', [rfReplaceAll]);
    WStr:= StringReplace(WStr, 'Ö', 'Ö', [rfReplaceAll]);
    WStr:= StringReplace(WStr, 'ü', 'ü', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '&Üuml;', 'Ü', [rfReplaceAll]);
    WStr:= StringReplace(WStr, 'ß', 'ß', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '€', '€', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '&', '&', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '<', '<', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '>', '>', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '"', '"', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '<b>', '', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '</b>', '', [rfReplaceAll]);
    WStr:= StringReplace(WStr, '%B4', '''', [rfReplaceAll]);
    Result:= WStr;
  end;


  function zahl(s:string):boolean;
  var z:integer;
  begin
  for z:=1 to length(s) do
  if (ord(s[z])>=48) and (ord(s[z])<=57) then
  begin result:=true; exit ; end;
  result:=false;
  end;
  
function allesklein(s:string):string;
var z:integer;r:string;
begin
r:='';
for z:=1 to length(s) do
begin

if  (ord(s[z])>=65) and (ord(s[z])<=90) then
 r:=r+ chr(ord(s[z])+32)
 else r:=r+s[z];
 end;
 result:=r;
 end;
var res,text:string;
p:boolean;

function plusersetzen(s:string):string;
var z:integer;
begin
for z:= 1 to length(s) do
begin
if s[z]=' ' then s[z]:='+';
if (allesklein(copy (s,z,4))='.mp3') or (allesklein(copy (s,z,4))='.wma')or (allesklein(copy (s,z,4))='.wav') then delete(s,z,4);
end;
result:=s;
end;