[Gudzik11]

Здравствуйте подскажите пожалуйста возможно как то закачать код страницы?
http://sinoptik.ua/ Харьков

Пытаюсь делать так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string ;
begin
  GetDir(0,s);                 
  listBox1.Items.Clear();      
  ListBox1.Items.Text:= Utf8ToAnsi(IdHTTP1.Get('http://sinoptik.ua/#погода-харьков/2012-04-05')); 
 
  ListBox1.Items.SaveToFile(s+'\fff.htm');

end;

но почему то он закачивает вместо Харькова Киев .

[friz]

у тебя не верная ссылка

Код:

  memo1.Text:= Utf8ToAnsi(IdHTTP1.Get('http://sinoptik.ua/%D0%BF%D0%BE%D0%B3%D0%BE%D0%B4%D0%B0-%D1%85%D0%B0%D1%80%D1%8C%D0%BA%D0%BE%D0%B2#погода-харьков/2012-04-07'));
  memo1.lines.SaveToFile('c:\fff.htm');

[NumLock]

Код:

uses
  IdURI,
...
  Memo1.Text:=Utf8ToAnsi(IdHTTP1.Get(TIdURI.URLEncode('http://sinoptik.ua/'
    +UTF8Encode('погода-севастополь')+'/2012-04-08')));

[Gudzik11]

Спасибо! А если такой URL:
http://sinoptik.ua/10-дней#погода-харьков/2012-04-05

[NumLock]

ну по аналогии получаем:

Код:

Memo1.Text:=Utf8ToAnsi(IdHTTP1.Get('http://sinoptik.ua/'+UTF8Encode('10-дней')+'#погода-харьков/2012-04-08'));

[Gudzik11]

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

ну по аналогии получаем:

Код:

Memo1.Text:=Utf8ToAnsi(IdHTTP1.Get('http://sinoptik.ua/'+UTF8Encode('10-дней')+'#погода-харьков/2012-04-08'));

Так не выходит перекидывает на Киев!

[NumLock]

Код:

  Memo1.Text:=IdHTTP1.Get('http://sinoptik.ua/'
    +UTF8Encode('погода-харьков/10-дней'));

[Gudzik11]

Спасибо за помощь !

[Gudzik11]

Извиняюсь за надоедливость но а с числом (/2012-04-06) как быть

ListBox1.Items.Text:=IdHTTP1.Get('http://sinoptik.ua/'+UTF8Encode('погода-харьков/10-дней')+'/2012-04-06');

так переводит на киев .

[NumLock]

после # это адрес закладки

[Gudzik11]

спасибо! уже разобрался.