7406       Конференция Delphi SoobCha           письмо # 7407 7408  

Тема: Re: Русские буквы в поиске
Дата: Mon, 28 Apr 2008 12:36:20 +0400
Кому: "Delphi" <Delphi@soobcha.org>
Почтовый клиент: The Bat! (v4.0.20) Professional
Кодировка: text/plain; charset=koi8-r
     Здравствуйте, Зобов.

Вы писали 28 апреля 2008 г., 9:58:41:

ЗАГ> Добрый день

ЗАГ> Делаю поиск в Яндексе и в Кинопоиске из своей программы:
ЗАГ> ShellExecute(Handle,nil,PChar('http://www.yandex.ru/yandsearch?text='+
ЗАГ> Lab.Text),nil,nil,0)

преобразуй Lab.Text в формат URl

function URLEncode(Value: string): string;
const
  ValidURLChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789$-_@.&+-!*"''(),;/#?:';
var
  i: integer;
begin
  result := '';
  for i := 1 to length(Value) do
  begin
    if Pos(AnsiUpperCase(Value[i]), ValidURLChars) > 0 then result := result + Value[i]
    else if Value[i] = ' ' then result := result + '+'
                            else result := result + '%' + Int2Hex(Byte(Value[I]), 2);
  end;
end;


ShellExecute(Handle,nil,PChar('http://www.yandex.ru/yandsearch?text='+URLEncode(Lab.Text)),nil,nil,0)



--
С уважением,
 ZLDO mailto:zldo@yandex.ru
  7406 7408  
 
???Mail.ru ??? ?????
╘ 2000-2006 Сообщество Чайников