[ALexandr555]

не удается совершить get запрос
на этот адресс http://pogoda.yandex.ru/тольятти/details/
ошибка 400 синтаксис вроде, кирилицу не хочет принимать, но мне надо именно так, из браузера так работает, мб каким другим заросом сделать надо? посоветуйте

[AleD]

посмотри в сторону Gismeteo.Informer, легче распарсить, да и сделано специально для сторонних программ\веб-сайтов

[march]

Так, большинство сайтов в url'е кириллицу не понимают. Тебе запрос из http://pogoda.yandex.ru/тольятти/details/ надо трансформировать в http://pogoda.yandex.ru/%D0%A2%D0%BE%D0%BB%D1%8C%D1%8F%D1%82%D1%82%D0%B8/details/.
Отлавливаешь русские символы в url'е и заменяешь результатом функции ord.

Код:

var
url{то что получим на выходе},stroka{тот url что требуется преобразовать}:string;
s:char;
i:integer;
//...
for i:=1 to length(stroka) do
   begin
    s:=stroka[i];
    if s in ['А'..'Я', 'а'..'я'] then
     begin
      url:=url+'%'+inttostr(ord(s));
     end
    else
     url:=url+s;
   end;

[ALexandr555]

march, это будет так понимаю в строке символы преобразовывать?
AleD
http://informer.gismeteo.ru/getcode/xml.php?id=27612 от сюда пробовал парсить но чтото иногда быстро приходит иногда от вобще оттуда не приходит и программа секунд на 30 подвисает
cod-код города
all:=idhttp1.Get('http://informer.gismeteo.ru/xml/'+cod+'_1.xml');

[march]

да, преобразование символов, потом ипользуешь этот url (можно и в латиницу)

[ALexandr555]

Код:

var
url,stroka:string;
s:char;
i:integer;
Begin
url:='http://pogoda.yandex.ru/'
stroka:='тольятти';
for i:=1 to length(stroka) do
   begin
    s:=stroka[i];
    if s in ['А'..'Я', 'а'..'я'] then
     begin
      url:=url+'%'+inttostr(ord(s));
     end
    else
     url:=url+s;
    end;
url:=url+'/details/';
end;

march спасибо понял, так буду делать

[ALexandr555]

march, твоим способом он смоздают такую вот ссылку
http://pogoda.yandex.ru/%242%238%235...2%232/details/
и соответственно она ведет в никуда

[ALexandr555]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
url,stroka,text:string;
s:char;
i:integer;
Begin
url:='http://pogoda.yandex.ru/';
stroka:='тольятти';
for i:=1 to length(stroka) do
   begin
    s:=stroka[i];
    if s in ['А'..'Я', 'а'..'я'] then
     begin
      url:=url+'%'+inttostr(ord(s));
     end
    else
     url:=url+s;
    end;
url:=url+'/details/';
text:=Utf8ToAnsi(idhttp1.Get(url));
memo2.Lines.Add(url);
memo2.Lines.Add(text);

код собственно

[march]

Э, не заметил, там восьмеричный код требуется.
Надо inttostr(ord(s)) пропустить через эту функцию.

[ALexandr555]

---------------------------------------

[NumLock]

Код:

procedure TFormMain.Button2Click(Sender: TObject);
var
  s: String;
begin
  s:='http://pogoda.yandex.ru/тольятти/details/';
  s:=UTF8Encode(s);
  IdHTTP1.HandleRedirects:=True;
  Memo1.Text:=UTF8Decode(IdHTTP1.Get(s));
end;

[ALexandr555]

NumLock спс работает

[ALexandr555]

NumLock гм... чтото он не распознает плюсы и минусы вместо них ?11…?9 хотя должно быть или +11…+9 или -11…-9

[ALexandr555]

Utf8ToAnsi тоже не распознает, хелп

[NumLock]

потому что это не - и +, а визуально похожие символы.

Код:

var
  s: String;
begin
  s:='http://pogoda.yandex.ru/тольятти/details/';
  s:=UTF8Encode(s);
  IdHTTP1.HandleRedirects:=True;
  s:=IdHTTP1.Get(s);
  // заменяем - на - :)
  s:=StringReplace(s, Chr($e2)+Chr($88)+Chr($92), '-', [rfReplaceAll, rfIgnoreCase]);
  s:=UTF8Decode(s);
  Memo1.Text:=s;
end;