Vielleicht hilft Dir dieser Ansatz etwas weiter, hiermit erhälst du den quelltext einer web-seite.
Delphi-Quellcode:
uses
System.NetEncoding,
IdHttp;
...
function GetWebPage(const AURL: string): string;
var
Remote: TIdHttp;
ResponseText: string;
begin
Result := '';
ResponseText := '';
Remote := TIdHTTP.Create(nil);
try
Remote.HandleRedirects := True;
Remote.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
ResponseText := Remote.Get(AURL);
finally
Remote.Free;
end;
if Length(ResponseText) = 0 then
Exit;
Result := ResponseText;
end;
function GetGoogleSearch(const ASearch: string): string;
begin
Result := GetWebPage('https://www.google.com/search?q=' + TNetEncoding.URL.Encode(ASearch));
end;
//edit
Ich vermute per
XML könnte man sich zum gewünschten Ergebis durchbuddeln, bestimmt auch programmatisch für deinen Zweck automatisieren lassen.
Das obige liefert jedenfalls schonmal etwas was zum parsen gebraucht wird :-]