nefunguje hladanie wgetom na googli

program meno;

{$MODE delphi}

uses SysUtils, Classes, Process, StrUtils;

const 
  a = 'aeiouy';
  b = 'bcdfghjklmnpqrstvwxz';
 
function f(AFrom:string) : string;
begin
  f := AFrom[random(length(AFrom))+1];
end;

procedure Jedno;
var
  j,k : integer;  
  s : string;
begin
  // vygenerujeme slovo (a=samohlasky, b=spoluhlasky)
  repeat
    s := f(b)+f(a)+f(b)+f(a)+f(b)+f(a)+f(b);
  until s[length(s)]<>'a'; // vynechaj slova konciace na "a", zneju zensky
  write(s);
  // najdeme ho na googli
  with TProcess.Create(nil) do
  begin
    CommandLine := 'wget -q -O index.html ''http://www.google.sk/search?hl=sk&q='+s+'&btnG=Hladaj'' --user-agent=''Mozilla/5.0 (X11; U; Linux ppc; en-US; rv:1.8.1.11) Gecko/20080205 Firefox/2.0.0.11''';
    Options := [poWaitOnExit];
    Execute;
    // analyzujeme kolko krat sme nasli to slovo
    if ExitStatus=0 then
    with TStringList.Create do
    begin
      LoadFromFile('index.html');
      j := pos('<font size=-1>Výsledky <b>',Text);
      if j=0 then
      begin
        writeln(' ... je unikatne');
      end else
      begin
        s := copy(text,j+35,55);
        s := AnsiReplaceStr(s,'<b>','');
        s := AnsiReplaceStr(s,'</b>','');
        s := AnsiReplaceStr(s,'&nbsp;','');
        s := AnsiReplaceStr(s,'približne ','');
        s := copy(s,1,pos('pre',s)-1);
        k := pos(' z ',s);
        if k>0 then
          s := copy(s,k+3,maxint);
        writeln(' ... je tam ',s,' krat');
      end;
      Free;
    end;
    Free;
  end;
end;

begin
  randomize;
  repeat
    jedno;
  until false;
end.