[serg777voroncov]

Подскажите как сделать программу на делфи которая вставляет запрос в поиск и нажимает кнопку найти
С этой страницы
http://yandex.ru/yandsearch?text=111

[lmikle]

А что, религия не позволяет GET'от этот запрос отправить???

Код:

IdHTTP1.Get('http://yandex.ru/yandsearch?text='+Edit1.Text);

только пробелы надо кодировать в %20

[serg777voroncov]

Сообщение от lmikle

А что, религия не позволяет GET'от этот запрос отправить???

Код:

IdHTTP1.Get('http://yandex.ru/yandsearch?text='+Edit1.Text);

только пробелы надо кодировать в %20

А как сделать кодировку?

[NumLock]

см. к примеру в:

Код:

unit IdURI;

class function TIdURI.ParamsEncode(const ASrc: string): string;
var
  i: Integer;
begin
  Result := '';    {Do not Localize}
  for i := 1 to Length(ASrc) do begin
    if ASrc[i] = ' ' then begin    {do not localize}
      Result := Result + '+';    {do not localize}
    end else if NOT (ASrc[i] in ['A'..'Z', 'a'..'z', '0'..'9']) then begin {do not localize}
      Result := Result + '%' + IntToHex(Ord(ASrc[i]), 2);  {do not localize}
    end else begin
      Result := Result + ASrc[i];
    end;
  end;
end;