Doch ich benutze sie... Mal ein wenig mehr Code:
Delphi-Quellcode:
var
HTMLCode: TStringList;
function DownloadHTML(
URL:
String):
String;
begin
try
Result := UTF8ToANSI(HTTP.Get(
URL));
except
Exit;
end;
Result := StringReplace(Result, #13, #13#10, [rfReplaceAll]);
end;
function BearbeiteHTML(
HTML: TSTringList):
String;
begin
//...
end;
procedure Suchen(MyString:
String;);
begin
HTMLCode := TStringList.Create;
Dothisandthis(Filmtitel);
FreeAndNil(HTMLCode);
end;
procedure Dothisandthis(MyString:
String);
var
i: Integer;
begin
HTMLCode.Text := DownloadHTML('
http://www.domain.url');
HTMLCode.Text := BearbeiteHTML(HTMLCode);
if Pos('
[i]XXX[/i]', HTMLCode.Text) <> 0
then Exit
else begin
//...
end;
end;
Zwar ein bisschen gekürzt, aber das wichtige ist drin.
Der Compiler gibt ab dem "if Pos('
XXX', HTMLCode.Text) <> 0 then Exit" den oben genannten Fehler aus.
Zitat von
Bernhard Geyer:
[Off-Topic]Thunderbird hat wohl etwas zu viel Automatismus bezüglich übereiliger UTF8-Decodierung eingebaut[/Off-Topic]
Ist mir grade ebend auch aufgefallen...
