[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.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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]

Код:

1 2 3 4 5 6 7 8 9

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

[ALexandr555]

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

[ALexandr555]

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

[ALexandr555]

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

[NumLock]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;